如何编写翻页函数？

page.inc
<%
sub showpagebar(totalpage,curpage,strurl)
' 参数totalpage:全部页数;curpage:当前页数;strurl:翻页使用的连接地址.

dim strpage
curpage=getvalidpageno(totalpage,curpage)
response.write "<table width=''100%''>"
response.write "<tr><td width=''100%'' align=''right''>"
response.write "页数：" & curpage & "/" & totalpage & "  "
if instr(strurl,"?")=0 then
strpage="?page="
else
strpage="&page="
end if

if curpage>1 then
response.write "<a href=" & strurl &strpage&"1>第一页</a>"
else
response.write "第一页"
end if

if curpage>=2 then
response.write "<a href=" & strurl & strpage &curpage-1&">上一页</a>"
else
response.write "上一页"
end if

if cint(curpage)<cint(totalpage) then
response.write "<a href=" & strurl & strpage &curpage+1&">下一页</a>"
else
response.write "下一页"
end if

if cint(curpage) <>cint(totalpage) then
response.write "<a href=" & strurl & strpage & totalpage&">最末页</a>"
else
response.write "最末页"
end if
response.write "</td></tr></table>"
end sub

function getvalidpageno(pagecount,curpage)
dim ipage
ipage=curpage
if cint(curpage)<1 then
ipage= 1
end if
if cint(ipage) > cint(pagecount) then
ipage= pagecount
end if
getvalidpageno=ipage
end function
%>

看看引用这个函数的例子：

chunfeng.asp
<!--#include virtual="page.inc"-->
<%
set objconn=server.createobject("adodb.connection")
set objrst=server.createobject("adodb.recordset")
objconn.open application("dsn")

strsql="select * from 要使用的查询
objrst.open strsql,objconn,adopenstatic
' 打开数据记录.
objrst.pagesize=20
' 设置单页的数据记录数
ipagecount=objrst.pagecount
' 定义了一个页码数量的变量.
if len(request.querystring("page"))=0 then
curpage=1
else
curpage=cint(request.querystring("page"))
end if
' 得到当前的页码.
objrst.absolutepage=curpage
' 设置记录集中的当前页.

' 开始调用显示翻页的函数,显示页数栏.
' 函数原型:showpagebar(totalpage,curpage,strurl) .
strurl="chunfeng.asp"
' 定义连接的url,可以用我们自己的页面地址.
showpagebar ipagecount,curpage,strurl
' 调用完成.

----------------------------------------------------------------------------------------------------------------

这里显示自己的内容
----------------------------------------------------------------------------------------------------------------

 

objconn.close
set objrst=nothing
set objconn=nothing
%>