复制代码代码如下:
<%
Página = Trim (request ("página"))
maxPage = 40
primeiro = verdadeiro
último = true
Dimrs
setrs = server.createObject ("adodb.recordset")
SQL = "SelectId, Title, Add1, Cartype, Isred, EnterDate, HitsFromNewNewSwhereClasStype = 0AndPass = 1OrderByidDesc"
Rs.opensql, Conn, 1,1
rs.pagesize = maxPage
TotalPage = Rs.Pagecount
iflen (página) = 0then
intpage = 1
primeiro = falso
outro
ifcint (página) <= 1hen
intpage = 1
primeiro = falso
outro
ifcint (página)> = rs.pageCountThen
intpage = rs.pagecount
último = false
outro
intpage = cint (página)
endif
endif
endif
ifnotrs.eofthen
rs.absolutePage = intpage
endif
FORRA = 1TOMAXPERPAGE
ifrs.eofthenexitfor
%>
<tr <%if (amod2) = 0hen
Response.Write "bgcolor =#ffffff"
outro
Response.Write "bgcolor =#f6f6f6"