%
Si rs1.rcordCount ＞ 0 alors 'Le jeu d'enregistrements n'est pas vide et les enregistrements de processus
Rs1.pagesize = 10 'définir le nombre d'enregistrements affichés par page
Num = rs1.rcordCount 'record total
Pagenum = rs1.pageCount 'Nombre total
Page = demande (page) «Obtenez les informations originales du numéro de page
«Le début des informations d'origine du numéro de page de traitement!
Si page <> alors
Page = Cint (page)
Si err.number <> 0 alors
err.Clear
page = 1
terminer si
Si page <1 alors
page = 1
terminer si
autre
page = 1
Terminer si
si page * rs1.pagesize ＞ num et non ((page-1) * rs1.pagesize <num)
page = 1
terminer si
«La fin des informations d'origine du numéro de page de traitement! Définir le numéro de page actuel
Rs1.absolupage = page
%>
<! - Déterminez si la page actuelle est la dernière page et l'affichage en double de l'enregistrement de réglage des paramètres de paramètres->
<% Si page <> pagenum alors
lablenum = rs1.pagesize
autre
lableNum = num- (page-1) * rs1.pagesize
terminer si
pour i = 1 au labenum
%>
<TrbgColor = # ffffff>
<Td height = 25> <div align = Center> <% = (rs1.fields.item (id). Valeur)%> </div> </td>
<td> <div align = Center> <% = (RS1.Fields.item (nom). Valeur)%> </div> </td>
<Td ＞ <Liv Align = Center> <% = (RS1.Fields.item (adresse). Valeur)%> </div> </td>
<Td> <div align = Center> <% = (RS1.Fields.item (catégorie). Valeur)%> </div> </td>
<Td> <div align = Center> <% = (RS1.Fields.item (enfin modifié). Valeur)% ＞ </div> </td>
<Td> <div align = Center> <% = (RS1.Fields.item (personne modifiée). Valeur)% ＞ </div> </td>
</tr>
%
RS1.MoVeNext
suivant
%>
<! - L'enregistrement de la page actuelle est terminé, le code suivant est le code de liaison de liaison d'enregistrement
<Table largeur = 70% border = 0 align = Center CellPadding = 0 CellSpacing = 0>
<tr>
<Td height = 35>
<Liv align = droite>
<Font Color = # 333333>
Il y a <% = num%> un lien |
<A href = linkadmin.asp?
<% Si la page ＞ 1% ＞ <a href = linkadmin.asp?
<% Page <Pagenum alors% ＞ <a href = linkadmin.asp?
<A href = linkadmin.asp?
Page: <% = page% ＞ / <% = Pagenum%> Page |
<% = Page Pagenum>
</font>
</div>
</td>
</tr>
</ Table>
<! - Enregistrez le code de codage lié de la collection de pages, l'ensemble d'enregistrements est d'exécuter le code suivant lorsqu'il est vide->
<% Else%>
<TrbgColor = # ffffff>
<Td height = 25 colspan = 6> <div align = Center ＞ <% réponse.Write (aucun résultat ne peut être affiché!)%>
</div> </td>
</tr>
%
terminer si
Rs1.close ()
Définir RS1 = rien
%>