Quando os programadores do PHP escrevem código do programa, eles geralmente usam a função de paginação. O código é realmente o mesmo que escrever documentos do Word. Em seguida, deixe o editor do erro que a nova tecnologia o levar para aprender sobre os métodos de programadores que escrevem funções de paginação. A cópia do código é a seguinte:
<%
Página = Trim (request ("página"))
MapperPage = 40
primeiro = verdadeiro
último = true
Dim Rs
set rs = server.createObject ("adodb.recordset")
sql = "Selecione ID, título, Add1, Cartype, Isred, Enterdate, Hits From News WHERE CLASSTYPE = 0 E PASS = 1 ORDEM POR ID DEC"
Rs.Open SQL, Conn, 1,1
rs.pagesize = maxPage
TotalPage = Rs.Pagecount
Se Len (página) = 0 então
intpage = 1
primeiro = falso
outro
Se cint (página) <= 1 então
intpage = 1
primeiro = falso
outro
Se cint (página)> = rs.pageCount então
intpage = rs.pagecount
último = false
outro
intpage = cint (página)
final se
final se
final se
se não Rs.eof então
rs.absolutePage = intpage
final se
para A = 1 para mapear
Se rs.eof, então saia para
%>
outro
Response.Write "bgcolor =#f6f6f6"
final se
%>>
<%= a%>
<%add = rs ("add1")
Substring Add, 4
%>
"Target =" _ Blank ">
<%
se rs ("isred") = true então
%>
<%title = rs ("título")
Título da Substring, 20
%>
<%mais
título = rs ("título")
Título da Substring, 20
%>
<%
final se
%>
<%= RS ("Cartype")%>
<%theTime = rs ("Enterdate")
eles = datePart ("m", teto)
Se Len (themon) <2 então themon = "0" e themon
theday = datePart ("d", tetime)
Se Len (theday) <2 então theday = "0" e theday
ther = themon & "-" & theday
Response.Write o
%>
<%= rs ("hits")%>
<%
rs.movenext
Se rs.eof, então saia para
próximo
%>
< %se rs.pagecount> 0 então %>
Há um total de <%= rs.recordCount%> | Página atual <%= intpage%>/
<%
= rs.pagecount%>
< % final se %>
<%se intpage> 1 então%>
?
página = 1 "> página inicial
<%else%>
primeira página
<%final se%>
<%se primeiro então%>
?
página = <%= intpage-1%> "> página anterior
<%else%>
Página anterior
<%final se%>
<%se último e intpage
?
página = <%= intpage+1%> "> Próxima página
<%else%>
Próxima página
<%final se%>
<%se intpage
?
página = <%= rs.pagecount%> "> última página
<%else%>
Última página
<%final se%>
Vá para
[this.SelectedIndex] .Value ">
<%para B = 1 a Rs.Pagecount
Se b = intpage, então%>
? página = <%= b%> "Selecionado>
Página <%= b%>
< % else %>
? página = <%= b%> "> página <%= b%>
<%final se
Próximo%>
<%
rs.close
Defina rs = nada
Conn.Close
Definir conn = nada
%>> então%>> Então%>>>>>>
Através do editor do Erro New Technology Channel, acredito que todos têm um certo entendimento dos métodos de programadores que escrevem funções de paginação. Se você precisar saber mais informações relacionadas, continue prestando atenção ao erro do NOVO TECNOLOGIA!