复制代码代码如下:
<%
page = trim (demande ("page"))
maxperpage = 40
d'abord = vrai
dernier = vrai
diminue
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
d'abord = faux
autre
ifcint (page) <= 1Then
intpage = 1
d'abord = faux
autre
ifcint (page)> = Rs.pageCountThen
intpage = Rs.PageCount
dernier = faux
autre
intpage = Cint (page)
endire
endire
endire
ifnotrs.eofthen
Rs.Absolutepage = IntPage
endire
fora = 1TomaxPerpage
ifrs.eofthenexitfor
%>
<tr <% if (AMOD2) = 0Then
réponse.write "bgcolor = # ffffff"
autre
Response.Write "bgColor = # f6f6f6"