-
'โปรแกรมเพจ
' Total_records จำนวนบันทึกทั้งหมด
' everypage_records แสดงจำนวนบันทึกต่อหน้า
' current_page หมายเลขหน้าปัจจุบัน
' url URL ที่จะส่งผ่าน ซึ่งสามารถมีตัวแปรที่จะส่งผ่าน เช่น "list.asp?" หรือ "list.asp?keyword=key&"
' การเรียกโปรแกรมนั้นค่อนข้างง่าย แต่ก็ยังลำบากกว่า PHP ทำงานหนักต่อไป
sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records)
Total_records=Int(รวม_บันทึก)
อื่น
ผลรวม_บันทึก=0
สิ้นสุดถ้า
ถ้า IsNumeric (ทุกหน้า_records) แล้ว
everypage_records=Int(ทุกหน้า_บันทึก)
ถ้า everypage_records<=0 แล้ว
everypage_records=10
สิ้นสุดถ้า
อื่น
everypage_records=10
สิ้นสุดถ้า
ถ้า IsNumeric (current_page) แล้ว
current_page=Int(ปัจจุบัน_เพจ)
อื่น
current_page=1
สิ้นสุดถ้า
'รับจำนวนหน้าทั้งหมดนั่นคือหน้าสุดท้าย'
ถ้า Total_records mod everypage_records=0 แล้ว
Last_page=Int(total_records/ทุกหน้า_records)
อื่น
Last_page=Int(total_records/everypage_records)+1
สิ้นสุดถ้า
'ตรวจสอบว่า current_page ตรงตามมาตรฐานหรือไม่ และแนบค่าเข้ากับเพจ
ถ้า current_page>=last_page แล้ว
หน้า=last_page
elseif current_page<=1 แล้ว
หน้า=1
อื่น
หน้า=current_page
สิ้นสุดถ้า
'หน้าที่แล้ว
ถ้าหน้า<=0แล้ว
เตรียม=0
อื่น
prepg=หน้า-1
สิ้นสุดถ้า
'หน้าถัดไป
ถ้า page=last_page แล้ว
ถัดไปpg=0
อื่น
ถัดไปpg=หน้า+1
สิ้นสุดถ้า
'เริ่มบันทึกในหน้านี้
firstcount=prepg*ทุกหน้า_records
'สิ้นสุดบันทึกของหน้านี้
ถ้า nextpg>=1 แล้ว
Lastcount=(nextpg-1)*ทุกหน้า_บันทึก
อื่น
Lastcount=total_records
สิ้นสุดถ้า
'เริ่มบาร์โค้ดนำทางเพจ
เพจนาฟ = ""
pagenav1=""
pagenav=pagenav&"แสดง <b>"&firstcount&"-"&lastcount&"</b> บันทึกทั้งหมด <b>"&total_records&"</b> บันทึก"
pagenav1=pagenav1&"แสดง <b>"&firstcount&"-"&lastcount&"</b> บันทึกทั้งหมด <b>"&total_records&"</b> บันทึก"
ถ้าlast_page>1แล้ว
'เมื่อมีหน้าหลัง
pagenav=pagenav&" <a href='"&url&"page=1'>หน้าแรก</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>หน้าแรก</a> "
ถ้า prepg>=1 แล้ว
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>หน้าก่อนหน้า</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>หน้าก่อนหน้า</a> "
อื่น
pagenav=pagenav&" หน้าก่อนหน้า"
pagenav1=pagenav1&" หน้าก่อนหน้า"
สิ้นสุดถ้า
ถ้า nextpg>=1 แล้ว
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>หน้าถัดไป</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>หน้าถัดไป</a> "
อื่น
pagenav=pagenav&" หน้าถัดไป"
pagenav1=pagenav1&" หน้าถัดไป"
สิ้นสุดถ้า
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>หน้าสุดท้าย</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>หน้าสุดท้าย</a> "
pagenav=pagenav&"ไปที่หน้า <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location="""&url&" หน้า = "+text100.value'>"
pagenav=pagenav&" รวม "&last_page&" หน้า"
pagenav1=pagenav1&" ไปยังหน้า <input type=text name=text101 id=text101 value="&page&" size=3><input type=button name=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" รวม "&last_page&" หน้า"
สิ้นสุดถ้า
สิ้นสุดย่อย
-