[求助]用数字显示分页

边走边看

请各位大虾帮忙：我不想使用上一页、下一页来显示分页，而是要用数字显示，应怎么改？

sql="select tbtk.tmid,tbtk.title,tbkc.kcm,tbtk.category,tbtk.chapter,tbtk.kao,tbtk.level from tbtk,tbkc where tbtk.kcid=tbkc.kcid and tbkc.kcid = "& subjectview &" and category="&typeadd &" order by tbtk.chapter,category,tbtk.tmid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
%>
……
<%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
第一页</a>
<a href="<%=Myself%>?Page=<%=(Page-1)%>&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
上一页</a>
<%
End If

If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a href="<%=Myself%>?Page=<%=(Page+1)%>&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
下一页</a>
<a href="<%=Myself%>?Page=<%=rs.PageCount%>&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
最后一页</a> <% End If %>

緣妢_兲紸龍

我刚接触asp，参照一些资料进行修改，不成功，不得已向贵论坛求助，希望版主能帮我改改。

水清苓

版主的作品，注释得很详尽，只是我刚接触asp，实在还不知怎么用上它，只能以后慢慢研究了。
我现在急于要改成数字显示，版主能不能抽空帮我改过来？

梧桐雨love

数字分页其实就是把页码再进行分页的过程。

林风

http://bbs.bc-cn.net/viewthread.php?tid=125584&star=at
楼主可以先看看我写的分页程序，再来思考一下怎么改，或者由不明白的再问。