ASP通用分页函数

<%
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