如何制作一个翻页程序

如何制作一个翻页程序？

    确实，翻页程序可以相互借鉴，但具体到每一需求，还是有较大差别的。代码入下，供参考：

<%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("id1")%>

<%=d%>

<%

count=count+1
rs.movenext
loop
rs.close
set  rs=nothing
%>
第一页
>最末页
>下一页
>上一页