Vor kurzem wurde die Website überarbeitet und stellte fest, dass die Originalseite keine Zahlen enthielt, nur die Startseite, die letzte Seite, die nächste Seite und der ausgewählte Sprung zuvor, aber jetzt ist die beliebteste, dass sich die Nummernseite in der Mitte befindet, die gerade recherchiert und freigegeben wird. Freunde, die es brauchen, können sich darauf beziehen.
Wirkung:
Fremdkerncode:
Die Codekopie lautet wie folgt:
<%
'Digg Style Paginationskript in ASP .. geschrieben von Moazam ... http://www.moazam.com/2007/03/30/aspdigg-style-pagination-script/
Funktion GetPaginationString (Seite, TotalItems, Limit, benachbarte, targetPage)
'Standard
Wenn nicht ist nicht typisch (benachbarte), dann benachbarent = 1 Ende, wenn
Wenn nicht ist es nicht, (Grenze) zu limitieren = 15 Ende, wenn
Wenn nicht isnumeric (Seite), dann Seite = 1 Ende, wenn
wenn targetPage = "" dann targetPage = "/" Ende wenn
margin = ""
Polster = ""
'Andere Uni
prev = Seite - 1'Previous Seite ist Seite - 1
NextPage = Seite + 1'NextPage -Seite ist Seite + 1
LastPage = Ceil (TotalItems, Limit) 'LastPage ist = Gesamtelemente / Elemente pro Seite, abgerundet.
LPM1 = LastPage - 1'Last -Seite minus 1
„Jetzt wenden wir unsere Regeln an und zeichnen das Paginierungsobjekt.
„Wir speichern den Code tatsächlich in einer Variablen, falls wir ihn mehr als einmal zeichnen möchten.
Pagination = ""
Wenn Last Page> 1 dann
Pagination = Pagination & "<Divpagination" ""
Wenn der Rand <> "" oder die Polsterung <> "" dann
Pagination = Pagination & "Style =" "" "
Wenn Rand <> "" dann
Pagination = Pagination & "Rand: Rand"
Ende wenn
Wenn die Polsterung <> "" dann
Pagination = Pagination & "Polsterung: Polsterung"
Ende wenn
Pagination = Pagination & "" ""
Ende wenn
Pagination = Pagination & ">"
'Vorheriger Taste
Wenn Seite> 1 dann
pagination = pagination & "<a href =" "" & targetPage & "& page =" & prev & "" "> pre </a>"
anders
Pagination = Pagination & "<Spandisabled" "> prev </span>"
Ende wenn
'Seiten
Wenn Last Page <7 + (benachbarte * 2) dann genügend Seiten, um beide aufzubrechen
Für Zähler = 1 bis Last Page
Wenn counter = Seite dann