การเพจแบบโมดูลาร์
1. บล็อกคำสั่งแบบสอบถาม
<%
รับชื่อไฟล์ปัจจุบัน
temp = แยก (request.ServerVariables ("URL"), "/")
fy = อุณหภูมิ(UBound(อุณหภูมิ))
ตั้งค่า rs=server.createobject("adodb.recordset")
หากไม่ isempty(request("page")) แล้ว
จำนวนหน้า=cint(คำขอ("หน้า"))
อื่น
จำนวนหน้า=1
สิ้นสุดถ้า
sql = "เลือกคำสั่งแบบสอบถาม"
rs.open sql,conn,1,1
rs.pagesize=10 จำนวนบันทึกเพจ
ถ้า pagecount>rs.pagecount หรือ pagecount<=0 แล้ว
จำนวนหน้า=1
สิ้นสุดถ้า
ถ้า rs.eof และ rs.bof แล้ว%>
<div align="center" class="001"><br>
ขออภัย ไม่มีบันทึกที่ตรงกับเกณฑ์การค้นหา! <br>
</div>
2. แสดงบล็อกบันทึก
<%
อื่น
rs.AbsolutePage=จำนวนหน้า
ทำในขณะที่ไม่ใช่ rs.eof %>
บันทึกที่แสดง
<% i=i+2
rs.movenext
ถ้า i>=rs.PageSize ให้ออกจากทำ
วนซ้ำ
'www.downcodes.com'
%>
3.
เอฟเฟกต์การแบ่งหน้า
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<% ถ้า rs.pagecount=1 แล้ว %>
<td height="35" colspan="4" class=001><font color="#000000">มี [<font color="#ff0000"><%=rs.recordcount%></font>] ทั้งหมด ข้อมูลที่แสดงอยู่ในปัจจุบันคือ <font color="red">1~<%=rs.recordcount%></font></font></td>
</tr>
<tr>
<%อื่น%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(จำนวนหน้า-1)*rs.pagesize
ถ้า pagecount=1 แล้ว page_start=1
page_end=rs.pagesize*จำนวนหน้า
ถ้า pagecount*rs.pagesize=>rs.recordcount แล้ว page_end=rs.recordcount สิ้นสุดถ้า%>
ข้อมูล [<font color="#ff0000"><%=rs.recordcount%></font>] ทั้งหมด</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
-
ถ้าจำนวนหน้า>5 และจำนวนหน้า< rs.PageCount-5 และ rs.pagecount>10 แล้ว
qizu=จำนวนหน้า-4
นาที=จำนวนหน้า+5
response.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>หน้าแรก</font></a> "
response.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>หน้าก่อนหน้า</font></a> "
สำหรับ ipage=qizu ถึง min
ถ้า ipage<>pagecount แล้ว
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
อื่น
response.write "<font color='#FF0000'>"&ipage&"</font> "
สิ้นสุดถ้า
ต่อไป
response.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>หน้าถัดไป</font></a> "
response.write"<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>หน้าสุดท้าย</font></a>"
สิ้นสุดถ้า
ถ้า rs.PageCount<11 แล้ว
สำหรับ ipage=1 ถึง rs.PageCount
ถ้า ipage<>pagecount แล้ว
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
อื่น
response.write "<font color='#FF0000'>"&ipage&"</font> "
สิ้นสุดถ้า
ต่อไป
สิ้นสุดถ้า
ถ้าจำนวนหน้า < 6 และ rs.PageCount>10 แล้ว
สำหรับ ipage=1 ถึง 10
ถ้า ipage<>pagecount แล้ว
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
อื่น
response.write "<font color='#FF0000'>"&ipage&"</font> "
สิ้นสุดถ้า
ต่อไป
response.write "<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>หน้าสุดท้าย</font></a>"
สิ้นสุดถ้า
ถ้า pagecount>rs.PageCount-6 และ rs.PageCount>10 แล้ว
response.write "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>หน้าแรก</font></a> "
สำหรับ ipage=rs.PageCount-9 ถึง rs.PageCount
ถ้า ipage<>pagecount แล้ว
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
อื่น
response.write "<font color='#FF0000'>"&ipage&"</font> "
สิ้นสุดถ้า
ต่อไป
สิ้นสุดถ้า
-
</font></td><form name=go2to form method=โพสต์การกระทำ=<%=fy%>>
<td width="13%" align="center" valign="middle" class="fy">
<input type='hidden' name='sortid' value="<%=sortid%>"><input type='hidden' name='typeid' value="<%=typeid%>"><input type= 'hidden' name='qylb' value="<%=qylb%>"><input type='hidden' name='title' value="<%title%>"><input type='hidden' name= 'cityid' value="<%=cityid%>"><font color='000064'> ไปที่ <input type='text' name='page' size=2 maxLength=3>
หน้า</font>
</td>
<td width="10%" align="center" valign="middle" class="fy"><input name="image" type='image' onClick=check() value='OK' src='. ./images/button_h.jpg'></td>
</แบบฟอร์ม>
<tr>
<td height="20" colspan="6" valign="bottom"><font color="#000000"> </font></td>
</tr>
<% สิ้นสุดถ้า %>
<% สิ้นสุดถ้า %>
</ตาราง>