复制代码代码如下:
<%
page = trim (request ("page"))
maxperpage = 40
First = true
Последний = правда
Dimrs
setrs = server.createObject ("adodb.recordset")
sql = "selectId, title, add1, artype, isred, enterdate, hitsfromnewnewn
Rs.opensql, Conn, 1,1
rs.pearsize = 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
последний = false
еще
intpage = cint (page)
эндиф
эндиф
эндиф
ifnotrs.eofthen
rs.absolutepage = intpage
эндиф
FORA = 1tomaxperpage
ifrs.eofthenexitfor
%>
<tr <%if (amod2) = 0then
response.write "bgcolor =#ffffff"
еще
response.write "bgcolor =#f6f6f6"