-
ถ้า rs1.rcordcount＞ 0 ชุดบันทึกไม่ว่างและบันทึกกระบวนการ
rs1.pagesize = 10 'ตั้งค่าจำนวนระเบียนที่แสดงต่อหน้า
num = rs1.rcordcount 'ทั้งหมด
pagenum = rs1.pagecount 'จำนวนทั้งหมด
หน้า = คำขอ (หน้า) 'รับข้อมูลดั้งเดิมของหมายเลขหน้า
'จุดเริ่มต้นของข้อมูลดั้งเดิมของหมายเลขหน้าประมวลผล!
ถ้าหน้า <> จากนั้น
หน้า = cint (หน้า)
ถ้า err.number <> 0 แล้ว
err.lear
หน้า = 1
สิ้นสุดถ้า
ถ้าหน้า <1 แล้ว
หน้า = 1
สิ้นสุดถ้า
อื่น
หน้า = 1
สิ้นสุดถ้า
ถ้าหน้า*rs1.pagesize＞ num และไม่ใช่ ((หน้า 1)*rs1.pagesize <num)
หน้า = 1
สิ้นสุดถ้า
'จุดสิ้นสุดของข้อมูลดั้งเดิมของหมายเลขหน้าประมวลผล! ตั้งค่าหมายเลขหน้าปัจจุบัน
RS1.ABSOLUTEPAGE = PAGE
-
<!-ตรวจสอบว่าหน้าปัจจุบันเป็นหน้าสุดท้ายหรือไม่และการแสดงผลซ้ำของบันทึกการตั้งค่าของการตั้งค่าการตั้งค่า->
<% ถ้าหน้า <> pagenum แล้ว
lablenum = rs1.pagesize
อื่น
lablenum = num- (page-1)*rs1.pagesize
สิ้นสุดถ้า
สำหรับ i = 1 ถึง lablenum
-
<trbgColor =#ffffff>
<td height = 25> <div align = center> <%= (rs1.fields.item (id) ค่า)%> </div> </td>
<td> <div align = center> <%= (rs1.fields.item (ชื่อ). ค่า)%> </div> </td>
<td＞ <liv align = center> <%= (rs1.fields.item (ที่อยู่). ค่า)%> </div> </td>
<td> <div align = center> <%= (rs1.fields.item (หมวดหมู่). ค่า)%> </div> </td>
<td> <div align = center> <%= (rs1.fields.item (แก้ไขในที่สุด). ค่า)%＞ </div> </td>
<td> <div align = center> <%= (rs1.fields.item (บุคคลที่แก้ไขแล้ว) ค่า)%＞ </div> </td>
</tr>
-
Rs1.Movenext
ต่อไป
-
<!-บันทึกของหน้าปัจจุบันสิ้นสุดลงรหัสต่อไปนี้คือรหัสลิงก์ชุดลิงก์บันทึก->
<ความกว้างของตาราง = 70% border = 0 Align = center cellpadding = 0 cellspacing = 0>
<tr>
<td ความสูง = 35>
<liv allign = ขวา>
<font color =#3333333>
มี <%= num%> ลิงค์ |
<a href = linkadmin.asp?
<%ถ้าหน้า＞ 1 จากนั้น%＞ <a href = linkadmin.asp?
<%ถ้าหน้า <pagenum จากนั้น%＞ <a href = linkadmin.asp?
<a href = linkadmin.asp? page = <%= pagenum%＞> หน้าหาง </a> |
หน้า: <%= หน้า%＞/<%= pagenum%> หน้า |
<%= pagenum%> หน้า
</font>
</div>
</td>
</tr>
</table>
<!-บันทึกรหัสการเข้ารหัสที่เชื่อมโยงของคอลเลกชันของหน้าชุดระเบียนคือการเรียกใช้รหัสต่อไปนี้เมื่อว่างเปล่า->
<%อื่น%>
<trbgColor =#ffffff>
<td height = 25 colspan = 6> <div align = center＞ < % response.write (ไม่สามารถแสดงผลลัพธ์ได้!) %>
</div> </td>
</tr>
-
สิ้นสุดถ้า
rs1.close ()
ตั้งค่า rs1 = ไม่มีอะไร
-