<!--ข้อมูลเมตา
TYPE=typelib
FILE=C:/ไฟล์โปรแกรม/ไฟล์ทั่วไป/ระบบ/ADO/msado20.tlb
-
<%@ ภาษา=VBScript %>
<%ตัวเลือกที่ชัดเจน%>
-
'ไฟล์ที่เพิ่ม.
-
<!-- #include virtual|file=ไฟล์ที่จะรวม-->
-
'คำชี้แจงลิขสิทธิ์รหัส:
'=================================================' = ========
'ไฟล์: filename.asp
' เวอร์ชัน:1.0
'วันที่:
' เขียนบทโดย Tommy xiao
' คำอธิบาย:
-
'การแก้ไข:
'วันที่:
' ผู้เขียน:
' คำอธิบาย:
'=================================================' = ========
' ลิขสิทธิ์ (C) 2003 Asiagame.Com สงวนลิขสิทธิ์
' เว็บ: http://www.advancededu.com
' ต้องการความช่วยเหลือหรือไม่ ติดต่อ: [email protected]
'=================================================' = ========
-
-
'รหัสกลไกการยอมรับข้อผิดพลาด
-
DIMNDEBUG_MSG
NDEBUG_MSG=เท็จ
ถ้า NDEBUG_MSG = จริงแล้ว
'ข้อผิดพลาดในการกรอง
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
สิ้นสุด ถ้า
'การประกาศตัวแปรและพื้นที่คำจำกัดความ
'ตัวแปรข้อผิดพลาดแบบบูลีน
Dim Blnผู้ก่อตั้ง sErrmsg
BlnFounderr = FALSE
'ข้อความแสดงข้อผิดพลาดทริกเกอร์
'sErrmsg=sErrmsg+<br>+<li>ไม่พบข้อมูลที่คุณต้องการ ยินดีต้อนรับใช้งาน
'BlnFounderr = จริง
Dim oConn, oRs, SQL 'วัตถุ ADO
'ตั้งค่า oConn = Server.CreateObject (ADODB.Connection)
'oConn. เปิดแอปพลิเคชัน (connStr)
'ขอบเขตคำจำกัดความของธุรกรรม
'ข้อผิดพลาดเอาต์พุต
ถ้า BlnFounderr = TRUE แล้ว
ข้อผิดพลาด()
สิ้นสุดถ้า
'พื้นที่คำจำกัดความ Func, Proc
ฟังก์ชั่น DealInput (exp1)
dim exp2 'กรองอินพุตสำหรับอักขระที่ไม่ถูกต้อง
exp2=แทนที่(exp1,<,<)
exp2=แทนที่(exp2,>,>)
exp2=แทนที่(exp2,','')
exp2=แทนที่(exp2,&,&)
DealInput=exp2
ฟังก์ชันสิ้นสุด
ฟังก์ชัน CloseDatabase ' CloseDatabase
oConn.ปิด
ตั้งค่า oConn = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ข้อผิดพลาดย่อย ()
'ตอบกลับเขียนข้อผิดพลาด&โปรดติดต่อผู้ดูแลระบบ
response.write <html> & vbCrLf
response.write <head> & vbCrLf
response.write <title>ไซต์ xxx--การจัดการพื้นหลังเว็บ</title> & vbCrLf
response.write <meta NAME=เนื้อหา GENERATOR=Microsoft Visual Studio 6.0> & vbCrLf
response.write <link rel=stylesheet type=text/css href=css/index.css> & vbCrLf
response.write <script type=text/javascript src=js/fx.js></script> & vbCrLf
response.write <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
ตอบกลับเขียน & vbCrLf
response.write </head> & vbCrLf
ตอบกลับเขียน & vbCrLf
response.write <body> & vbCrLf
response.write <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=#777777 align=center> & vbCrLf
ตอบกลับเขียน <tr> & vbCrLf
ตอบกลับเขียน <td> & vbCrLf
response.write <table cellpadding=3 cellspacing=1 border=0 width=100%> & vbCrLf
response.write <tr align=center> & vbCrLf
response.write <td width=100% bgcolor=#EEEEEE>ข้อความแสดงข้อผิดพลาดการดำเนินการการจัดการภายใน</td> & vbCrLf
response.write </tr> & vbCrLf
ตอบกลับเขียน <tr> & vbCrLf
response.write <td width=100% bgcolor=#FFFFFF><b>สาเหตุที่เป็นไปได้สำหรับข้อผิดพลาด:</b><br><br> & vbCrLf
response.write <li>โปรดติดต่อผู้ดูแลระบบโดยเร็วที่สุดเพื่อขอความช่วยเหลือที่เหมาะสม </a> & vbCrLf
ตอบกลับเขียน sErrmsg & vbCrLf
ตอบกลับเขียน </td> & vbCrLf
response.write </tr> & vbCrLf
response.write <tr align=center> & vbCrLf
response.write <td width=100% bgcolor=#EEEEEE> & vbCrLf
response.write <a href=javascript:history.go(-1)> << กลับไปที่หน้าก่อนหน้า</a> & vbCrLf
ตอบกลับเขียน </td> & vbCrLf
response.write </tr> & vbCrLf
response.write </table> </td></tr></table> & vbCrLf
response.write </body> & vbCrLf
ตอบกลับเขียน </html>
จบย่อย
-