asp如何制作一个简单的翻页程序？

如何制作一个分页程序？

确实，翻页程序可以相互借鉴，但具体到每一需求，还是有较大差别的。

代码入下，供参考：

<％language="vbscript"
set  conn=server.createobject("adodb.connection")
conn.open  "driver={sql  server};server=luo;uid=sa;pwd=;database=zszl"
set  rs=server.createobject("adodb.recordset")
％>
<％pgsize=5
page=request.querystring("page")
sql="select * from  test  where  id1=1"
rs.open  sql,conn,1
rs.pagesize=pgsize
pgnm=rs.pagecount
if  page=""or  clng(page)<1  then page=1
if   clng(page)>pgnm  then  page=pgnm
if  pgnm>0  then  rs.absolutepage=page
count=0
do  while  not  rs.eof  and  count<rs.pagesize    
％>
<％=rs("id1")％>
<br>
<％=d％>
<br>
<％
count=count+1
rs.movenext
loop
rs.close
set  rs=nothing
％>
<a  href=dis.asp?page=1>第一页</a>
<a  href=dis.asp?page=<％=pgnm％>>最末页</a>
<a  href=dis.asp?page=<％=page+1％>>下一页</a>
<a  href=dis.asp?page=<％=page-1％>>上一页</a>