Verwenden Sie Seitenumbrüche, um lange ASP-Artikel auf Seiten anzuzeigen

„Hier ist der Code für die Paging-Verarbeitung

“ Um auf der sicheren Seite zu sein, verwenden wir die Ersetzungsfunktion, um vor und nach dem Paging-Code ein Leerzeichen in voller Breite einzufügen.

MMText=replace(rs(contents),[ Seite ], [ Seite ] )

MMfText= split(MMText,[ Seite ])

'Ubound-Funktion verwenden, um die Anzahl der zu teilenden Seiten zu ermitteln. Beachten Sie, dass der Indexwert bei 0 beginnt.

contentNum=ubound(MMfText)

page=Clng(request(page))

if page<1 then

page=1

end if

'Um intuitiver auszusehen, setzen wir die Startseite auf 1 und addieren dann 1 zur Gesamtzahl der Seiten,

wenn page>contentNum+1 then

page=contentNum+1

end if

'Ändern Sie die Variable der anzuzeigenden Seite, die Sie aus dem obigen URL-Parameter erhalten haben, und zeigen Sie die Seite in einer Schleife

für i=page

die Antwort zu pagen.write MMfText(i-1)

next

' Paginierung auflisten,

wenn cint(contentNum)>0 then

if page<>1 then

Response.write <a href='text.asp?id=&request(id)&&page=&page-1&'>[Vorherige Seite]</a>

end if

'Denken Sie daran, dass der tiefgestellte Wert von stammt Beginnend bei 0 beginnen wir hier mit dem Paging bei 1 und addieren 1 zur Gesamtsumme

für p=1 zu contentNum+1,

wenn page=p, dann

Response.write <a href='text.asp?id=&request(id)&&page= &p&'> <font color=red>[&p&]</font></a>

else

Response.write <a href='text.asp?id=&request(id)&&page=&p&'>[&p&]</a>

end if

next

if page<>contentNum+1 then

Response.write <a href='text.asp?id=&request(id)&&page=&page+1&'>[next page]</a>

end if

end Wenn

unten Artikel von anderen Websites aufgeführt sind, können Sie auch auf diese verweisen.

Lange Artikelseiten werden mit Seitenumbrüchen angezeigt. Ich möchte ASP verwenden, um diese Funktion zu implementieren, aber ich kann feststellen, dass es nur eine Methode zur Paginierung gibt, die auf der Anzahl der Wörter basiert. Diese Methode weist jedoch einen Fehler auf Wenn Ihr Artikelinhalt UBB-Code enthält, ist dies sehr einfach. Dies führt zu einer Paginierung zwischen [code][/code] oder zerlegt einfach [code] in [co und de], was zu Fehlern in der Artikelanzeige führt.

Die folgenden Schritte machen dies möglich.

Schritt 1:

Folgen Sie dem normalen Artikelsystem. Das Hinzufügen von Artikeln im Hintergrund, das Abrufen von Artikeln und die Detailseiten von Artikeln erfolgen auf die übliche Weise. Eine Beschreibung finden Sie hier. Fügen Sie beim Hinzufügen eines Artikels einen Seitenumbruch an der Stelle ein, an der er eingefügt werden soll: ||| (Natürlich können Sie dieses Symbol auch beiläufig verwenden, z. B.: [ Seite ], &&&, ###, @@@..., solange es nicht dort erscheint, wo der Artikel normalerweise angezeigt werden soll.)

Ich habe vier Seiten verwendet, die Eingabeseite (index.asp) und die Eingabeabschlussseite (Hinzufügen).ASP), Artikellistenseite (View.ASP), Artikelinhaltsseite (Display.ASP), die ersten drei sind Seiten, die nicht verarbeitet werden müssen. Wenn ich mir das Bild unten ansehe, denke ich, dass normale Vögel dies können Machen Sie es. Der Schlüssel ist die letzte A displasy.asp, der gesamte Code zum Implementieren von Paging ist hier.

Schritt 2:

Führen Sie einige Tricks im dynamischen Datenteil des Artikeltextes aus. Nachfolgend finden Sie den Code und die Erklärung:

Kopieren Sie den Code wie folgt:

<%

'Hier müssen wir die empfangenen Paging-Parameter verarbeiten, um den Inhalt welcher Seite anzuzeigen

.' Die folgenden zwei Sätze sollen dafür sorgen, dass die Variable pageNum den Wert der ersten Seite annimmt, wenn kein Seitenparameter übergeben wird: 0

If Request(page)= Then

pageNum=0

'Andernfalls weisen Sie der Variablen den Wert des Parameters in der übergebenen Seite zu

Seiten

anzuzeigenElse

pageNum=Request(page)

End if

%>

<%

'Wenn Sie optionalen Ausführungs-UBB-Code hinzufügen, können Sie den folgenden

Code hinzufügen'rs(NoUBB) ist das Feld in der Datenbank zum Deaktivieren von UBB, 0 bedeutet Deaktivieren, 1 bedeutet Ausführung

Wenn rs(NoUBB)=0 then

'Um Fehler beim Herstellen einer Verbindung zum Artikelinhalt zu vermeiden, verwenden Sie die Funktion Ersetzen, um vor und nach dem Paging-Code ein

Textfeld in

Datenbank hinzufügen, UBB hier hinzufügen oder UBB deaktivieren

Content=Replace((unHTML(rs(content))),|||, ||| )

Elseif rs(NoUBB)=1 then

Content=Replace((ubb(rs(content))),|||, || |. )

End if

%>

<%

'Hier ist der Schlüssel

' Wir verwenden die Split-Funktion, um den Artikel in Abschnitten herauszunehmen und sie in der Variablen content zu speichern

ContentStr=split(Content,|||)

'Entsprechend der Variable, die angezeigt werden soll, die gerade aus dem URL-Parameter erhalten wurde, wird die Seite in einer Schleife angezeigt.

For i=pageNum to pageNum

%>

<!--Dies wird der Textinhalt des Artikels sein-->

<%= ContentStr %>

< % Next %>

</td>

</tr>

<tr>

<td height=30 class=ClassName>Dieser Artikel ist unterteilt in

<%

'Verwenden Sie im Seitenbereich ubound(ContentStr), um zu ermitteln, in wie viele Seiten der Artikel unterteilt ist. Beachten Sie, dass er bei 0 beginnt, sodass die Gesamtzahl der Seiten um 1 addiert werden muss.

Für p = 0 bis ubound(ContentStr )

'Der Link ist immer noch diese Seite, aber der Artikel Ein Paging-Parameter muss nach dem ID-Parameter hinzugefügt werden: page

%>

<a href=display.asp?ID=<%=rsquest(ID)%>&page=<%= p%> class=><%=p+ 1%></a>

Die Seite <% Next %>

ist sehr einfach, wenn alle Kommentare gelöscht werden. Sie muss jedoch noch verarbeitet werden, damit sie die Funktionen zum Hervorheben der vorherigen Seite und der nächsten Seite haben kann aktuelle Seite. Es wird perfekt sein.

Es wurde getestet. Sofern der Seitenumbruch nicht im Artikel erscheint, werden alle Arten von Fehlern nicht schiefgehen. Natürlich können Sie die Anzahl von ||| erhöhen, zum Beispiel: |||||, und das wird auch der Fall sein Es ist in Ordnung, wenn im Artikel sechs oder weniger vorkommen, aber wenn es mehr als sechs sind, wird es einfach einen guten Seitenumbruch geben.