源代码:
程序代码:
[code]
<%
'分页函数
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage,pSize
retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "
If curpage = 1 Then
retval = retval & "首页 前页 "
Else
retval = retval & "首页 前页 "
End If
If curpage = rs.pagecount Then
retval = retval & "后页 末页"
Else
retval = retval & "后页 末页"
End if
retval = retval & " "
pSize = 10
BasePage = ((curpage-1) \ pSize) * pSize
If BasePage > 0 Then retval = retval & " <<"
For j = 1 to pSize
pageNumber = BasePage + j
If PageNumber > rs.pagecount Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " [" & pageNumber & "]"
Else
retval = retval & " [" & pageNumber & "]"
End If
Next
If(rs.pagecount mod pSize=0) Then
If(curpage>=(rs.pagecount-pSize)) Then
retval = retval & " "
else
retval = retval & " >>"
End if
Else
If(curpage<=(rs.pagecount\pSize)*pSize) Then retval = retval & " >>"
End if
ExportPageInfo = retval
End Function
%>
[/code]
使用举例:
程序代码: [code]
日期 | 提交内容 | 提交人 | 提交时间 | 数据库操作失败:"&err.description&" | "没有记录! | "
"&rs("date")&" | ""&rs("content")&" | ""&rs("name")&" | ""&rs("time")&" | "