ฟังก์ชั่นการเพจแบบง่าย ๆ มักใช้

复制代码代码如下:

-

Page = Trim (คำขอ ("หน้า"))

MaxPerpage = 40

ครั้งแรก = จริง

สุดท้าย = จริง

หรี่แสง

setRs = server.createObject ("adodb.recordset"))

sql = "selectId, title, add1, cartype, isred, enterdate, hitsFromNewNewherEclasStype = 0andPass = 1OrderByIdDESC"

Rs.opensql, Conn, 1,1

rs.pagesize = maxperpage

TotalPage = Rs.pagecount

iflen (หน้า) = 0 แล้ว

intPage = 1

FIRT = FALSE

อื่น

ifcint (หน้า) <= 1 จากนั้น

intPage = 1

FIRT = FALSE

อื่น

ifcint (หน้า)> = rs.pagecountthen

intPage = rs.pagecount

สุดท้าย = เท็จ

อื่น

intPage = cint (หน้า)

endif

endif

endif

ifnotrs.eofthen

rs.absolutePage = intPage

endif

fora = 1tomaxperpage

ifrs.eofthenexitfor

-

<tr <%ถ้า (amod2) = 0 แล้ว

Response.write "bgcolor =#ffffff"

อื่น

Response.write "bgcolor =#f6f6f6"