高手們，翻頁程序該怎麼寫呢？有沒有給我學習的

给你一段我写过的..
(以后记得问之前先搜搜)
<%
page=request.querystring("ClassPage")
page=cint(page)
set cn=server.createobject("adodb.connection")
'cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("chao.mdb")
cn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("chao.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select*from photo"
rs.open "select*from photo",cn,1,3
rs.pagesize=5
if cint(page)<1 then page=1
if cint(page)>rs.pagecount then page=rs.pagecount
rs.absolutepage=cint(page)
for i=1 to rs.pagesize
if rs.bof or rs.eof then
exit for
end if
rs.movenext
next
response.write "<br>"
if cint(page)>1 then
%>
<a href=photo.asp?classpage=1>首页</a>
<%end if
if cint(page)=1 then
response.write "首页"
end if
if cint(page)>1 then%>
<a href=photo.asp?classpage=<%=cstr(cint(page)-1)%>>上一页</a>
<%end if
if cint(page)<rs.pagecount then
%>
<a href=photo.asp?classpage=<%=cstr(cint(page)+1)%>>下一页</a>
<%end if
if cint(page)<>rs.pagecount then
%>
<a href=photo.asp?classpage=<%=rs.pagecount%>>尾页</a><%end if%>
<%
if cint(page)=rs.pagecount then
response.write "尾页"%><%end if%>