複製代碼代碼如下：
<％
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”