ฉันจะโพสต์ซอร์สโค้ดของคลาสการเพจก่อน จากนั้นฉันจะโพสต์ตัวอย่างบางส่วนเพื่ออธิบายการใช้งานและวิธีขยายฟังก์ชันของมันเมื่อฉันมีเวลา
รหัสดั้งเดิมของคลาสมีดังนี้:
< %
-
'เวอร์ชัน XDOWNPAGE ASP
'เวอร์ชันปัจจุบัน: 2.0
-
-
'เวอร์ชันดั้งเดิม 1.00
'รหัสโดย zykj2000
'อีเมล์: [email protected]
บีบีเอส: http://bbs.513soft.net
-
-
'เวอร์ชันอัปเกรด: 1.5 (asp + oracle)
อัปเดตเป็นสองเท่า
อีเมล:
บล็อก: ttp://blog.csdn.net/double/
'คำแนะนำในการอัพเกรด:
-
-
'เวอร์ชันอัปเกรด: 2.0' (asp + oracle) ---->เวอร์ชันปัจจุบัน
'คงชื่อเดิม: XDOWNPAGE'
อัปเดตโดยนอร์ธสโนว์
อีเมล์: [email protected]
'บล็อก: http://blog.csdn.net/precipitant
'คำแนะนำในการอัพเกรด:
'1 เมื่อทำการสืบค้นข้อมูล ระบบจะสืบค้นเฉพาะบันทึกที่มีอยู่ในหน้าปัจจุบัน ซึ่งช่วยลดปริมาณการรับส่งข้อมูลได้อย่างมาก
'2 หากการนำทางหน้าเป็นเรื่องปกติ คุณไม่จำเป็นต้องค้นหาจำนวนระเบียนทั้งหมดทุกครั้ง ตราบใดที่คุณค้นหาเป็นครั้งแรกแล้วส่งผ่านพารามิเตอร์
'3 รองรับการเปลี่ยนแปลงขนาดหน้าแบบไดนามิก
'4 รองรับการเรียงลำดับแบบไดนามิก
'5 โปรแกรมนี้รองรับเฉพาะ oracle เท่านั้น หากคุณต้องการใช้ใน sqlserver หรือฐานข้อมูลประเภทอื่น โปรดแก้ไขด้วยตนเอง: Public Property Let GetSQL(str_sql)
-
-
'สำหรับข้อมูลตัวแก้ไขโปรแกรมอื่นๆ โปรดตรวจสอบในซอร์สโค้ด! - -
'โปรแกรมนี้สามารถใช้ แก้ไข คัดลอก ทำซ้ำ และเสนอราคาได้ฟรี ฉันหวังว่าโปรแกรมของฉันจะนำความสะดวกสบายมาสู่งานของคุณ
'แต่กรุณาเก็บข้อมูลข้างต้นไว้โดยเฉพาะข้อมูลเดิม' นอกจากนี้หากนำไปใช้ในเชิงพาณิชย์กรุณาอัพเกรดด้วยผลงานต้นฉบับและเวอร์ชั่นนี้ครับ
'ติดต่อขอรับสิทธิ์.
-
-
'คุณสมบัติของโปรแกรม
'โปรแกรมนี้ส่วนใหญ่สรุปส่วนเพจข้อมูลและส่วนการแสดงข้อมูลจะถูกปรับแต่งโดยผู้ใช้โดยสมบูรณ์
'สนับสนุนพารามิเตอร์ URL หลายรายการ
-
'คำแนะนำในการใช้งาน
'คำอธิบายพารามิเตอร์ของโปรแกรม
'PapgeSize กำหนดจำนวนเรคคอร์ดในแต่ละหน้าของเพจ
'GetRS ส่งคืนชุดระเบียนที่มีการแบ่งหน้า คุณสมบัตินี้เป็นแบบอ่านอย่างเดียว
'GetConn ได้รับการเชื่อมต่อฐานข้อมูล
'GetSQL ได้รับคำสั่งแบบสอบถาม
'totalRecordCount ผ่านจำนวนบันทึกทั้งหมด
' คำอธิบายวิธีการของโปรแกรม
'ShowPage จะแสดงแถบนำทางเพจซึ่งเป็นวิธีการสาธารณะเพียงวิธีเดียว
'ShowPageSizeChange() แสดงรายการขนาดหน้าที่เปลี่ยนแปลง
-
'ตัวอย่าง:
-
' 'รวมไฟล์
-
'ตั้งค่า mypage=new xdownpage 'สร้างวัตถุ'
'mypage.getconn=conn 'รับการเชื่อมต่อฐานข้อมูล
' mypage.getsql="select * จาก productinfo เรียงลำดับตาม id asc"
' mypage.pagesize=5 'ตั้งค่าบันทึกข้อมูลของแต่ละเพจเป็น 5
'mypage.totalRecordCount=rsTotalCount ตั้งค่าจำนวนเรคคอร์ดทั้งหมด
'set rs=mypage.getrs() 'ส่งคืนชุดระเบียน
'mypage.GetSubmitForm="frmQuery" 'แบบฟอร์มที่ส่งโดยค่าเริ่มต้นสำหรับการเพจ พารามิเตอร์ currentpage
'Response.write(mypage.GetSubmitForm1()) 'ฟังก์ชันการส่งเพจเอาท์พุต
' mypage.showpage() 'แสดงข้อมูลเพจ สามารถใช้หลังจากตั้งค่า rs=mypage.getrs()
'โทรที่ไหนก็โทรได้หลายครั้ง'
' do while not rs.eof 'การดำเนินการถัดไปจะเหมือนกับการดำเนินการกับอ็อบเจ็กต์ Recordset ธรรมดา
' ตอบกลับเขียน rs(0) & "
' " 'คุณสามารถปรับแต่งวิธีการแสดงผลได้ที่นี่
rs. ย้ายต่อไป
' วนซ้ำ
-
'เพิ่มสคริปต์การส่งเพื่อบันทึกหมายเลขหน้าปัจจุบัน
'ฟังก์ชันคือ GetSubmitForm()
'จำเป็นต้องส่งชื่อแบบฟอร์มไปยังฟังก์ชัน GetSubmitForm'
'บันทึกสี่พารามิเตอร์ของแฟล็กตัวแปร, หน้าปัจจุบัน, ขนาดหน้า, rsTotalCount ในแบบฟอร์มที่ส่งมานี้
'ตัวอย่างดังต่อไปนี้
'ธง=คำขอ("ธง")
'currentpage=request("หน้าปัจจุบัน")
'currentpage=request("ขนาดหน้า")
'currentpage=request("rsTotalCount")
'เพิ่มอินพุตสี่รายการต่อไปนี้ลงในแบบฟอร์มที่ส่งมา
'<input name="flag" type="hidden" value="< % =flag% >">
'<input name="currentpage" type="hidden" value="< % =currentpage% >">
'<input name="pagesize" type="hidden" value="< % =pagesize% >">
'<input name="rsTotalCount" type="hidden" value="< % =rsTotalCount% >">
'==============================================
Const Btn_First= "<font face=""webdings"">9</font>" 'กำหนดรูปแบบการแสดงปุ่มในหน้าแรก
Const Btn_Prev="<font face=""webdings"">3</font>" 'กำหนดรูปแบบการแสดงปุ่มหน้าก่อนหน้า
Const Btn_Next="<font face=""webdings"">4</font>" 'กำหนดรูปแบบการแสดงปุ่มหน้าถัดไป
Const Btn_Last="<font face=""webdings"">:</font>" 'กำหนดรูปแบบการแสดงปุ่มหน้าสุดท้าย
Const XD_Align="center" 'กำหนดการจัดตำแหน่งของข้อมูลเพจ
Const XD_Width="100%" 'กำหนดขนาดของกล่องข้อมูลเพจ
Const XD_Height = "20"
Class Xdownpage 'คลาสเริ่มต้นที่นี่
' คำจำกัดความของตัวแปร
สาธารณะ int_totalPage 'จำนวนหน้าทั้งหมด'
public int_curcount 'จำนวนบันทึกในหน้าปัจจุบัน'
สาธารณะ XD_PageSize 'ขนาดหน้า'
int_curpage ส่วนตัว 'หมายเลขหน้าปัจจุบัน'
int_totalRecord ส่วนตัว 'จำนวนบันทึกทั้งหมด
XD_Conn ส่วนตัว 'วัตถุการเชื่อมต่อฐานข้อมูล
ส่วนตัว XD_Rs 'วัตถุชุดบันทึก
คำสั่ง sql หลัก XD_SQL ส่วนตัว
ส่วนตัว XD_Count_SQL 'คำสั่ง SQL เพื่อสอบถามจำนวนบันทึกทั้งหมด
Str_errors ส่วนตัว
str_URL ส่วนตัว
XD_sURL ส่วนตัว
แบบฟอร์มส่งส่วนตัว 'ชื่อแบบฟอร์มการสืบค้นที่จำเป็น (ซ่อนชื่อแบบฟอร์ม)
'=================================================' = ================
'คุณสมบัติขนาดหน้า'
'กำหนดขนาดเพจของแต่ละหน้า'
'=================================================' = ================
ทรัพย์สินสาธารณะให้ PageSize(int_PageSize)
ถ้า IsNumeric(Int_Pagesize) แล้ว
ถ้า clng(Int_Pagesize)>0 แล้ว
XD_PageSize=CLng(int_PageSize)
อื่น
XD_PageSize=10
สิ้นสุดถ้า
อื่น
XD_PageSize=10
สิ้นสุดถ้า
End Property
ทรัพย์สินสาธารณะรับ PageSize
ถ้า XD_PageSize="" หรือ (ไม่ใช่ (IsNumeric(XD_PageSize))) จากนั้น
ขนาดหน้า=10
อื่น
ขนาดหน้า=XD_ขนาดหน้า
สิ้นสุดถ้า
สิ้นสุดคุณสมบัติ
'=================================================' = ================
'คุณสมบัติ GetRS'
'ส่งคืนชุดระเบียนที่มีการแบ่งหน้า
'=================================================' = ================
ทรัพย์สินสาธารณะรับ GetRs()
ตั้งค่า XD_Rs=Server.createobject("adodb.recordset")
'XD_Rs.PageSize=ขนาดหน้า
XD_Rs.CursorLocation=3
XD_Rs เปิด XD_SQL,XD_Conn,3,1
int_curcount=XD_Rs.บันทึกนับ
ถ้า int_totalRecord="" หรือไม่ isNumeric(int_totalRecord) ดังนั้น int_totalRecord=0 'ทำให้ค่าของ int_totalRecord เป็นปกติ
ถ้า int_totalRecord=0 และ (int_curcount>=PageSize หรือ int_curpage>1) ให้เรียก queryRsCount() 'สอบถามจำนวนบันทึกทั้งหมด
ถ้า err.number<>0 แล้ว
ตอบกลับ เขียนผิด ล้าง
สิ้นสุดถ้า
ตั้งค่า GetRs=XD_RS
คุณสมบัติสุดท้าย
'============================================== = =================
'วิธีการสอบถาม RSCount
'สอบถามจำนวนบันทึกทั้งหมด
'=================================================' = ================
แบบสอบถามย่อยสาธารณะRsCount()
'รหัสต่อไปนี้ใช้ในการคำนวณจำนวนบันทึกทั้งหมด
ถ้า XD_Count_SQL<>"" แล้ว
ตั้งค่า rs_sqlcount=server.createobject("adodb.recordset")
rs_sqlcount.CursorLocation=3
rs_sqlcount.open XD_Count_SQL,conn,3,1
ถ้า (rs_sqlcount.eof และ rs_sqlcount.bof) แล้ว
int_totalRecord=0
อื่น
int_totalRecord=rs_sqlcount(0)
int_totalRecord=clng(int_totalRecord)
สิ้นสุดถ้า
rs_sqlcount.ปิด
ตั้งค่า rs_sqlcount=nothing
สิ้นสุดถ้า
จบย่อย
'=============================================== = =================
'GetConn ได้รับการเชื่อมต่อฐานข้อมูล
-
'=================================================' = ===============
ทรัพย์สินสาธารณะให้ GetConn (obj_Conn)
ตั้งค่า XD_Conn=obj_Conn
คุณสมบัติสุดท้าย
'============================================== = ================
'GetSQL ได้รับคำสั่งแบบสอบถาม
-
'=================================================' = ===============
ทรัพย์สินสาธารณะให้ GetSQL (str_sql)
ถ้า (str_sql<>"") แล้ว
'ตามคำสั่งการสืบค้นที่กำหนด ให้สร้างคำสั่งการสืบค้นขั้นสุดท้าย (ใช้เฉพาะเนื้อหาของหน้าปัจจุบันเท่านั้น): เหมาะสำหรับฐานข้อมูล Oracle
XD_SQL=" select * from (เลือก rownum r_n,temptable.* จาก ("
XD_SQL=XD_SQL&str_sql
XD_SQL=XD_SQL&" ) temptable ) โดยที่ r_n ระหว่าง " & cstr((int_curpage -1) * XD_PageSize +1) & " และ " & cstr(int_curpage * XD_PageSize)
'คำสั่งแบบสอบถามเพื่อสอบถามจำนวนบันทึกทั้งหมด
XD_Count_SQL="เลือกจำนวน(*) จาก ("& str_sql & ")"
สิ้นสุดถ้า
สิ้นสุดคุณสมบัติ
'=================================================' = ===============
'คุณสมบัติ GetSubmitForm กำหนดแบบฟอร์มสำหรับเงื่อนไขการสืบค้น
-
'=================================================' = ===============
ทรัพย์สินสาธารณะ ให้ GetSubmitForm(frmName)
ส่งแบบฟอร์ม=trim(frmName)
คุณสมบัติสุดท้าย
'============================================== = ================
'เมธอด GetSubmitForm1 ส่งออกสคริปต์ที่จำเป็นสำหรับการนำทางเพจ
-
'=================================================' = ===============
สาธารณะย่อย GetSubmitForm1()
'ฟังก์ชัน Javascript ของการนำทางหน้า
การตอบกลับเขียน " "+vrcrlf
Response.Write ("<ภาษาสคริปต์=""javascript"">") +vbcrlf
Response.Write " ฟังก์ชั่นทั่วไปส่ง(i)"+vbcrlf
การตอบกลับเขียน " {"+vbcrlf
Response.Write " document."&SubmitForm&".flag.value=""query1111111155555"";"+vbcrlf
Response.Write " document."&SubmitForm&".currentpage.value=i;"+vbcrlf
Response.Write " "&SubmitForm&".submit();"+vbcrlf
การตอบกลับเขียน " }"+vbcrlf
'ฟังก์ชันจาวาสคริปต์เพื่อเปลี่ยนขนาดหน้า'
Response.Write " ฟังก์ชัน changePageSize(ii)"+vbcrlf
การตอบกลับเขียน " {"+vbcrlf
Response.Write " document."&SubmitForm&".flag.value=""query1111111155555"";"+vbcrlf
Response.Write " document."&SubmitForm&".currentpage.value=1;"+vbcrlf
Response.Write " document."&SubmitForm&".pagesize.value=ii;"+vbcrlf
Response.Write " "&SubmitForm&".submit();"+vbcrlf
Response.Write " }"+vbcrlf
Response.Write ("</Script>")+vbcrlf
การตอบกลับเขียน " "+vrcrlf
จบย่อย
'=============================================== = ===================
'คุณสมบัติ TotalRecordCount'
'เกี่ยวกับจำนวนบันทึกทั้งหมด
-
'=================================================' = =================
ทรัพย์สินสาธารณะ ให้ TotalRecordCount(int_totalRecordCount)
ถ้า IsNumeric(int_totalRecordCount) แล้ว
int_totalRecord=CLng(int_totalRecordCount)
สิ้นสุดถ้า
สิ้นสุดทรัพย์สิน
ทรัพย์สินสาธารณะ รับ TotalRecordCount
ถ้าไม่ใช่(int_totalRecord="" หรือ (ไม่ใช่(IsNumeric(int_totalRecord)))) จากนั้น
TotalRecordCount=int_totalRecord
สิ้นสุดถ้า
สิ้นสุดคุณสมบัติ
'=================================================' = =================
'วิธีการ GetRecordCount
'ส่งคืนจำนวนระเบียนปัจจุบัน
-
'=================================================' = =================
ฟังก์ชั่นสาธารณะ GetRecordCount()
GetRecordCount=int_totalRecord
ฟังก์ชั่นสิ้นสุด
'=================================================' = =================
'Class_Initialize การเริ่มต้นคลาส
'เริ่มต้นค่าของหน้าปัจจุบัน
-
'=================================================' = =================
คลาสย่อยส่วนตัว_เริ่มต้น
-
'ตั้งค่าเริ่มต้นสำหรับพารามิเตอร์บางตัว
-
' XD_PageSize=10 'ตั้งค่าเริ่มต้นของเพจเป็น 10
-
'รับค่าปัจจุบัน'
-
ถ้า Request("currentpage")="" แล้ว
int_curpage=1
ElseIf not(IsNumeric(Request("currentpage"))) จากนั้น
int_curpage=1
ElseIf CInt(Trim(Request("currentpage")))<1 จากนั้น
int_curpage=1
อื่น
Int_curpage=CInt(ตัดแต่ง(คำขอ("หน้าปัจจุบัน")))
สิ้นสุด ถ้า
สิ้นสุดย่อย
'============================================= =
'ShowPage สร้างแถบนำทางเพจ
'มีทั้งหน้าแรก หน้าก่อน หน้าถัดไป หน้าสุดท้าย และการนำทางแบบดิจิทัล
-
-
ShowPage ย่อยสาธารณะ()
หรี่แสง str_tmp
XD_sURL = GetUrl()
' int_totalRecord=XD_Rs.RecordCount
ถ้า int_totalRecord<=0 แล้ว
str_error=str_error & "จำนวนบันทึกทั้งหมดเป็นศูนย์ กรุณาป้อนข้อมูล"
โทรแสดงข้อผิดพลาด()
สิ้นสุดถ้า
ถ้า int_totalRecord="" แล้ว
int_TotalPage=1
อื่น
'แก้ไขโดย wls 041215 สำหรับการแสดงหน้าที่ถูกต้อง ---------------
ถ้า int_totalRecord mod PageSize =0 แล้ว
int_TotalPage = CLng(int_TotalRecord XD_PageSize * -1) *-1
อื่น
int_TotalPage = CLng(int_TotalRecord XD_PageSize * -1)*-1+1
สิ้นสุดถ้า
สิ้นสุดถ้า
ถ้า Int_curpage>int_Totalpage แล้ว
int_curpage=int_TotalPage
สิ้นสุด ถ้า
'============================================== = ========
'แสดงข้อมูลเพจ แต่ละโมดูลจะเปลี่ยนตำแหน่งการแสดงผลตามความต้องการของตัวเอง
'=================================================' = =======
'response.write " "
str_tmp=ShowFirstPrv
การตอบกลับเขียน str_tmp
str_tmp=showNumBtn
การตอบกลับเขียน str_tmp
str_tmp=แสดงถัดไปสุดท้าย
การตอบกลับเขียน str_tmp
str_tmp=ShowPageInfo
การตอบกลับเขียน str_tmp
การตอบกลับเขียน " "
ShowGoto
จบย่อย
-
'ShowFirstPrv แสดงหน้าแรกและหน้าก่อนหน้า
-
-
-
ฟังก์ชั่นส่วนตัว ShowFirstPrv()
Dim Str_tmp,int_prvpage
ถ้า int_curpage=1 แล้ว
str_tmp=Btn_First&" "&Btn_Prev
Elseif int_curpage=0 แล้ว
str_tmp=Btn_First&" "&Btn_Prev
อื่น
int_prvpage=int_curpage-1
str_tmp="<a href=""#"" onclick=""javascript:generalSubmit('1')"" alt=""First Page"">" & Btn_First&"</a> <a href="" # "" onclick=""javascript:generalSubmit('"&int_prvpage&"')"" alt=""หน้าก่อนหน้า"">" & Btn_Prev&"</a>"
สิ้นสุดถ้า
ShowFirstPrv=str_tmp
สิ้นสุดฟังก์ชัน
'==============================================
'ShowNextLast หน้าถัดไป, หน้าสุดท้าย'
-
-
-
ฟังก์ชั่นส่วนตัว ShowNextLast()
Dim str_tmp,int_Nextpage
ถ้า Int_curpage>=int_totalpage แล้ว
str_tmp=Btn_ถัดไป & " " & Btn_Last
อื่น
Int_NextPage=int_curpage+1
str_tmp="<a href=""#"" onclick=""javascript:generalSubmit('"&int_nextpage&"')"" alt=""Nextpage"">" & Btn_Next&"</a> <a href= "" #"" onclick=""javascript:generalSubmit('"&int_totalpage&"')"" alt=""หน้าสุดท้าย"">" & Btn_Last&"</a>"
สิ้นสุดถ้า
ShowNextLast=str_tmp
ฟังก์ชันสิ้นสุด
'ฟังก์ชันสิ้นสุด
-
'ShowNumBtn แก้ไขการนำทางตัวเลข
-
-
ฟังก์ชั่น showNumBtn()
หรี่ i,str_tmp,end_page,start_page
start_page=1
'เพิ่มโดย sll 2005.05.20 int_curpage=0
ถ้า int_curpage=0 แล้ว
str_tmp=str_tmp&"0"
อื่น
ถ้า int_curpage>1 แล้ว
start_page=int_curpage
ถ้า (int_curpage<=5) แล้ว
start_page=1
สิ้นสุดถ้า
ถ้า (int_curpage>5) แล้ว
start_page=int_curpage-2
สิ้นสุดถ้า
สิ้นสุดถ้า
end_page=start_page+5
ถ้า end_page>int_totalpage แล้ว
end_page=int_totalpage
สิ้นสุดถ้า
สำหรับ i=start_page ถึง end_page
strTemp=XD_sURL & CStr(i)
str_tmp=str_tmp & "[<a href=""#"" onclick=""javascript:generalSubmit('"&i&"')"">"&i&"</a>] "
ต่อไป
สิ้นสุดถ้า
showNumBtn=str_tmp
สิ้นสุดฟังก์ชัน
'==============================================
'แสดงการข้ามหน้า ShowGoto
'หน้าจะกระโดดโดยอัตโนมัติ
'เพิ่มโดย sll 2005.05.20
-
ฟังก์ชั่นส่วนตัว ShowGoto()
'response.write int_totalPage
ดิมินติ
ถ้า int_totalPage<=0 แล้ว
response.write "<select name='goto' ปิดการใช้งาน>"
การตอบสนองเขียน "<option value='0'>0</option>"
response.write "</select>"
else
response.write "<select name='goto' onchange='javascript:generalSubmit(this.value)'>"
สำหรับ inti=1 ถึง int_totalPage
Response.Write "<option value='"&inti&"'"
ถ้า cstr(inti)=cstr(int_curpage) แล้ว
ตอบกลับเขียนว่า "เลือกแล้ว"
สิ้นสุดถ้า
response.write">"&inti&"</option>"
ต่อไป
response.write "</select>"
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ข้อมูลเพจ ShowPageInfo'
'ปรับเปลี่ยนได้ตามต้องการ
-
-
ฟังก์ชั่นส่วนตัว ShowPageInfo()
หรี่แสง str_tmp
str_tmp=" [หน้า:<font color=red>"&int_curpage&"</font>/"&int_totalpage&"] [รวม "&int_totalrecord&" รายการ] ["&XD_PageSize&" รายการ/หน้า]"
ShowPageInfo=str_tmp
ฟังก์ชันสิ้นสุด
-
'ShowPageSizeChange เปลี่ยนขนาดหน้า
'ปรับเปลี่ยนได้ตามต้องการ
-
-
ShowPageSizeChange() ย่อยสาธารณะ
หรี่แสง str_tmp
str_tmp="ขนาดหน้า: <select name='sssssPageSize' onchange='changePageSize(this.value)'>"
str_tmp=str_tmp & "<ตัวเลือก"
ถ้า XD_PageSize=10 ดังนั้น str_tmp =str_tmp & " เลือก "
str_tmp=str_tmp & " value='10'>10</option>"
str_tmp=str_tmp & "<ตัวเลือก"
ถ้า XD_PageSize=20 ดังนั้น str_tmp =str_tmp & " เลือก "
str_tmp=str_tmp & " value='20'>20</option>"
str_tmp=str_tmp & "<ตัวเลือก"
ถ้า XD_PageSize=50 ดังนั้น str_tmp =str_tmp & " เลือก "
str_tmp=str_tmp & " value='50'>50</option>"
str_tmp=str_tmp & "<ตัวเลือก"
ถ้า XD_PageSize=int_totalRecord ดังนั้น str_tmp =str_tmp & " เลือก "
str_tmp=str_tmp & "value='" & int_totalRecord & "'>ทั้งหมด</option>"
str_tmp=str_tmp & "</ เลือก>"
การตอบสนองเขียน str_tmp
จบย่อย
'==============================================
'ฟังก์ชั่นที่แก้ไขเพื่อรับพารามิเตอร์ Url ปัจจุบัน
'การเขียนโค้ดโดย Redsun'
'ความคิดเห็น northsnow: ไม่รู้จะใช้อันไหนแต่เก็บไว้'
-
ฟังก์ชั่นส่วนตัว GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?" 'รับที่อยู่ปัจจุบัน
ถ้า (Request.QueryString <> "") จากนั้น
M_ItemUrl = ""
สำหรับแต่ละรายการ M_item ใน Request.QueryString
ถ้า InStr("page",M_Item)=0 แล้ว
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
สิ้นสุดถ้า
ต่อไป
ScriptAddress = ScriptAddress & M_ItemUrl 'รับที่อยู่พร้อมพารามิเตอร์
สิ้นสุดถ้า
GetUrl = ที่อยู่สคริปต์ '& "หน้า ="
ฟังก์ชันสิ้นสุด
-
'ตั้งค่าเหตุการณ์ยุติ
-
Class_Terminate ย่อยส่วนตัว
'XD_RS.ปิด
'ตั้งค่า XD_RS=ไม่มีอะไร'
จบหมวดย่อย
-
'ข้อความแสดงข้อผิดพลาด ShowError
-
ข้อผิดพลาดการแสดงย่อยส่วนตัว ()
หาก str_Error <> "" ดังนั้น
การตอบกลับเขียน ("" & SW_Error & "")
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
จบ
หมวดย่อย จบคลาส
-