عادة ما يتم استخدام وظيفة الترحيل البسيطة

复制代码代码如下:

<٪

الصفحة = trim (طلب ("صفحة")))

maxperpage = 40

أولا = صحيح

الأخير = صحيح

Dimrs

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

sql = "selectid ، title ، add1 ، cartype ، isred ، enterdate ، hitsfromNewSwhereClasStype = 0andPass = 1OrderByidDesc"

Rs.Opensql ، Conn ، 1،1

rs.pagesize = maxperpage

TotalPage = Rs.PageCount

iflen (صفحة) = 0then

intPage = 1

أولا = خطأ

آخر

ifcint (صفحة) <= 1th

intPage = 1

أولا = خطأ

آخر

IFCINT (صفحة)> = rs.pageCountthen

intPage = rs.pageCount

الماضي = خطأ

آخر

intPage = cint (صفحة)

Endif

Endif

Endif

ifnotrs.eofthen

rs.absolutepage = intPage

Endif

fora = 1TomaxperPage

ifrs.eofthenexitfor

٪>

<tr <٪ if (amod2) = 0then

استجابة. write "bgColor =#ffffff"

آخر

استجابة. write "bgColor =#f6f6f6"