%
Wenn rs1.rcordCount ＞ 0 ist, ist 'Record Set nicht leer und verarbeiten Datensätze
RS1.PageSize = 10 'Stellen Sie die Anzahl der pro Seite angezeigten Datensätze fest
Num = rs1.rcordCount 'Rekord Gesamtrekord
Pagenum = rs1.PageCount 'Gesamtzahl
Seite = Anfrage (Seite) 'Erhalten Sie die ursprünglichen Informationen der Seitennummer
'Der Beginn der ursprünglichen Informationen der Verarbeitungsseitennummer!
Wenn Seite <> dann
Seite = cint (Seite)
Wenn err.number <> 0 dann dann
err.clear
Seite = 1
Ende wenn
Wenn Seite <1 dann
Seite = 1
Ende wenn
anders
Seite = 1
Ende wenn
Wenn Seite*rs1.pagesize ＞ num und nicht (((Seite))*rs1.pagesize <num)
Seite = 1
Ende wenn
'Das Ende der ursprünglichen Informationen der Verarbeitungsseitennummer! Legen Sie die aktuelle Seitennummer ein
Rs1.absolutepage = Seite
%>
<!-Bestimmen Sie, ob die aktuelle Seite die letzte Seite ist, und die doppelte Anzeige des Einstellungsdatensatzes der Einstellungseinstellungen->
<% Wenn Seite <> pagenum dann
lablenum = rs1.pagesize
anders
lablenum = num- (Seite)*rs1.pagesizeze
Ende wenn
für i = 1 bis lablenum
%>
<Trbgcolor =#ffffff>
<Td Höhe = 25> <div Align = center> <%= (rs1.Fields.Item (ID). Wert)%> </div> </td>
<Td> <div align = center> <%= (rs1.fields.Item (Name). Wert)%> </div> </td>
<Td ＞ <liv align = center> <%= (rs1.fields.Item (Adresse). Wert)%> </div> </td>
<Td> <div align = center> <%= (rs1.fields.Item (Kategorie). Wert)%> </div> </td>
<Td> <div align = center> <%= (rs1.fields.Item (schließlich modifiziert). Wert)%＞ </div> </td>
<Td> <div Align = center> <%= (rs1.fields.Item (modifizierte Person). Wert)%＞ </div> </td>
</Tr>
%
RS1.Movenext
nächste
%>
<!-Der Datensatz der aktuellen Seite ist vorbei. Der folgende Code ist der Link-Code des Datensatzsatzes Link->>
<Tabellenbreite = 70% Grenze = 0 Align = Center Cellpadding = 0 Cellspacing = 0>
<tr>
<Td Höhe = 35>
<Liv align = rechts>
<Font color =#333333>
Es gibt <%= num%> einen Link |
<A href = linkAdmin.asp?
<%Wenn Seite ＞ 1 dann%＞ <a href = linkAdmin.asp?
<%Wenn Seite <Pagenum ＞ <%1%＞ ＞ ＞ ＞ |
<A href = linkAdmin.asp?
Seite: <%= Seite%＞/<%= pagenum%> Seite |
<%= Pagenum%> Seite
</Font>
</Div>
</Td>
</Tr>
</Table>
<!-Zeichnen Sie den verknüpften Codierungscode der Sammlung von Seiten auf, der Datensatzsatz soll den folgenden Code ausführen, wenn er leer ist->
<%Sonst%>
<Trbgcolor =#ffffff>
<Td Höhe = 25 colspan = 6> <dival Align = Center ＞ < % Antwort. Schreiben (keine Ergebnisse können angezeigt werden!) %>
</Div> </td>
</Tr>
%
Ende wenn
RS1.CLOSE ()
Setzen Sie RS1 = Nichts
%>