<!-#รวม file = "conn.asp"->
-
"ส่วนต่อไปนี้คือการตรวจสอบว่าหน้าส่งเป็นพารามิเตอร์ทางกฎหมาย
"ส่วนนี้ดีที่สุดในการพิจารณาว่าพารามิเตอร์ที่ส่งเป็นอักขระค่า
หน้ามืด
หน้า = ตัดแต่ง (คำขอ ("หน้า")
ถ้า page = "" แล้ว
หน้า = 1
elseif cint (หน้า) <= 0 จากนั้น
หน้า = 1
อื่น
หน้า = cint (หน้า)
สิ้นสุดถ้า
"สอบถามบันทึกบันทึกที่คุณต้องการแสดง
Dim Rs, SQL, Str
ตั้งค่า rs = server.createObject ("adoDb.oldset"))
sql = "เลือก * จาก a1"
Rs.oopen SQL, Conn, 1,3
ถ้าไม่ใช่ rs.eof แล้ว
str = rs ("A1")
สิ้นสุดถ้า
Rs.close
ตั้งค่า rs = ไม่มีอะไร
"ใส่บันทึกที่บันทึกไว้ในอาร์เรย์
สลัว strtmp
strtmp = split ((str), "<br>")))
"ลบบันทึกที่จะแสดงและรับจำนวนหน้าในเวลาเดียวกัน
Dim n, tmp, i, j, tt
n = 500
i = 0
J = 0
ทำในขณะที่ฉัน <= uborder (strtmp)
tmp = strtmp (i)
tt = true
ทำในขณะที่ tt
ถ้าฉัน> = ubound (strtmp) แล้ว
tt = false
J = J 1
elseif len (tmp)> = n
tt = false
J = J 1
elseif len (tmp) len (strtmp (i 1))> = n แล้ว
tt = false
J = J 1
อื่น
tmp = tmp "<br>" strtmp (i 1)
ฉัน = ฉัน 1
สิ้นสุดถ้า
วง
ถ้า page = j ดังนั้น str = tmp "<br>"
ฉัน = ฉัน 1
วง
"ตรวจสอบว่าพารามิเตอร์ของการส่งกำลังข้ามเส้นขอบหรือไม่ถ้าคุณข้ามพรมแดนคุณจะได้รับเนื้อหาของหน้าสุดท้าย
ถ้าหน้า> j แล้ว
str = tmp
สิ้นสุดถ้า
"แสดงเนื้อหาเพจ
"ให้ความสนใจกับพารามิเตอร์ของการผ่านหน้าเท่านั้นจะถูกส่งผ่านที่นี่หากมีพารามิเตอร์อื่น ๆ ที่จะผ่านเข้าด้วยกันมิฉะนั้นจะไม่แสดงหลังจากการเพจ
Response.write "Paging->" ""
สำหรับ n = 1 ถึง J
ถ้า n = หน้าแล้ว
Response.write "& nbsp;" & n & "& nbsp;"
อื่น
Response.write "[<a href = index.asp? page =" & n & ">" & n & "</a>]
สิ้นสุดถ้า
ต่อไป
Response.write "<br> <br>" "
"แสดงส่วนนี้ของส่วนนี้ของเนื้อหาที่จะแสดง
Response.Write Str
-