<!-#include File = "conn.asp"->
<%
"Der folgende Teil besteht darin, zu überprüfen, ob die eingereichte Seite ein rechtlicher Parameter ist
"Dieser Teil ist am besten zu bestimmen, ob der eingereichte Parameter ein Wertzeichen ist
Dim Page
Seite = trim (request ("Seite")
Wenn Seite = "" dann
Seite = 1
Elseif cint (Seite) <= 0 dann
Seite = 1
anders
Seite = cint (Seite)
Ende wenn
"Anfrage, nehmen Sie den Datensatz heraus, den Sie anzeigen möchten
Dim Rs, SQL, str
Setzen Sie rs = server.createObject ("adodb.oldset")
SQL = "Select * aus a1"
Rs.oopen SQL, Conn, 1,3
wenn nicht rs.eof dann
STR = RS ("A1")
Ende wenn
Rs.close
Setzen Sie Rs = nichts
"Geben Sie die aufgezeichneten Datensätze in das Array ein
Dimes Strtmp
STRTMP = Split ((str), "<br>"))
"Entfernen Sie den zu angezeigten Datensatz und erhalten Sie gleichzeitig die Anzahl der Seiten
Dim N, TMP, I, J, TT
n = 500
I = 0
J = 0
Tun, während ich <= uborder (strtmp)
Tmp = strtmp (i)
Tt = true
Tun, während tt
Wenn i> = Ubound (STRTMP) dann
Tt = false
J = J 1
Elseif len (tmp)> = n der
Tt = false
J = J 1
Elseif len (tmp) len (strtmp (i 1))> = n Dann
Tt = false
J = J 1
Anders
Tmp = tmp "<br>" strtmp (i 1)
i = i 1
Ende wenn
Schleife
Wenn Seite = j dann Str = TMP "<br>"
i = i 1
Schleife
"Bestimmen Sie, ob die Parameter der Übertragung den Grenze überqueren. Wenn Sie den Grenze überqueren, erhalten Sie den Inhalt der letzten Seite
Wenn Seite> j dann
STR = TMP
Ende wenn
"Zeigen Sie den Paging -Inhalt an
"Achten Sie auf die Parameter des Durchgangs, nur die Seite wird hier übergeben. Wenn andere Parameter zusammen übergeben werden, wird es sonst nicht nach dem Paging angezeigt.
response.write "Paging->" "" "
Für n = 1 bis j
Wenn n = Seite dann
Antwort.Write "& nbsp;" & n & "& nbsp;"
anders
response.write "[<a href = index.asp? page =" & n & ">" & n & "</a>]
Ende wenn
Nächste
response.write "<br> <br>" ""
"Zeigen Sie diesen Teil dieses Teils des zu angezeigten Inhalts an
Antwort.Write str
%>