ASP通用分页函数

来源：互联网发布：多媒体软件应用编辑：程序博客网时间：2024/04/27 13:59

<%
Function ExportPageInfo(ByRef rs,currentpage,LinkFile)
'rs是传递的记录集
'currentpage是记录当前页数
'linkfile是要提交的页面
Dim pageinfo, j, pageNumber, BasePage
response.Write ("<form name=pageinfo action="&linkfile&"method=get >")

pageinfo="第"&currentpage&"页/总"&rs.pagecount&"页"
pageinfo=pageinfo&"本页"&i&"条/总"&rs.recordcount&"条"

If currentpage=1 Then
pageinfo=pageinfo&"首页前页 "
Else
pageinfo=pageinfo&"<a href="&LinkFile&"?page=1>首页</a><a href="&LinkFile&"?page="&cstr(currentpage-1)&">前页</a> "
End If
If currentpage = rs.pagecount Then
pageinfo=pageinfo & "后页末页"
Else
pageinfo=pageinfo & "<a href="&LinkFile&"?page="&cstr(currentpage+1)&">后页</a><a href="&LinkFile&"?page="&cstr(rs.pagecount)&">末页</a>"
End if

'pageinfo=pageinfo & "<br/>"

Basepage=(currentpage/10)*10
If BasePage>0 Then pageinfo=pageinfo&"<a href="&LinkFile&"?page="&(BasePage-9)&"><<</a>"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber>rs.pagecount Then Exit For
If pageNumber=Cint(currentpage) Then
pageinfo=pageinfo&"<font color=#FF0000>"&pageNumber&"</font>"
Else
pageinfo=pageinfo&"<a href="&LinkFile&"?page="&pageNumber&">"&pageNumber&"</a>"
End If
Next
If rs.pagecount>BasePage Then pageinfo=pageinfo&"<a href="&LinkFile&"?page="&(BasePage + 11)&">>></a>"

ExportPageInfo=pageinfo
response.write

("</form>")
End Function

应用的例子：

<html>
<head>
<title>班级成员信息</title>
<link href="/css/blog.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from member order by name asc"
rs.open sql,conn,1,1
rs.pagesize=15
currentpage=clng(request("page"))
rs.absolutepage=currentpage
response.write "<center><table border=0 cellpadding=2 cellspacing=0><tr bgcolor=#ffffcc>"
for i=1 to rs.fields.count-1
    response.write "<td>"&rs.fields(i).name&"</td>"
next
response.write "</tr>"
for i=1 to rs.pagesize
if i mod 2=0 then
           response.write "<tr bgcolor=#ffffcc>"
         else
    response.write "<tr>"
end if
for j=1 to rs.fields.count-1
      response.write "<td>"&rs.fields(j).value&"</td>"
next
response.write "</tr>"
rs.movenext
if rs.eof then
exit for
end if
next
response.write "</table></center>"
%>
<br>
<center><%=ExportPageInfo(rs,currentpage,"member.asp")%></center>
</body>
</html>