<% xbqq_Marquee xbqq_Search xbqq_vote %>

实用技术

<%sql="select*from info where sort1 in (96,100.101,102,103,104,107) order by id desc" set rsb=server.createobject("adodb.recordset") rsb.open sql,conn,3,2%> <%if not rsb.eof and not rsb.bof then dim size,total,number size=20 if request.querystring("number")="" then number=1 else number=request.querystring("number") end if rsb.pagesize=size rsb.absolutepage=number total=rsb.pagecount i=size do while not rsb.eof and i>0 i=i-1%> <%sql1="select*from sort where id="&rsb("sort1") set rsa=conn.execute(sql1)%> [ target="_blank"><%=rsa("names")%>]  target="_blank"><%=titleb(rsb("title"),40)%>   <%rsb.movenext loop end if%>

首页  <%if number>1 then%>>上一页<%else%>上一页<%end if%>  <%if int(number-total)<0 then%>>下一页<%else%>下一页<%end if%>  >尾页  每页<%=size%>条记录 　　当前第<%=number%>/<%=total%>   <%for i=1 to total%> ><%=i%> <%next%>