<! - # Inclure file = "Conn.asp" ->
<%
"La partie suivante consiste à vérifier si la page soumise est un paramètre juridique
"Cette partie est préférable de déterminer si le paramètre soumis est un caractère de valeur
Sombre
Page = trim (demande ("page")
Si page = "" alors
page = 1
Elseif Cint (page) <= 0 alors
page = 1
autre
Page = Cint (page)
Terminer si
"Enquête, retirez le dossier que vous souhaitez afficher
DIM RS, SQL, STR
Set rs = server.createObject ("adodb.oldset")
Sql = "select * from a1"
Rs.OOPEN SQL, Conn, 1,3
Si ce n'est pas Rs.Eof alors
str = rs ("a1")
Terminer si
Rs.Close
Définir RS = rien
"Mettez les enregistrements enregistrés dans le tableau
StrTMP DIM
strtMp = Split ((str), "<br>"))
"Supprimer l'enregistrement à afficher et obtenir le nombre de pages en même temps
Dim n, tmp, i, j, tt
n = 500
i = 0
j = 0
Faire pendant que je <= uborder (strtmp)
Tmp = strtmp (i)
Tt = vrai
Faire pendant que TT
Si i> = ubound (strtmp) alors
Tt = false
J = J 1
Elseif len (tmp)> = n le
Tt = false
J = J 1
Elseif len (tmp) len (strtmp (i 1))> = n alors
Tt = false
J = J 1
Autre
Tmp = tmp "<br>" strtmp (i 1)
i = i 1
Terminer si
Boucle
Si page = j alors str = tmp "<br>"
i = i 1
Boucle
"Déterminez si les paramètres de la transmission traversent la bordure, si vous traversez la bordure, vous obtiendrez le contenu de la dernière page
Si page> J alors
str = tmp
terminer si
"Afficher le contenu de pagination
"Faites attention aux paramètres du passage, seule la page est passée ici. S'il y a d'autres paramètres à passer ensemble, sinon il ne sera pas affiché après la pagination.
réponse.write "Paging->" "" "
Pour n = 1 à j
Si n = page alors
Response.Write "& nbsp;"
autre
réponse.write "[<a href = index.asp? Page =" & n & ">" & n & "</a>]
terminer si
Suivant
réponse.WRITE "<br> <br>" "
"Montrez cette partie de cette partie du contenu à afficher
réponse.WRITE STR
%>