แนะนำ: ใช้ตัวกรองเพื่อให้ได้การดึงข้อมูลรอง คิดเกี่ยวกับคำถาม: วิธีการค้นหารองจากการค้นหาครั้งแรก โดยปกติวิธีการของเราคือการบันทึกเงื่อนไขการค้นหาในระหว่างการค้นหาครั้งแรกและรวมเงื่อนไขการค้นหาสองเงื่อนไขระหว่างการค้นหาแถวที่สองเพื่อดำเนินการค้นหาใหม่บนฐานข้อมูลเช่น: การค้นหาครั้งแรก:
-
ฟังก์ชั่นฟังก์ชั่น: บล็อก HTML รหัส
'พารามิเตอร์: ข้อมูลอินพุตของผู้ใช้ Strinput
-
ฟังก์ชั่น funinput (strinput)
ถ้าไม่ใช่ isnull (str) แล้ว
strinput = แทนที่ (strinput, <, <)
strinput = แทนที่ (strinput,>,>)
strinput = แทนที่ (strinput, chr (32),)
strinput = แทนที่ (Strinput, Chr (34),)
strinput = แทนที่ (strinput, chr (39), ')
strinput = แทนที่ (strinput, chr (13),)
funinput = strinput
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นฟังก์ชั่น: ป้องกันการฉีด SQL
'พารามิเตอร์: ข้อมูลที่ผู้ใช้ส่งมาโดย StrValue
'ประเภทข้อมูล blotype
'ค่าพารามิเตอร์: ข้อมูลตัวเลขจริง
'ข้อมูลอักขระเท็จ
-
ฟังก์ชั่น funsql (strvalue, blotype)
ถ้า blotype แล้ว
ถ้า isnumeric (strvalue) แล้ว
funsql = clng (strvalue)
อื่น
strvalue = 0
สิ้นสุดถ้า
อื่น
ถ้าไม่ใช่ isnull (strvalue) แล้ว
strvalue = lcase (strvalue)
strvalue = แทนที่ (strvalue, ',' ')
strvalue = แทนที่ (strvalue, select,)
strvalue = แทนที่ (strvalue, update,)
strvalue = แทนที่ (strvalue, แทรก,)
strvalue = แทนที่ (strvalue, ลบ,)
strvalue = แทนที่ (strvalue,;,)
strvalue = แทนที่ (strvalue ,,)
strvalue = แทนที่ (strvalue, chr (255),)
strvalue = แทนที่ (strvalue,*,)
strvalue = แทนที่ (strvalue,%,)
สิ้นสุดถ้า
สิ้นสุดถ้า
funsql = strvalue
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นฟังก์ชั่น: การแปลงประเภททั่วไป
'พารามิเตอร์: ประเภทข้อมูล _type
'_value ข้อมูล
'ค่าพารามิเตอร์: _type 1: แปลงเป็นข้อมูลตัวเลข
'_type 2: แปลงเป็นข้อมูลอักขระ
'_type 3: แปลงเป็นข้อมูลบูลีน
-
ฟังก์ชั่น funswitch (value_, type_)
เมื่อเกิดข้อผิดพลาดต่อไป
เลือก case type_
กรณีที่ 1
ถ้า isnumeric (value_) แล้ว
ถ้าไม่ใช่ isnull (value_) แล้ว
funswitch = clng (value_)
อื่น
funswitch = 0
สิ้นสุดถ้า
อื่น
funswitch = 0
สิ้นสุดถ้า
กรณีที่ 2
ถ้าไม่ใช่ isnull (value_) แล้ว
funswitch = cstr (value_)
อื่น
funswitch =
สิ้นสุดถ้า
กรณีที่ 3
ถ้าไม่ใช่ isnull (value_) และ isnumeric (value_) แล้ว
funswitch = cbool (value_)
อื่น
funswitch = false
สิ้นสุดถ้า
กรณีอื่น
Response.redirect (error.asp? err = โปรดระบุประเภทข้อมูลที่จะถ่ายโอนไปยังใน Funswitch!)
สิ้นสุดเลือก
ถ้า err.number <> 0 แล้ว
Response.redirect (error.asp? err = ข้อผิดพลาดที่ไม่รู้จักเกิดขึ้นระหว่างการแปลงข้อมูล!)
err.lear
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นฟังก์ชั่น: ตรวจสอบว่าข้อมูลมาจากภายนอก
'พารามิเตอร์: ไม่มี
-
ฟังก์ชั่นตรวจสอบจาก ()
server_v1 = cstr (request.serverVariables (http_referer))
server_v2 = cstr (request.serverVariables (server_name))
ถ้า mid (server_v1,8, len (server_v2)) <> server_v2 แล้ว
checkfrom = true
อื่น
checkfrom = false
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นฟังก์ชั่น: กล่องพรอมต์ JS
'พารามิเตอร์: strurl: ที่อยู่หน้าเว็บกลับไปที่หลังจากคลิกตกลง
'strmsg: ข้อมูลพรอมต์โต้ตอบ
-
ฟังก์ชั่น funmsg (strurl, strmsg)
response.write <script language = 'JavaScript'> & _
vbcrlf & Alert (& strmsg &); & _
vbcrlf & window.location = & strurl &; & _
vbcrlf & </script>
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นฟังก์ชั่น: เพจทั่วไป
'พารามิเตอร์: จำนวนหน้ารวม intpagecount
'จำนวนหน้าปัจจุบัน intmypage
'Recordcount บันทึกทั้งหมด
'intpagesize จำนวนระเบียนที่แสดงต่อหน้า
-
ฟังก์ชั่น funpage (intpagecount, intmypage, recordcount, intpagesize)
'เมื่อเกิดข้อผิดพลาดต่อไป
Dim intfor, intlist, intlist_b
Dim Query, A, X, Temp
action = http: // & request.serverVariables (http_host) & request.serverVariables (script_name)
แบบสอบถาม = split (request.serverVariables (query_string), &)
สำหรับแต่ละ X ในแบบสอบถาม
a = split (x, =)
ถ้า strComp (a (0), page, vbtextcompare) <> 0 แล้ว
temp = temp & 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 = & intMyMyPage-1 &' title = 'หน้าก่อนหน้า' class = 'no'> <font face = 'webdings'> 7 </font> </a>
อื่น
funpage = funpage & <font face = 'webdings'> 9 </font>
funpage = funpage & <font face = 'webdings'> 7 </font>
สิ้นสุดถ้า
ถ้า intlist <> 0 แล้ว
ถ้า cintMyPage = intlist แล้ว
intlist = intlist 5
สิ้นสุดถ้า
อื่น
intlist = 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 = 'หน้าสุดท้าย' class = 'no'> <font face = 'webdings'>: </font> </a>
อื่น
funpage = funpage & <font face = 'webdings'> 8 </font>
funpage = funpage & <font face = 'webdings'>: </font> </a>
สิ้นสุดถ้า
funPage = <width table = '100%' border = '0' cellpacing = '0' cellpadding = '0'> <tr> & _
vbcrlf & <td width = '40%'style = font: 14px> ปัจจุบัน & intmypage & page & intpagesize & list/page รวม & intpagecount & page/& recordcount & รายการบันทึก </td> & _
vbcrlf & <td width = '60%'align =' ขวา '> & _
vbcrlf & <width table = '360' border = '0' cellpacing = '0' cellpadding = '0' cellpadding = '0'> <tr> & _
vbcrlf & <td align = 'ขวา' style = font: 14px> & funpage & </td> & _
vbcrlf & </tr> </table> </td> </tr> & _
VBCRLF & </Table>
ถ้า err.number <> 0 แล้ว
err.lear
Response.redirect (error.asp? err = ฟังก์ชั่นการแบ่งหน้ามีข้อผิดพลาดโปรดติดต่อผู้ดูแลระบบ! |)
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ชื่อฟังก์ชั่น: ไฮไลต์
'ฟังก์ชั่น: คำหลักในการค้นหาจะแสดงในสีที่ไฮไลต์
'พารามิเตอร์ strext เป็นสตริงหรือตัวแปรที่สตริงหรือตัวแปรที่จะไฮไลต์
'strfind เป็นสตริงหรือตัวแปรที่จะเน้น
'คำนำหน้า HTML รหัส HTML ที่ไฮไลต์นั้นเป็นเช่น: <font color = red>
'strafter ไฮไลต์รหัส HTML คำต่อท้าย: </font>
-
ฟังก์ชั่นไฮไลต์ (strtext, strfind, strefore, strafter)
หรอก NPOS
หรอก
หรี่
nlen = len (strfind)
nlenall = nlen len (strbefore) len (strafter) 1
ไฮไลต์ = strtext
ถ้า nlen> 0 และ len (ไฮไลต์)> 0 แล้ว
NPOS = Instr (1, ไฮไลต์, strfind, 1)
ทำในขณะที่ NPOS> 0
ไฮไลต์ = ซ้าย (ไฮไลต์, NPOS - 1) & _
strbefore & mid (ไฮไลต์, npos, nlen) & strafter & _
Mid (ไฮไลต์, NPOS NLEN)
NPOS = Instr (NPOS NLENALL, ไฮไลต์, strfind, 1)
วง
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
แบ่งปัน: การเขียนโปรแกรมขั้นสูง ASP 3.0 (31) 7.1.2 การค้นพบและการจัดการข้อผิดพลาดทางความหมายหรือรันไทม์นั้นน่ารำคาญ แต่คุณจะพบข้อผิดพลาดประเภทอื่น ๆ ที่น่าตื่นเต้นในการเขียนโปรแกรม - ข้อผิดพลาดทางความหมาย (ข้อผิดพลาดทางความหมาย) หรือ & ld