-
-
'XdownPageasp เวอร์ชัน
'เวอร์ชัน 1.00
'codybyzykj2000
'อีเมล: [email protected]
'BBS: http: //bbs.513soft.net
'โปรแกรมนี้สามารถใช้และแก้ไขได้ฟรี ฉันหวังว่าโปรแกรมของฉันจะนำความสะดวกมาสู่งานของคุณ
'แต่โปรดเก็บไว้ข้างต้นโปรดปฏิเสธ
-
คุณสมบัติของโปรแกรม
'โปรแกรมนี้ส่วนใหญ่ห่อหุ้มส่วนการเพจข้อมูลและส่วนการแสดงข้อมูลจะถูกปรับแต่งโดยผู้ใช้อย่างสมบูรณ์
'สนับสนุนพารามิเตอร์ URL หลายตัว
-
'คำแนะนำสำหรับการใช้งาน
'คำอธิบายพารามิเตอร์โปรแกรม
'Papgesize กำหนดจำนวนระเบียนสำหรับแต่ละหน้าของหน้าเพจ
'getrs ส่งคืน recordset เพจคุณสมบัตินี้จะอ่านได้เท่านั้น
'GetConn ได้รับการเชื่อมต่อฐานข้อมูล
'GetSql ได้รับคำสั่งแบบสอบถาม
'คำอธิบายวิธีโปรแกรม
'Showpage แสดงแถบการนำทางหน้าซึ่งเป็นวิธีการสาธารณะเพียงอย่างเดียว
-
-
constbtn_first = "<fontface =" "webdings" "> 9 </font>" 'กำหนดรูปแบบการแสดงปุ่มหน้าแรก
constbtn_prev = "<fontface =" "webdings" "> 3 </font>" 'กำหนดรูปแบบการแสดงปุ่มในหน้าก่อนหน้า
constbtn_next = "<fontface =" "webdings" "> 4 </font>" 'กำหนดรูปแบบการแสดงปุ่มหน้าถัดไป
constbtn_last = "<fontface =" "webdings" ">: </font>" 'กำหนดรูปแบบการแสดงปุ่มหน้าสุดท้าย
constxd_align = "center" 'กำหนดการจัดตำแหน่งของข้อมูลเพจ
constxd_width = "100%" 'กำหนดขนาดของกล่องข้อมูลเพจ
classxdownpage
privatexd_pagecount, xd_conn, xd_rs, xd_sql, xd_pagesize, str_errors, int_curpage, str_url, int_totalpage, int_totalrecord, xd_surl
-
'PAGESIZE PROPERTY
'ตั้งขนาดหน้าสำหรับแต่ละหน้า
-
PublicPropertyletPagesize (int_pagesize)
ifisnumeric (int_pagesize) จากนั้น
xd_pagesize = clng (int_pagesize)
อื่น
str_error = str_error & "พารามิเตอร์หน้าไม่ถูกต้อง"
อาบน้ำ ()
endif
ปลายทาง
publicpropertygetPagesize
ifxd_pagesize = "" หรือ (ไม่ใช่ (isnumeric (xd_pagesize))) แล้ว
PAGESIZE = 10
อื่น
PAGESIZE = XD_PAGESIZE
endif
ปลายทาง
-
'ทรัพย์สิน getrs
'กลับไปที่ชุดเร็กคอร์ดเพจ
-
PublyPropertyGetTrs ()
setxd_rs = server.createObject ("adodb.recordset"))