1. Erstellen Sie ein Recordset-Objekt
Dim objMyRst
Setze objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'Der Client kann in Stapeln verarbeiten
objMyRst.CursorType=adOpenStatic 'Der Cursortyp ist ein statischer Typ
Hinweis: Das Recordset-Objekt kann nicht mit der strSQL-Anweisung Set objMyRst=Connection.Excute erstellt werden, da das von ihm erstellte Recordset-Objekt adOpenFowardOnly ist und kein Record-Set-Paging unterstützt.
2. Öffnen Sie das Recordset-Objekt
Dimmen Sie strSql
strSql=select * from ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3． Legen Sie die PageSize-Eigenschaft von Recordset fest
objMyRst.PageSize=20
Die Standard-PageSize ist 10
4. Legen Sie die AbsolutePage-Eigenschaft von Recordset fest
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage ist 1 zum PageCount-Wert des Recordset-Objekts
5. Daten anzeigen
Response.Write(<Tabelle>)
PrintFieldName(objMyRst)
Für i=1 bis objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
Wenn objMyRst.Eof, dann beenden Sie For
Nächste
Response.Write(</table>)
veranschaulichen:
1. adOpenStatic, adUseCilentBatch und adCmdText sind von adovbs.inc definierte Konstanten. Um sie zu verwenden, kopieren Sie adovbs.inc in das aktuelle Verzeichnis und fügen Sie sie in das Programm ein.
<! --#Include File=adovbs.inc-->
2. Der Code der Funktion PrintFielName,PrintFieldValue lautet wie folgt:
<%
Funktion PrintFieldName(objMyRst)
'Der Parameter objMyRst ist ein Recordset-Objekt
'Nummer definieren
Dim objFld
Response.Write <tr bgcolor='#CCCCCC'>
Für jedes objFld in objMyRst.Fields
Response.Write <td> & objFld.Name & </td>
Nächste
Response.Write(</tr>)
Funktion beenden
Funktion PrintFieldValue(objMyRst)
'Der Parameter objMyRst ist ein Recordset-Objekt
'Nummer definieren
Dim objFld
Response.Write(<tr>)
Für jedes objFld in objMyRst.Fields
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
Response.Write <td> & objFld.value & </td>
Nächste
Response.Write(<tr>)
Funktion beenden