复制代码代码如下：
<％
page = trim（request（ "page"））
maxperpage = 40
first = true
last = true
薄暗い
setrs = server.createObject（ "adodb.recordset"）
sql = "selectid、title、add1、cartype、isred、enterdate、hitsfromnewnewswhereclasStype = 0andPass = 1ORDERBYIDDESC"
rs.opensql、conn、1,1
rs.pagesize = maxperpage
TotalPage = rs.PageCount
iflen（page）= 0then
intpage = 1
first = false
それ以外
ifcint（page）<= 1then
intpage = 1
first = 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）= 0then
respons.write "bgcolor =＃ffffff"
それ以外
Response.write "bgcolor =＃f6f6f6"