复制代码代码如下:
<%
halaman = trim (permintaan ("halaman"))
Maxperpage = 40
pertama = benar
terakhir = 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 (halaman) = 0then
intpage = 1
pertama = false
kalau tidak
ifcint (halaman) <= 1then
intpage = 1
pertama = false
kalau tidak
ifcint (halaman)> = rs.pagecountthen
intpage = rs.pagecount
terakhir = false
kalau tidak
intpage = cint (halaman)
endif
endif
endif
IFNOTRS.EOFTHEN
rs.Absolutepage = intpage
endif
forum = 1Tomaxperpage
ifrs.eofthenexitfor
%>
<tr <%if (amod2) = 0then
response.write "bgcolor =#ffffff"
kalau tidak
response.write "bgcolor =#f6f6f6"