<% Set rs=server.createobject("adodb.recordset") rs.open "select * from channel1 where idtop=1 order by torder asc",conn,1,1 do while not rs.eof %>
  • &str=<%=rs("channel")%>"><%=rs("channel")%>
  • <% rs.movenext loop rs.close set rs=nothing %>
<%if request("str")<>"" then str="新闻资讯 > "&request("str") else str="新闻资讯" end if %>
您现在的位置是:首页 > <%=str%> 新闻资讯
    <% sql="select * from articles1" style=Request.QueryString("style") if style<>"" then sql=sql&" where style='"&style&"'" else SortID="'1'" SortID1=1 sql1="select * from channel1 where idtop="&SortID1 set rs1=server.CreateObject("adodb.recordset") rs1.open sql1,conn,1,1 do while not rs1.eof SortID=SortID&",'"&rs1("id")&"'" rs1.movenext loop rs1.close set rs1=nothing sql=sql&" where style in("&SortID&")" end if sql=sql&" order by id desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then MaPerpage=8 rs.PageSize=MaPerpage page=trim(request("page")) if page<>"" then if cint(page)>rs.PageCount then page=1 else page=cint(page) end if else page=1 end if rs.absolutepage=page i=0 if not rs.eof then do while not rs.eof and i["&year(rs("updatetime")) if month(Rs("updatetime"))<10 then response.write "-0"&month(rs("updatetime")) else response.write "-"&month(rs("updatetime")) end if if day(Rs("updatetime"))<10 then response.write "-0"&day(rs("updatetime")) else response.write "-"&day(rs("updatetime")) end if response.write"]"&rs("title")&"" rs.movenext i=i+1 loop if rs.pagecount>1 then totalpage=rs.pagecount response.write"
  • 共"&rs.recordcount&"条 页次:"&page&"/"&rs.pagecount&" 首页 " if page=1 then response.write"上一页 " else response.write"上一页 " end if if page>rs.pagecount or page=rs.pagecount then response.write"下一页 " else response.write"下一页 " end if response.write"尾页 转到"%> <% response.write"
  • " end if else response.write"
  • 还没有数据!
  • " end if end if rs.close set rs=nothing%>