วิธี OLEDB ในการเปิดการเชื่อมต่อข้อมูล SQL
Sub OpenSQLBYOLEDB
เมื่อเกิดข้อผิดพลาดต่อไป
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open ผู้ให้บริการ = SQLOLEDB.1;
ถ้า err.number <> 0 แล้ว
err.lear
Response.write (<div align = 'center'> ฐานข้อมูลเชื่อมต่อกับข้อผิดพลาดโปรดติดต่อผู้ดูแลระบบ! </div>)
Response.end ()
สิ้นสุดถ้า
สิ้นสุดย่อย
'การดำเนินการฐานข้อมูล -ฟังก์ชั่นที่เกี่ยวข้อง
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] openreadrs rs, sql, otype
'ฟังก์ชั่น: เปิดประเภทของชุดข้อมูลที่สอดคล้องกันและอ่านเฉพาะการดำเนินการ
'พารามิเตอร์:
'RS Open RS Collection
คำสั่ง SQL ดำเนินการ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
sub OpenReadRs (RS, SQL)
ถ้าไม่ใช่ isObject (rs) แล้ว
ตั้งค่า rs = server.createObject (adodb.oldset)
Rs.oopen SQL, Conn, 1,1
สิ้นสุดถ้า
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[Sub] OpenWriters RS, SQL
'ฟังก์ชั่น: เปิดชุดข้อมูลประเภทที่สอดคล้องกันคุณสามารถเขียนการดำเนินการได้
'พารามิเตอร์:
'RS Open RS Collection
คำสั่ง SQL ดำเนินการ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Sub OpenWriters (RS, SQL)
ถ้าไม่ใช่ isObject (rs) แล้ว
ตั้งค่า rs = server.createObject (adodb.oldset)
Rs.oopen SQL, Conn, 1,3
สิ้นสุดถ้า
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] endrs rs
'ฟังก์ชั่น: ปิดชุดข้อมูลที่สอดคล้องกัน
'พารามิเตอร์:
'RS Open RS Collection
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Sub Endrs (RS)
ถ้า isObject (RS) แล้ว
Rs.close: Set Rs = ไม่มีอะไร
สิ้นสุดถ้า
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] endconn
'ฟังก์ชั่น: ปิดการเชื่อมต่อฐานข้อมูล
'พารามิเตอร์: ไม่มี
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
sub endnn
ถ้า isObject (conn) แล้ว
conn.close: ตั้งค่า conn = ไม่มีอะไร
สิ้นสุดถ้า
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] execsql sql
ฟังก์ชั่น: เรียกใช้คำสั่ง SQL
'พารามิเตอร์:
คำสั่ง SQL ดำเนินการ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Sub Execsql (SQL)
conn.execute (SQL)
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] selectalone sql
'ฟังก์ชั่น: แบบสอบถามฟิลด์เดี่ยว
'พารามิเตอร์:
คำสั่ง SQL ดำเนินการ
'return: ค่าฟิลด์แบบสอบถาม
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Selectalone (SQL)
Dim Selectaloners
ตั้งค่า selectaloners = const.execute (SQL)
selectalone = selectaloners (0)
endrs selectaloners
จบ
'ฟังก์ชั่นที่เกี่ยวข้องกับการทำงานของสตริง
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] issafestr str
'ฟังก์ชั่น: ตรวจสอบว่าเป็นสตริงที่ปลอดภัยใช้ในฟิลด์พิเศษเช่นการลงทะเบียนและเข้าสู่ระบบ
'พารามิเตอร์:
'Str String เพื่อตรวจจับ
'return: true = security, false = unsafe
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Issafestr (STR)
สลัว s_badstr, n, i
s_badstr = '& <>?%,;: () ~!@#$^*{} [] |+-= & Chr (34) & Chr (9) & Chr (32)
n = len (s_badstr)
isSafestr = true
สำหรับ i = 1 ถึง n
ถ้า instr (str, mid (s_badstr, i, 1))> 0 แล้ว
isSafestr = false
การออก
สิ้นสุดถ้า
ต่อไป
จบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] htmltoencode str
'ฟังก์ชั่น: รหัส html
'พารามิเตอร์:
'STR ต้องการเข้ารหัสสตริง
'return: สตริงรหัส
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
htmltoencode (str) '
ถ้าไม่ใช่ isnull (str) และ str <> แล้ว
str = แทนที่ (str, &, & amp;)
str = แทนที่ (str,>, & gt;)
str = แทนที่ (str, <, & lt;)
str = แทนที่ (str, chr (32),)
str = แทนที่ (str, chr (9), & nbsp;)
str = แทนที่ (str, chr (34), & quot;)
str = แทนที่ (str, chr (39), ')
str = แทนที่ (str, chr (13),)
str = แทนที่ (str ,, s cript)
str = แทนที่ (str, s, s)
htmltoencode = str
สิ้นสุดถ้า
จบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] encodetohtml str
'ฟังก์ชั่น: รหัส HTML รหัส
'พารามิเตอร์:
'Str ต้องเป็นสตริงรหัส
'return: reverse -coded string
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
encodetohtml (str)
ถ้าไม่ใช่ isnull (str) และ str <> แล้ว
str = แทนที่ (str, & amp; ,, &)
str = แทนที่ (str, & gt;,>)
str = แทนที่ (str, & lt;, <)
str = แทนที่ (str ,, ch (32))
str = แทนที่ (str, & nbsp;, chr (9))
str = แทนที่ (str, & quot;, ch (34))
str = แทนที่ (str, ', Chr (39))
str = แทนที่ (str ,, ch (13))
str = แทนที่ (str, s cript,)
str = แทนที่ (str, s, s)
encodetohtml = str
สิ้นสุดถ้า
จบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] Gottopic Str, Strlen
ฟังก์ชั่น: ทดสอบความยาวของสตริง stroln อักขระจีนคำนวณความยาว 2 ความยาว
'พารามิเตอร์:
'STR จำเป็นต้องสกัดกั้น
'ความยาวสกัดกั้น Strlen
'return: สตริงหลังจากความยาวของความยาว strlen
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
getTopic (str, strlen)
ถ้า str = จากนั้น
gottopic =
การออก
สิ้นสุดถ้า
สลัว l, t, c, i
l = len (str)
t = 0
สำหรับ i = 1 ถึง l
c = abs (asc (mid (str, i, 1))))))))))))))
ถ้า c> 255 แล้ว
t = t+2
อื่น
t = t+1
สิ้นสุดถ้า
ถ้า t> = strlen แล้ว
gotTopic = ซ้าย (str, i) & ...
ออกจาก
อื่น
gotTopic = str
สิ้นสุดถ้า
ต่อไป
จบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] dateformattime tvar สไตล์
'ฟังก์ชั่น: การจัดรูปแบบเวลา
'พารามิเตอร์:
'TVAR ต้องการสตริงเวลาการจัดรูปแบบ
'ประเภทการจัดรูปแบบ stype
'return: สตริงเวลาการจัดรูปแบบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
DateFormattime (TVAR, Style)
Dim TT, Syear, Smnon, Sday, Shour, Sminute, Ssecond
ถ้าไม่ใช่ isdate (tvar) แล้ว dateformattime =: ออก
tt = tvar
Syear = ปี (TT)
Smonth = ขวา (0 & Month (TT), 2)
sday = ขวา (0 & day (tt), 2)
Shour = ขวา (0 & ชั่วโมง (TT), 2)
sminute = ขวา (0 & นาที (tt), 2)
ssecond = ขวา (0 & sex (tt), 2)
เลือกสไตล์เคส
กรณี 1'2006-3-13
DateFormattime = syear & -& smonth & -& sday
กรณีที่ 2 '13 มีนาคม 2549
DateFormattime = Syear & Year & Smnth & Monthly & Sday & Day
กรณีที่ 3 '2006031313120123
DateFormattime = Syear & Smonth & Sday & Shour & Sminute & Ssecond
กรณีอื่น
DateFormattime = TT
สิ้นสุดเลือก
จบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] isnum str
ฟังก์ชั่น: ไม่ว่าจะเป็นตัวเลข
'พารามิเตอร์:
'STR ต้องการตัดสินสตริง
'return: true = number, false = non -numbers
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
isnum (str) '
ถ้า str <> และ isnumeric (str) แล้ว
isnum = true
อื่น
isnum = false
สิ้นสุดถ้า
จบ
'ฟังก์ชั่นที่เกี่ยวข้องกับการดีบักเอาท์พุท
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] mesgoback str
'ฟังก์ชั่น: ป๊อปอัพข้อมูลและส่งคืน
'พารามิเตอร์:
'STR ต้องการตัดสินสตริง
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Sub Mesgoback (STR)
Response.write (<language = 'java'> Alert ('& str &'); history.back (); </>)
Response.end ()
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] mesgourl str, url
'ฟังก์ชั่น: ป๊อปอัพข้อมูลและส่งคืน
'พารามิเตอร์:
'STR ต้องการตัดสินสตริง
'ที่อยู่กระโดด URL
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
submesgourl (str, url)
Response.write (<language = 'java'> Alert ('& str &'); local.href = '& url &'; </>)
Response.end ()
สิ้นสุดย่อย
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[sub] debug ผิด
'ฟังก์ชั่น: เอาต์พุตดีบัก
'พารามิเตอร์:
'ผิดต้องการข้อมูลผลลัพธ์
'return: ไม่มีค่าส่งคืน
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
Sub Debug (Ingrong) 'output debug'
Response.write (ing)
Response.end ()
สิ้นสุดย่อย
ฟังก์ชั่น -ฟังก์ชั่นที่เกี่ยวข้อง
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] getip
ฟังก์ชั่น: รับ IP ผู้ใช้
'พารามิเตอร์:
' ไม่มี
'return: ผู้ใช้ปัจจุบัน IP
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
getip ()
Dim userip
userip = request.serverVariables (http_x_forwarded_for)
ถ้า userip = จากนั้น userip = request.serverVariables (remote_addr)
getIP = userip
จบ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
'[] geturl
'ฟังก์ชั่น: รับชื่อโดเมนปัจจุบัน
'พารามิเตอร์:
' ไม่มี
'return: ชื่อโดเมนปัจจุบัน
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ***************
geturl ()
getUrl = request.ServerVariables (server_name)
จบ