复制代码代码如下:
<%
page = trim(请求(“ page”))
maxperpage = 40
首先= true
last = true
dimrs
setrs = server.createobject(“ adodb.recordset”)
sql =“ selectid,title,add1,cartype,isred,enterdate,hitsfromnewnewswhereclasStype = 0andpass = 1 orderbyiddesc”
Rs.Opensql,Conn,1,1
rs.pagesize = maxperpage
总计= Rs.PageCount
iflen(page)= 0
intpage = 1
首先= false
别的
ifcint(page)<= 1,然后
intpage = 1
首先= false
别的
ifcint(page)> = rs.pagecountthen
intpage = rs.pagecount
last = false
别的
intpage = cint(page)
Endif
Endif
Endif
ifnotrs.eofthen
rs.absolutepage = intpage
Endif
fora = 1tomaxperpage
ifrs.eofthenexitfor
%>
<tr <%if(amod2)= 0
响应。写入“ bgcolor =#ffffff”
别的
响应。写入“ bgcolor =#f6f6f6”