IDC资讯中心
这是一个关于翻页制作的函数，放在page.inc里面，主要用于数据量不是非常大的数据库，其中函数中的html格式可以自己更改。
<%
文件名称：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
%>
下面是使用这个函数的例子，文件名称是showinfo.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=50
’设置单页的数据记录数
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="showinfo.asp"
定义连接的url，这里完全可以用自己的页面地址，只用一页就可以完成翻页的功能了！
showpagebar ipagecount,curpage,strurl
调用完成
************************
这里显示自己的内容
************************
objconn.close
set objrst=nothing
set objconn=nothing
%>
欢迎大家使用，如果有建议或者意见请同我联系，大家一起讨论。
