Der folgende Absatz ist der grundlegende Paging -Code:
＜% SQL = "SELECT ………………………… aus SQL Anweisung Set rs = server Seiten können in total Seite geteilt werden. wird hier ausgegeben …………… ＜ % Seiten = Seiten - 1 Rs.Movenext Schleife sonst Antwort.
Das System hat die Daten bereits gepackt. Schauen wir uns die Definition der Paginierungsfunktion an, die diesmal diskutiert wird.
＜% sub pageurl (purl) dim eurl txts = request.servervariables ("url") txts = links (txts, instrrev (txts, "/", len (tXts)-1) Eurl = "http: //"; & Request.servervariables ("server_name") & txts für i = 1 to allpages txt = "" txt = "＜ strong>" txt = txt & "＜ a href =" & eurl & purl & "page =" & i & ">" if i = cint (Seite). Cint (Seite) dann txt = txt & "＜/font>" txt = txt & "＜/a> ∥ ＜ ＜/strong>" Antwort.Write (txt) Nächstes Ende Sub %>Speichern Sie die obige Paginierungsfunktionscodekopie in eine ASP -Datei. Verwenden Sie die Einführung in die Seite, die Sie verwenden müssen, um es zu rufen, wenn er angerufen wird ("/der Dateiname, den Sie angerufen haben?"), Ist in Ordnung. Wenn Sie es beispielsweise auf meiner Nachrichtenseite anrufen möchten, ist es <%Call ("/news.asp?")%>
Was wir gerade gesehen haben, ist begrenzt, was bedeutet, dass im ersten Code -Stück, mit Ausnahme des SQL -Abfrageinhalts und der Ausgabeinhalte, die anderen Variablen, die den Datensatzsatz deklarieren, nicht geändert werden können, sonst können sie nicht ausgeführt werden. Tatsächlich ist dieses Programm irrelevant. Das Wichtigste ist, dass diese Paginationsfunktion in jedem ASP -Blatt aufgerufen werden kann.