|
数据库分页函数
<%
'==============================================================
'数据库分页函数，用法如下：（别忘了url最后面参数的&）
'Response.write(ExportPageInfo(总记录数rsCount,当前页数,每页显示数量,"xxx.asp?action="&yyy&"&"&"))
'==============================================================
Function ExportPageInfo(rsCount,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage,TotalPage
TotalPage = rsCount/i
if TotalPage > fix(TotalPage) then TotalPage = fix(TotalPage) + 1
If curpage > TotalPage Then curpage = TotalPage
If curpage < 1 then curpage = 1
retval = "第" & curpage & "页/共" & TotalPage & "页 "
retval = retval & "每页" & i & "条/共" & rsCount & "条 "
If curpage = 1 Then
retval = retval & "首页 前页 "
Else
retval = retval & "<a href='" & LinkFile & "page=1' >首页</a> <a href='" & LinkFile & "page=" & cstr(curpage - 1) & "' >前页</a> "
End If
If curpage = TotalPage Then
retval = retval & "后页 末页"
Else
retval = retval & "<a href='" & LinkFile & "page=" & cstr(curpage + 1) & "' >后页</a> <a href='" & LinkFile & "page=" & TotalPage & "' >末页</a>"
End if
retval = retval & " "
BasePage = (curpage \ 10) * 10
If BasePage > 0 Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "' ><<</a>"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > TotalPage Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " [<font color='#FF0000'>" & pageNumber & "</font>]"
Else
retval = retval & " <a href='" & LinkFile & "page=" & pageNumber & "' >[" & pageNumber & "]</a>"
End If
Next
If TotalPage > 10 Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage + 11) & "' >>></a>"
ExportPageInfo = retval
End Function
%>
2006-7-18 15:02:38
Posted by jser | 阅读全文() | 回复(0) | 引用通告() | 编辑
|
