一个分页函数

sucn| 阅读:3703 发表时间:2004-11-08 经验技巧

源代码:
程序代码:
[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]









<%
if err.number <> 0 then
response.write ""
else
if rs.eof and rs.bof then
response.write ""
else

Dim pSize,MultiPages,PageCount
pSize = 10
rs.PageSize = pSize
If Int(Request("Page")) < 1 Then
rs.Absolutepage = 1
Else
If Int(Request("Page")) <= rs.PageCount Then
rs.Absolutepage = Int(Request("Page"))
End If
End If
If Int(Request("Page")) > rs.PageCount Then
rs.Absolutepage = rs.PageCount
End If
zjcurpage = rs.Absolutepage

For i = 0 To pSize - 1
Response.Write""
Response.Write""
Response.Write""
Response.Write""
Response.Write""
Response.Write""
rs.MoveNext
If rs.Eof Then
i = i + 1
Exit For
End If
Next

end if
end if

Response.Write"
日期 提交内容 提交人 提交时间
数据库操作失败:"&err.description&"没有记录!
"&rs("date")&""&rs("content")&""&rs("name")&""&rs("time")&"
"
MultiPages=""&ExportPageInfo(rs,zjcurpage,i,"?")&""
Response.Write(MultiPages)
Response.Write""
rs.Close
Set rs = Nothing
%>

[/code]
*文章为原作者独立观点,不代表网站的立场
本文由网站发表并编辑,转载此文章须经作者同意,并请附上出处及本页链接。如有侵权,请联系本站删除。

友情连接