高手帮我把分页稿出来看看，我稿了半天。都出了不少问题
下面的代码是把数据库里的记录以每行4条的列出来 一共显示60条
我记录一共有81条 以后添加会更多 分页 我做了好久都做不出来
请高手接着我的代码写出：首页 下一页 上一页 最后一页 来
我这有81条记录就是 会显示首页（不可点击） 下一页 跟最后一页（可点击） 以后加多了记录 会出现上一页
<%
dim top,botten
set rs=server.createobject("adodb.recordset")
sql="select * from anli order by id desc"
rs.open sql,conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0' bgcolor='#ffffff'><tr><td> 最新更新情况，截止到"&date()&"共有<b> "&rs.RecordCount&" </b>张照片</td></tr></table>"
top=1
if rs.bof and rs.eof then
response.write "没有任何图片"
else
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rs.PageSize=9 '每页显示num条记录
pageNum=rs.PageCount '共pageNum页
showpage=1 '显示第showpage页
If Not IsNumeric(request("showpage")) Then
showpage=1
else
showpage=Int(request("showpage"))
End if
If showpage<1 Then showpage=1 End If
If showpage>pageNum Then showpage=pageNum End If
rs.AbsolutePage=showpage '当前显示页等于showpage
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
response.write "<table border='0' cellspacing='1' cellpadding='3'><center>"
do while not rs.eof
for botten=1 to 4
if rs.eof then exit for
%>
<td bgcolor="#CAE2F8" width="200" >
<A href="view.asp?id=<%=rs("id")%>" target="_blank"><%=rs("site")%></a> </td>
<%
rs.movenext
top=top+1
next
Response.Write"</tr>"
if top>60 then exit do
loop
end if
Response.Write"</table>"
%>
