Когда программисты PHP пишут код программы, они обычно используют функцию лиц. Код на самом деле такой же, как написание документов Word. Далее, пусть редактор «Ошибка Новой технологии» вынуждена узнать о методах, когда программисты пишут функции страниц. Кода -копия выглядит следующим образом:
<%
page = trim (request ("page"))
MapperPage = 40
First = true
Последний = правда
Dim Rs
Установить rs = server.createObject ("adodb.recordset")
SQL = "SELECT ID, TITCH, ADD1, CARTIPE, ISRED, ENTERDATE, попадает из новостей, где ClasStype = 0 и Pass = 1 Порядок по id desc"
Rs.open SQL, Conn, 1,1
rs.pearsize = maxperpage
TotalPage = Rs.PageCount
Если len (page) = 0, то
intPage = 1
First = false
еще
Если cint (page) <= 1 тогда
intPage = 1
First = false
еще
Если cint (page)> = rs.pagecount, тогда
intpage = rs.pagecount
последний = false
еще
intpage = cint (page)
конец, если
конец, если
конец, если
Если не rs.eof, то
rs.absolutepage = intpage
конец, если
для A = 1 для mapperpage
Если ref, то выйдите для
%>
еще
response.write "bgcolor =#f6f6f6"
конец, если
%>>
<%= a%>
<%add = rs ("add1")
Подстроение добавить, 4
%>
"target =" _ Blank ">
<%
Если rs ("isred") = true then
%>
<%title = rs ("title")
Название подстроения, 20
%>
<%еще
title = rs ("title")
Название подстроения, 20
%>
<%
конец, если
%>
<%= rs ("artype")%>
<%theTime = rs ("enterdate")
их = datepart ("m", theTime)
Если Лен (Тамон) <2, то themon = "0" & themon
theday = datepart ("D", theTime)
Если Лен (THEDAY) <2, то THEDAY = "0" & THEDAY
there = themon & "-" & theday
Ответ. Напишите
%>
<%= rs ("хиты")%>
<%
Rs.movenext
Если ref, то выйдите для
следующий
%>
< %Если Rs.pagecount> 0, тогда %>
В общей сложности <%= rs.recordCount%> | Текущая страница <%= intpage%>/
<%
= rs.pagecount%>
< % end, если %>
<%Если intpage> 1, то%>
?
Page = 1 "> домашняя страница
<%else%>
Первая страница
<%конец, если%>
<%Если сначала, то%>
?
page = <%= intpage-1%> "> предыдущая страница
<%else%>
Предыдущая страница
<%конец, если%>
<%, если последнее и intpage
?
page = <%= intpage+1%> "> Следующая страница
<%else%>
Следующая страница
<%конец, если%>
<%, если INTPAGE
?
page = <%= rs.pagecount%> "> Последняя страница
<%else%>
Последняя страница
<%конец, если%>
Идти в
[this.selectedIndex] .value ">
<%для b = 1 до Rs.pagecount
Если b = intpage, то%>
? Page = <%= b%> »выбрано>
Страница <%= b%>
< % else %>
? Page = <%= b%> "> Page <%= b%>
<%end if
следующее%>
<%
Rs.close
Установить RS = ничего
Conn.close
установить conn = ничего
%>> Тогда%>> Тогда%>>>>>>
Благодаря редактору «Нового технологического канала ошибки», я считаю, что у каждого есть определенное понимание методов программистов, пишущих функции пейджинга. Если вам нужно знать больше связанной информации, пожалуйста, продолжайте обращать внимание на новую технологическую канал ошибки!