asp的一个分页函数(vbscript)
1

<%
2
Function ShowPageList(rs,pageSize,postUrl,units,alertColor)3
Dim totalNum,n,page,pageString4
IF rs.EOF Then Exit Function5
totalNum = rs.RecordCount6
7
IF totalNum < 1 Then8
ShowPageList = "<div><h3>数据集不支持分页功能!</h3></div>"9
Exit Function10
End IF11
12
rs.PageSize = pageSize13
n = rs.PageCount14
15
page = Request("page")16
IF Not IsNumeric(page) or IsNull(page) or IsEmpty(page) Then17
page =118
Else19
page = Cint(page)20
IF page < 1 Then page =121
IF page > n Then page = n22
End IF23
rs.AbsolutePage = page24

25
26
IF Right(postUrl,1) <> "?" Then postUrl = postUrl & "?"27
For Each item In Request.QueryString28
IF item <> "page" Then29
postUrl = item & "=" & Request.QueryString(item) & "&" 30
End IF31
Next32

33

34
pageString = "<form name='Pages' method='Post' action=" & postUrl & ">"35

36
For Each item In Request.Form37
IF item <> "page" Then38
pageString = pageString & "<input type='hidden' name='" &item & "'"39
pageString = pageString & " value='" & Request.Form(item) & "'/>"40
End IF 41
Next42
43
pageString = pageString & "共<font color='" & alertColor & "'><b> " & totalNum & " </b></font>"44
pageString = pageString & units45
pageString = pageString & " 每页显示 <font color='" & alertColor & "'><b>" & pageSize & "</b></font> " & units46
47
If page<2 then48
pageString = pageString & " 首页 上一页 " 49
else50
pageString = pageString & " "51
pageString = pageString & " <a href='" & postUrl & "page=1'>首页</a> "52
pageString = pageString & " <a href='" & postUrl & "page=" & (page-1) & "'>上一页</a>"53
pageString = pageString & " " 54
end if55
56
if n-Page<1 then57
pageString = pageString & "下一页 末页" 58
else59
pageString = pageString & "<a href='" & postUrl & "page=" & (page+1) & "'>下一页</a>" 60
pageString = pageString & " "61
pageString = pageString & "<a href='" & postUrl & "page=" & n & "'>末页</a>" 62
end if63
pageString = pageString & " "64
pageString = pageString & "当前:<strong><font color='" &alertColor & "'>"65
pageString = pageString & page & "</font>/" & n & "</strong> "66
pageString = pageString & "页 转到:" 67
pageString = pageString & "<select name='page' size='1' onChange='javascript:submit()'>"68
69
For i = 1 To n70
pageString = pageString & "<option value='" & i & "' "71
IF i = page Then 72
pageString = pageString & " selected "73
End IF74
pageString = pageString & ">第" & i & "页</option>"75
Next76
77
pageString = pageString & "</select>"78
pageString = pageString & "</form>"79
ShowPageList = pageString80
End Function81
%> 决不做一个程序代码的写手.

浙公网安备 33010602011771号