复制代码代码如下:
<%
page=trim(request("page"))
maxperpage=40
first=true
last=true
dimrs
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
else
ifcint(page)<=1then
intpage=1
first=false
else
ifcint(page)>=rs.pagecountthen
intpage=rs.pagecount
last=false
else
intpage=cint(page)
endif
endif
endif
ifnotrs.eofthen
rs.absolutepage=intpage
endif
fora=1tomaxperpage
ifrs.eofthenexitfor
%>
<tr<%if(amod2)=0then
response.write"bgcolor=#ffffff"
else
response.write"bgcolor=#f6f6f6"