简单的分页类
<%@ Language=VBScript %><% Option Explicit %><SCRIPT LANGUAGE=VBScript RUNAT=SERVER> '确保引用 ADO Typelib 或使用 ADOVBS.Inc Dim iPageNum, iRowsPerPage
Main Sub Main() Dim rst Dim sSQL, sConnString
If Request.QueryString("iPageNum") = "" Then iPageNum = 1 Else iPageNum = Request.QueryString("iPageNum") iPageNum = CInt(iPageNum) End If
iRowsPerPage = 10
sConnString = "Provider=SQLOLEDB.1;password=Xyz123;user id=WebUser;" & _ "Initial Catalog=NorthWind;Data Source=MySQLServer;" & _ "network=dbmssocn;"
'下列 SQL 从 SQL 视图中检索所有列。 '要优化性能： '- 使用存储过程、视图或在 SELECT 中指定列 '- 使用限制返回的记录的条件（例如，WHERE 子句） sSQL = "SELECT CategoryName, ProductName, QuantityPerUnit," sSQL = sSQL & "UnitsInStock, Discontinued" sSQL = sSQL & " FROM [Products By Category]"
Set rst = GetRecords(sConnString, sSQL)
WriteTableHeader rst WriteTableBody rst, iRowsPerPage, iPageNum ShowNavBar rst
'ShowFastNavBar 方法不使用 RecordCount '或 PageCount，所以它重试的记录数仅等于 '记录集的 CacheSize 指定的数量。
'ShowFastNavBar rst
CleanUp rst End Sub
Function GetRecords(sConnString, sSQL) Dim cnn Dim rst
set cnn = Server.CreateObject("ADODB.CONNECTION") cnn.ConnectionString = sConnString nn.Open
Set rst = Server.CreateObject("ADODB.RECORDSET")
Set rst.ActiveConnection = cnn
'当记录集打开时，adUseClient 的 CursorLocation ' 将检索所有的记录。 'adUseServer 允许沿用 CacheSize rst.CursorLocation = adUseServer
'在使用服务器端游标时，CacheSize '限制了取回的行数。我们将只抓取正在显示的 '的记录的数目 - iRowsPerPage rst.CacheSize = iRowsPerPage
rst.Open sSQL,,adOpenStatic, adLockReadOnly牋? Set GetRecords = rst end Function
Sub WriteTableHeader(rst) Dim fld
Response.Write "<TABLE WIDTH=80% BORDER=1>" Response.Write "<TR>"
'建立表的列标题 For Each fld in rst.Fields Response.Write "<TD><B>" & fld.Name & "</B></TD>" Next Response.Write "</TR>" End Sub
Sub WriteTableBody(rst, iRowsPerPage, iPageNum) Dim iLoop Dim fld
iLoop = 1
rst.PageSize = iRowsPerPage rst.AbsolutePage = iPageNum
'写出记录的当前页 Do While (Not rst.EOF) and (iLoop <= iRowsPerPage) Response.Write "<TR>" For Each fld in rst.Fields Response.Write "<TD>" & fld.value & "</TD>" Next iLoop = iLoop + 1 rst.MoveNext Response.Write "</TR>" Loop Response.Write "</TABLE>" End Sub
Sub ShowNavBar(rst) Dim iPageCount Dim iLoop Dim sScriptName
'本版本提供了更丰富的用户导航，但是 '依赖于 RecordCount 和 PageCount， '它抵消了为服务器端游标 '指定 CacheSize 的好处。
Response.Write "<BR><BR>" sScriptName = Request.ServerVariables("SCRIPT_NAME")
If iPageNum > 1 Then Response.Write " <a href=" & sScriptName & "?iPageNum=" Response.Write (iPageNum -1) & "><< Previous</a>" End If
iPageCount = rst.PageCount Do Until iLoop > iPageCount f iLoop = iPageNum Then Response.Write " <B>" & CStr(iLoop) & "</B>" Else Response.Write " <a href=" & sScriptName & "?iPageNum=" & _ Cstr(iLoop) & ">" & iLoop & "</a>" End If iLoop = iLoop + 1 Loop
If Not rst.EOF Then Response.Write " <a href=" & sScriptName & "?iPageNum=" Response.Write (iPageNum +1) & "> Next >></a><BR>" Else Response.Write "<BR>" End If
Response.Write "Page " & iPageNum & " of " & iPageCount & "<BR>" Response.Write rst.RecordCount & " Records" 牋? End Sub
Sub ShowFastNavBar(rst) Dim iPageCount Dim iLoop Dim sScriptName
'在指定 CacheSize 和使用服务器端游标时， '该方法特别有效，因为它不使用 RecordCount '和 PageCount。需要用户具有经验。
Response.Write "<BR><BR>" sScriptName = Request.ServerVariables("SCRIPT_NAME")
If iPageNum > 1 Then Response.Write " <a href=" & sScriptName & "?iPageNum=" Response.Write (iPageNum -1) & "><< Previous</a>" End If
If Not rst.EOF Then Response.Write " <a href=" & sScriptName & "?iPageNum=" Response.Write (iPageNum +1) & "> Next >></a><BR>" Else Response.Write "<BR>" End If
Response.Write "Page " & iPageNum
End Sub
Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = adStateOpen then rst.close set rst = nothing End If End Sub
</SCRIPT>