-
'ชื่อฟังก์ชั่น: showpage
'ฟังก์ชั่น: แสดงข้อมูลเช่น "หน้าก่อนหน้าหน้าถัดไป"
'พารามิเตอร์: sfilename ---- ที่อยู่ลิงค์
'TotalNumber --- จำนวนทั้งหมด
'MaxPerpage ---- จำนวนของแต่ละหน้า
'showtotal ---- จำนวนทั้งหมดจะแสดงหรือไม่
'showallpages-ไม่ว่าจะแสดงหน้าทั้งหมดด้วยรายการแบบเลื่อนลงสำหรับการเปลี่ยนเส้นทาง ไม่สามารถใช้บางหน้าไม่เช่นนั้นจะเกิดข้อผิดพลาด JS
'Strunit ---- การนับหน่วย
'ค่าส่งคืน: รหัส HTML สำหรับข้อมูลเช่น "หน้าก่อนหน้าหน้าถัดไป"
-
FunctionShowPage (sfilename, TotalNumber, MaxPerpage, showtotal, showallpages, strunit)
dimtotalpage, strtemp, strurl, i
iftoTalNumber = 0ORMAXPERPAGE = 0ORISNULL (MAXPERPAGE) จากนั้น
showpage = ""
exitfunction
endif
IftotalNumberModMaxPerPage = 0 แล้ว
TotalPage = TotalNumber/MaxPerpage
อื่น
TotalPage = TotalNumber/MaxPerpage+1
endif
ifcurrentPage> TotalPagetHenCurrentPage = TotalPage
strtemp = "<tablealign = 'center'> <tr> <td>"
ifshowTotal = truethen
strtemp = strtemp & "共 <b>" & totalnumber & "</b>" & strunit & ""
endif
strurl = Joinchar (sfilename)
ifcurrentPage <2 จากนั้น
strtemp = strtemp & "หน้าแรกหน้าก่อนหน้า"
อื่น
strtemp = strtemp & "<ahref = '" & strurl & "หน้า = 1'> หน้าแรก </a>"
strtemp = strtemp & "<ahref = '" & strurl & "page =" & (currentpage-1) & "'> หน้าก่อนหน้า </a>"
endif
ifcurrentPage> = TotalPagethen
strtemp = strtemp & "หน้าถัดไปหน้าสุดท้าย"