复制代码代码如下::
<%
Seite = trim (request ("Seite"))
MaxperPage = 40
zuerst = wahr
last = true
dimrs
setrs = server.createObject ("adodb.recordset")
SQL = "SelectId, Titel, Add1, Cartype, Isred, Enterdate, hitsFromNewNewHhereClasstype = 0andpass = 1OrderByIdDesc"
Rs.opensql, Conn, 1,1
rs.pageSize = maxperpage
TotalPage = Rs.PageCount
iflen (Seite) = 0Then
intpage = 1
zuerst = falsch
anders
ifcint (Seite) <= 1Then
intpage = 1
zuerst = falsch
anders
ifcint (Seite)> = Rs.PageCountThen
intpage = rs.pageCount
last = false
anders
intpage = cint (Seite)
Endif
Endif
Endif
ifnotrs.eofthen
Rs.absolutepage = intpage
Endif
fora = 1Tomaxperpage
ifrs.eofthenexitfor
%>
<tr <%if (amod2) = 0Then
response.write "bgcolor =#ffffff"
anders
response.write "bgcolor =#f6f6f6"