ไม่มีวิธีปกติในการวนรอบ TD ภายในลูป TR ดังนั้นจำนวนชุดระเบียนในหน้าสุดท้ายจะไม่ถูกคำนวณ
อย่างไรก็ตามเมื่อชุดระเบียนไม่เพียงพอก็สามารถเติมเต็มแถวและคอลัมน์ที่ว่างเปล่าโดยอัตโนมัติ หากมีข้อบกพร่องใด ๆ โปรดชี้ให้เห็นขอบคุณ
วิธีการใช้นั้นง่ายมาก:
การคัดลอกรหัสมีดังนี้:
-
showdata ("ชื่อคำถาม")
Callpagehead (จำนวนแถวคอลัมน์)
-
'คุณสามารถเขียนคำตอบต่อไปนี้เขียน () ลงในฟังก์ชั่นเพื่อดูงานอดิเรกส่วนตัวของคุณ
Response.write (formatcrtable (ความกว้างของตาราง, ความสูงของตาราง)))
Response.write (pagefoot ())
callclosedata ()
-
ฟังก์ชั่นมีดังนี้:
การคัดลอกรหัสมีดังนี้:
-
-
'Copyright2005ByJorkin.AllrightSreserved
-
การสาธารณะ
PublicPageno, Cols, แถว, Maxpageno, MaxredCount, MaxPagesize
-
PublicFunctionShowData (SQLSTRINGS)
setRs = server.createObject ("adodb.recordset"))
Rs.opensqlstrings, Oconn, 1,3
endfunction
publicfunctionclosedata ()
Rs.close
setrs = ไม่มีอะไร
endfunction
'เริ่มต้นการปนเปื้อน
'maxrows = จำนวนสูงสุดของแถว
'maxCols = จำนวนคอลัมน์สูงสุด
-
PublicFunctionPagehead (Maxrows, MaxCols)
-
แถว = maxrows
cols = maxcols
maxPagesize = 1
MaxredCount = 0
maxpageno = 0
pageno = 0
-
MaxredCount = Rs.RecordCount
ifmaxredCount> 0 แล้ว
maxPagesize = rows*cols
maxpageno = cint ((MaxredCount+MaxPagesize-1)/MaxPagesize)
rs.pagesize = maxPagesize
pageno = คำขอ ("pageno")
ifisempty (pageno) Ornotisnumeric (pageno) orcint (pageno) <1orcint (pageno)> rs.pagecountthen
Pageno = 1
endif
Rs.absolutePage = pageno
endif
onerrorresumenext
endfunction
'ส่วนท้ายของฟังก์ชันหน้า
'ไม่มีพารามิเตอร์
-
PublicFunctionPageFoot ()