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

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，实在还不知怎么用上它，只能以后慢慢研究了。
我现在急于要改成数字显示，版主能不能抽空帮我改过来？