河北海源玻璃有限责任公司!

<%dim rs,sql,str,pages,records,currentpage,search_txt,px,linenumber,line set rs=server.createobject("adodb.recordset") sql="select * from article where classid=3 and Nclassid=5 ORDER BY dateandtime DESC" rs.open sql,conn,1,1 if rs.eof and rs.bof then str="此系统还没有信息!" '分页设置 if str="" then rs.PageSize=15 pages=rs.pagecount records=rs.recordcount currentpage=request("currentpage") if currentpage="" or currentpage<1 then currentpage=1 currentpage=cint(currentpage) if currentpage>pages then currentpage=pages rs.absolutepage=currentpage else currentpage=1 records=0 pages=1 end if %> 河北海源玻璃有限责任公司!

<%linenumber=rs.pagesize%> <%do while (not rs.eof) and (line <%rs.movenext%> <%line=line+1%> <%loop%> <%rs.close:set rs=nothing conn.close:set conn=nothing%>

"><%=rs("title")%>	<%=rs("dateandtime")%>
<%if currentpage>1 then%> [上一页] <%end if%> <%if currentpage [下一页] <%end if%> <%if currentpage>1 then%> [最首] <%end if%> <%if currentpage [最末] <%end if%>