Wenn PHP -Programmierer den Programmcode schreiben, verwenden sie normalerweise die Paginierungsfunktion. Der Code entspricht tatsächlich dem Schreiben von Wortdokumenten. Lassen Sie sich als nächstes von dem Editor der Fehler mit der neuen Technologie über die Methoden der Programmierer informieren, die Paginationsfunktionen schreiben. Die Codekopie lautet wie folgt:
<%
Seite = trim (request ("Seite"))
MapperPage = 40
zuerst = wahr
last = true
Dim Rs
Setzen Sie rs = server.createObject ("adodb.recordset")
SQL = "ID, Titel, add1, cartype, isred, Enterdate, Treffer aus Nachrichten, wobei Classtype = 0 und Pass = 1 Order By ID Desc"
Rs.open SQL, Conn, 1,1
rs.pageSize = maxperpage
TotalPage = Rs.PageCount
Wenn Len (Seite) = 0 dann
intpage = 1
zuerst = falsch
anders
Wenn cint (Seite) <= 1 dann
intpage = 1
zuerst = falsch
anders
Wenn cint (Seite)> = Rs.PageCount dann
intpage = rs.pageCount
last = false
anders
intpage = cint (Seite)
Ende wenn
Ende wenn
Ende wenn
wenn nicht rs.eof dann
Rs.absolutepage = intpage
Ende wenn
für a = 1 bis mapperpage
Wenn rs.eof dann beenden für
%>
anders
response.write "bgcolor =#f6f6f6"
Ende wenn
%>>
<%= a%>
<%add = rs ("add1")
Substring Add, 4
%>
"target =" _ leer ">
<%
Wenn rs ("isred") = wahr ist
%>
<%title = rs ("title")
Substring -Titel, 20
%>
<%sonst
Titel = RS ("Titel")
Substring -Titel, 20
%>
<%
Ende wenn
%>
<%= Rs ("Cartype")%>
<%thetime = rs ("Enterdate")
sie = DatePart ("M", Thetime)
Wenn Len (the theon) <2 dann theon = "0" & theonon
theday = datePart ("D", Thetime)
Wenn Len (theday) <2 dann theday = "0" & theday
ther = theonon & "-" & theday
response.write the
%>
<%= Rs ("Hits")%>
<%
Rs.Movenext
Wenn rs.eof dann beenden für
nächste
%>
< %wenn Rs.PageCount> 0 dann %>
Es gibt insgesamt <%= Rs.RecordCount%> | Aktuelle Seite <%= intpage%>/
<%
= Rs.PageCount%>
< % Ende wenn %>
<%if intpage> 1 dann%>
?
Seite = 1 "> Startseite
<%sonst%>
Titelseite
<%Ende wenn%>
<%wenn zuerst dann%>
?
Seite = <%= intpage-1%> "> Vorherige Seite
<%sonst%>
Vorherige Seite
<%Ende wenn%>
<%wenn zuletzt und intage
?
Seite = <%= intpage+1%> "> nächste Seite
<%sonst%>
Nächste Seite
<%Ende wenn%>
<%if intpage
?
Page = <%= Rs.PageCount%> "> Letzte Seite
<%sonst%>
Letzte Seite
<%Ende wenn%>
Gehen zu
[this.selectedIndex] .Value ">
<%für b = 1 bis rs.PageCount
wenn b = intpage dann%>
? Seite = <%= b%> "Ausgewählt>
Seite <%= b%>
< % sonst %>
Seite = <%= b%> "> Seite <%= b%>
<%Ende wenn
Nächstes%>
<%
rs.close
Setzen Sie Rs = nichts
conn.close
Setzen Sie Conn = nichts
%>> dann%>> dann%> >>>>
Ich glaube, dass jeder über den Herausgeber des Fehlers New Technology Channel ein gewisses Verständnis der Methoden der Programmierer hat, die Paging -Funktionen schreiben. Wenn Sie mehr verwandte Informationen wissen müssen, achten Sie weiterhin auf den Fehler neuer Technologiekanal!