<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") basclass="500" mymenu="news_AuABC" myurl="news_AuABC.asp?temp=1" if classcode<>"" then sql="select * from miscell_class where classcode='"+classcode+"'" else sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" end if rs.Open sql,cn,1,1 if not rs.EOF then classname=trim(rs("classname")) end if rs.Close %> 澳洲<%=classname%>新闻_ABC资讯_澳大利亚ABC环球集团
  澳洲新闻-ABC资讯
<% sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" rs.open sql,cn,1,1 i=1 do while not rs.EOF if classcode="" then classcode=trim(rs("classcode")) url="news_AuABC.asp?classcode="+trim(rs("classcode")) if classcode=trim(rs("classcode")) then classname=trim(rs("classname")) %> <% else %><% end if if i mod 5 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %>
<%=trim(rs("classname"))%><%=trim(rs("classname"))%>
新闻频道首页
<% sql="select keyno,classcode,title,updatetime,website,creadate from miscell where classcode='"+classcode+"' and state='1' order by creadate desc" rs.Open sql,cn,1,1 i=1 pagesize=20 rs.PageSize=pagesize if pageno="" then pageno=1 else pageno=cint(pageno) if rs.PageCount>0 then rs.AbsolutePage=pageno pagecount=rs.PageCount reccount=rs.RecordCount do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %>
·<%=trim(rs("title"))%>  <%=rs("creadate")%>
 
共有 <%=reccount%> 条新闻     <%if pagecount>1 then%> 分页: <%if pageno>1 then%> <<上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  页  <%if pageno 下页>> <%end if%> <%end if%>