复制代码代码如下:
<%
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"