Cuando los programadores de PHP escriben el código del programa, generalmente usan la función de paginación. El código es en realidad el mismo que escribir documentos de Word. A continuación, deje que el editor de la nueva tecnología de error lo lleve a aprender sobre los métodos de los programadores que escriben funciones de paginación. La copia del código es la siguiente:
<%
Page = TRIM (request ("Página"))
mapperpage = 40
Primero = verdadero
Último = verdadero
Dim RS
establecer rs = server.createObject ("ADODB.Recordset")
SQL = "Seleccionar ID, Título, Add1, Cartype, ISred, Enterdate, golpea de noticias donde Classtype = 0 y pase = 1 Orden por ID DESC"
Rs.open SQL, Conn, 1,1
rs.pagesize = maxperpage
TotalPage = Rs.PageCount
Si len (página) = 0 entonces
intpage = 1
Primero = falso
demás
Si cint (página) <= 1 entonces
intpage = 1
Primero = falso
demás
if cint (página)> = rs.pageCount entonces
intpage = rs.pageCount
Último = falso
demás
intpage = cint (página)
final si
final si
final si
Si no es RS.EOF entonces
rs.absolutePage = intpage
final si
para a = 1 a mapperpage
Si rs.Eof entonces salga por
%>
demás
Response.write "bgcolor =#f6f6f6"
final si
%>>
<%= a%>
<%add = rs ("add1")
Subcanding, 4
%>
"Target =" _ en blanco ">
<%
Si rs ("isred") = verdadero entonces
%>
<%title = rs ("title")
Título de la subcadena, 20
%>
<%más
Title = RS ("Título")
Título de la subcadena, 20
%>
<%
final si
%>
<%= RS ("Cartype")%>
<%thetime = rs ("Enterdate")
ellos = DatePart ("M", Thetime)
Si len (themon) <2 entonces themon = "0" & themon
theday = datePart ("d", thetime)
Si len (theday) <2 entonces theday = "0" & theday
Ther = themon & "-" & theday
respuesta. Escribe el
%>
<%= rs ("golpes")%>
<%
Rs.Movenext
Si rs.Eof entonces salga por
próximo
%>
< %si rs.pageCount> 0 entonces %>
Hay un total de <%= Rs.RecordCount%> | Página actual <%= intpage%>/
<%
= rs.pageCount%>
< % final si %>
<%if intpage> 1 entonces%>
?
página = 1 "> Página de inicio
<%else%>
página delantera
<%final si%>
<%si primero entonces%>
?
Page = <%= intpage-1%> "> página anterior
<%else%>
Página anterior
<%final si%>
<%si el último e intpage
?
Page = <%= intpage+1%> "> Página siguiente
<%else%>
Página siguiente
<%final si%>
<%si intpage
?
Page = <%= Rs.PageCount%> "> Última página
<%else%>
Última página
<%final si%>
Ir a
[this.selectedIndex] .Value ">
<%para b = 1 a rs.pagecount
Si b = intpage entonces%>
? página = <%= b%> "seleccionado>
Página <%= b%>
< % else %>
? página = <%= b%> "> página <%= b%>
<%final si
Siguiente%>
<%
rs.
establecer RS = nada
Conn.clar
establecer conn = nada
%>> Entonces%>> luego%>>>>>
A través del editor del canal de tecnología de New Technology Error, creo que todos tienen una cierta comprensión de los métodos de los programadores que escriben funciones de paginación. Si necesita conocer más información relacionada, continúe prestando atención al canal de tecnología de nuevo error.