'------------------------------------------------ - -------------------------
'ฟังก์ชัน: ป้องกันโค้ด HTML'
'พารามิเตอร์: ข้อมูลอินพุตของผู้ใช้ StrInput
'------------------------------------------------ - -------------------------
ฟังก์ชั่น FunInput (StrInput)
ถ้าไม่ใช่ isnull(Str) แล้ว
StrInput=แทนที่(StrInput,<,<)
StrInput=แทนที่(StrInput,>,>)
StrinPut=แทนที่(สตรินพุต,chr(32), )
stringinput=แทนที่(strinput,chr(34),)
stringinput=แทนที่(strinput,chr(39),')
stringinput=แทนที่(strinput,chr(13),)
FunInput=สตริง
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'------------------------------------------------ - -------------------------
'ฟังก์ชัน: ป้องกันการฉีด SQL'
'พารามิเตอร์: ข้อมูลที่ผู้ใช้ส่ง StrValue
'ชนิดข้อมูล BloType
'ค่าพารามิเตอร์: ข้อมูลตัวเลขจริง
' ข้อมูลอักขระเท็จ
'------------------------------------------------ - -------------------------
ฟังก์ชั่น FunSQL (StrValue, BloType)
ถ้า BloType แล้ว
ถ้า Isnumeric(StrValue) แล้ว
FunSQL=clng(StrValue)
อื่น
ค่า Str=0
สิ้นสุดถ้า
อื่น
ถ้าไม่ใช่ isnull(StrValue) แล้ว
StrValue=lcase(StrValue)
StrValue=แทนที่(StrValue,','')
StrValue=แทนที่(StrValue,เลือก,)
StrValue=แทนที่(StrValue,อัพเดต,)
StrValue=แทนที่(StrValue,แทรก,)
StrValue=แทนที่(StrValue,ลบ,)
StrValue=แทนที่(StrValue,;,)
StrValue=แทนที่(StrValue, ,)
StrValue=แทนที่(StrValue,chr(255),)
StrValue=แทนที่(StrValue,*,)
StrValue=แทนที่(StrValue,%,)
สิ้นสุดถ้า
สิ้นสุดถ้า
FunSQL=StrValue
ฟังก์ชั่นสิ้นสุด
'------------------------------------------------ - ----------------------
'ฟังก์ชัน: การแปลงประเภททั่วไป'
' พารามิเตอร์: _ประเภทข้อมูลประเภท
' _ข้อมูลค่า
'ค่าพารามิเตอร์: _ประเภท 1: แปลงเป็นข้อมูลตัวเลข
' _ประเภทที่ 2: แปลงเป็นข้อมูลตัวอักษร
' _ประเภทที่ 3: แปลงเป็นข้อมูลบูลีน
'------------------------------------------------ - ----------------------
ฟังก์ชั่น FunSwitch (ค่า _, ประเภท_)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
เลือกกรณี Type_
กรณีที่ 1
ถ้าเป็นตัวเลข (Value_) แล้ว
ถ้าไม่ใช่ isnull(Value_) แล้ว
FunSwitch=clng(ค่า_)
อื่น
FunSwitch=0
สิ้นสุดถ้า
อื่น
FunSwitch=0
สิ้นสุดถ้า
กรณีที่ 2
ถ้าไม่ใช่ isnull(Value_) แล้ว
FunSwitch=cstr(ค่า_)
อื่น
FunSwitch=
สิ้นสุดถ้า
กรณีที่ 3
ถ้าไม่ใช่ isnull(Value_) และ isnumeric(Value_) แล้ว
FunSwitch=cbool(Value_)
อื่น
FunSwitch=เท็จ
สิ้นสุดถ้า
กรณีอื่น
response.redirect(Error.asp?err=โปรดระบุประเภทข้อมูลที่จะถ่ายโอนใน FunSwitch!)
สิ้นสุดการเลือก
ถ้า err.number<>0 แล้ว
response.redirect(Error.asp?err=เกิดข้อผิดพลาดที่ไม่ทราบสาเหตุระหว่างการแปลงข้อมูล!)
ผิดพลาดชัดเจน
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
''------------------------------------------------'' -----------------------
' ฟังก์ชั่น: ตรวจสอบว่าข้อมูลมาจากภายนอกหรือไม่
' พารามิเตอร์: ไม่มี
'------------------------------------------------ - -------------------------
ฟังก์ชั่นตรวจสอบจาก ()
server_v1=Cstr(คำขอตัวแปรเซิร์ฟเวอร์(HTTP_REFERER))
server_v2=Cstr (คำขอตัวแปรเซิร์ฟเวอร์ (SERVER_NAME))
ถ้ากลาง (server_v1,8,len(server_v2))<>server_v2 แล้ว
ตรวจสอบจาก=true
อื่น
ตรวจสอบจาก=false
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
''------------------------------------------------'' -----------------------
'ฟังก์ชั่น: กล่องพร้อมท์ JS'
' พารามิเตอร์: StrURL: ที่อยู่ของหน้าที่จะกลับมาหลังจากคลิกตกลง
'StrMSG: ข้อมูลพร้อมท์ของกล่องโต้ตอบ
'------------------------------------------------ - -------------------------
ฟังก์ชั่น FunMsg(StrURL,StrMSG)
Response.write <script language='javascript'>&_
Vbcrlf&alert(&StrMSG&);&_
Vbcrlf&window.location=&StrURL&;&_
Vbcrlf&</script>
ฟังก์ชันสิ้นสุด
'------------------------------------------------ - ----------------------
'ฟังก์ชัน: เพจสากล
'พารามิเตอร์: Intpagecount จำนวนหน้าทั้งหมด'
'หมายเลขหน้าปัจจุบันของ Intmypage'
'Intrecordcount จำนวนบันทึกทั้งหมด
'Intpagesize จำนวนเรคคอร์ดที่แสดงในแต่ละหน้า
'------------------------------------------------ - ----------------------
ฟังก์ชั่น funpage (Intpagecount, Intmypage, Intrecordcount, Intpagesize)
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
สลัว Intfor, Intlist, intlist_b
แบบสอบถามแบบติ่มซำ, a, x, temp
การกระทำ = http: // & Request.ServerVariables (HTTP_HOST) & Request.ServerVariables (SCRIPT_NAME)
แบบสอบถาม = แยก (Request.ServerVariables (QUERY_STRING), &)
สำหรับแต่ละ x ในแบบสอบถาม
a = แยก(x, =)
ถ้า StrComp(a(0), หน้า, vbTextCompare) <> 0 จากนั้น
อุณหภูมิ = อุณหภูมิ & a(0) & = & a(1) & &
สิ้นสุดถ้า
ต่อไป
ถ้า intmypage>1 แล้ว
funpage=funpage & <a href='&action&?&temp&page=1' title='หน้ายอดนิยม' class='no'><font face='Webdings'>9</font></a>
funpage=funpage&<a href='&action&?&temp&page=&Intmypage-1 & ' title='หน้าก่อนหน้า' class='no'><font face='Webdings'>7</font></a>
อื่น
funpage=funpage &<font face='Webdings'>9</font>
funpage=funpage&<font face='Webdings'>7</font>
สิ้นสุดถ้า
ถ้า Intalist<>0 แล้ว
ถ้า cintmypage= นานาชาติแล้ว
Intlist=Intlist+5
สิ้นสุดถ้า
อื่น
Intmypage+5
สิ้นสุดถ้า
ถ้า intlist-9<1 แล้ว
intlist_b=1
อื่น
intlist_b=intlist-9
สิ้นสุดถ้า
สำหรับ Intfor=intlist_b ถึง Intlist
ถ้า intfor<=Intpagecount แล้ว
ถ้า intfor=Intmypage ดังนั้น '------- ทำให้ข้อความบนหน้าปัจจุบันเป็นสีแดงและไม่สามารถคลิกได้
funpage =funpage & strMode& <font color='#FF0000'><b>& Intfor & </b></font>
อื่น
funpage=funpage & strMode & <a href='&action&?&temp&page= & Intfor &' class='no'> & Intfor & </a>
สิ้นสุดถ้า
สิ้นสุดถ้า
strMode= <font color='#BBBBBB'>|</font>
ต่อไป
ถ้า intmypage<intpagecount แล้ว
funpage=funpage& <a href='&action&?&temp&page=& Intmypage+1 &' title='หน้าถัดไป' class='no'><font face='Webdings'>8</font></a>
funpage=funpage &<a href='&action&?&temp&page=& Intpagecount & ' title='Last Page' class='no'><font face='Webdings'>:</font></a>
อื่น
funpage=funpage& <font face='Webdings'>8</font>
funpage=funpage &<font face='Webdings'>:</font></a>
สิ้นสุดถ้า
funpage=<ความกว้างของตาราง='100%' border='0' cellspacing='0' cellpadding='0'><tr>&_
vbcrlf&<td width='40%' style=font:14px> ปัจจุบัน &Intmypage& หน้า&Intpagesize& บันทึก/ผลรวมหน้า &Intpagecount& หน้า/&Intrecordcount& บันทึก</td>&_
vbcrlf&<td width='60%' align='right'>&_
vbcrlf&<ความกว้างของตาราง='360' border='0' cellspacing='0' cellpadding='0'><tr>&_
vbcrlf&<td align='right' style=font:14px>&funpage& </td>&_
vbcrlf&</tr></table></td></tr>&_
vbcrlf&</table>
ถ้า err.number<>0 แล้ว
ผิดพลาดชัดเจน
response.redirect(error.asp?err=เกิดข้อผิดพลาดในฟังก์ชันเพจ โปรดติดต่อผู้ดูแลระบบ!|)
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'************************************************ * *
'ชื่อฟังก์ชั่น: ไฮไลท์
'ฟังก์ชั่น: คำสำคัญที่ค้นหาจะแสดงเป็นสีที่เน้นสี
'พารามิเตอร์ strText คือสตริงหรือตัวแปรที่มีสตริงหรือตัวแปรที่จะเน้น
'strFind คือสตริงหรือตัวแปรที่จะเน้น
'strBeforeคำนำหน้าโค้ด HTML ที่ไฮไลต์คือ: <font color=red>
'strAfterส่วนต่อท้ายของโค้ด HTML ที่ไฮไลต์:</font>
'************************************************ * ***
เน้นฟังก์ชัน(strText, strFind, strBefore, strAfter)
ดิมโปส
ดิม เอ็นเลน
ดิม เอ็นเลนออล
nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
ไฮไลท์ = strText
ถ้า nLen > 0 และ Len(Highlight) > 0 แล้ว
nPos = InStr(1, ไฮไลท์, strFind, 1)
ทำในขณะที่ nPos > 0
ไฮไลท์ = ซ้าย (ไฮไลท์, nPos - 1) & _
strBefore & Mid(ไฮไลท์, nPos, nLen) & strAfter & _
กลาง(ไฮไลท์, nPos + nLen)
nPos = InStr(nPos + nLenAll, ไฮไลต์, strFind, 1)
วนซ้ำ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด