复制代码代码如下：
<％
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”