复制代码代码如下:
<%
Page = TRIM (request ("Página"))
maxperpage = 40
Primero = verdadero
Último = verdadero
dimrs
setrs = server.createObject ("ADODB.Recordset")
sql = "selectid, title, add1, cartype, isred, enterDate, hitsFromNeWNeWNewSwhereClasSstype = 0andpass = 1erDERYIDDESC"
Rs.opensql, Conn, 1,1
rs.pagesize = maxperpage
TotalPage = Rs.PageCount
iflen (página) = 0then
intpage = 1
Primero = falso
demás
ifcint (página) <= 1Then
intpage = 1
Primero = falso
demás
ifcint (página)> = rs.pagecountthen
intpage = rs.pageCount
Último = falso
demás
intpage = cint (página)
endif
endif
endif
ifnotrs.eofthen
rs.absolutePage = intpage
endif
fora = 1TomaxperPage
IfRs.EofThenexitFor
%>
<tr <%if (amod2) = 0then
Response.write "bgcolor =#ffffff"
demás
Response.write "bgcolor =#f6f6f6"