複製代碼代碼如下:
<%
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”