คอลเลกชันที่สมบูรณ์ของฟังก์ชั่นที่กำหนดเองที่ใช้กันทั่วไปสำหรับ ASP

แนะนำ: เคล็ดลับสำหรับการใช้สำหรับลูปใน ASP
บทความนี้ส่วนใหญ่แบ่งปันเคล็ดลับสำหรับการวนรอบใน ASP ฉันไม่สนใจมันจริงๆ ฉันหวังว่าเพื่อนที่เข้าใจ ASP จะอ้างถึงได้

-

-

รายการฟังก์ชั่น:

'1: สร้างการเชื่อมต่อฐานข้อมูล Connopen (DatabaseConnectstr, DbType, Conn_Object)

'2: ตัดการเชื่อมต่อฐานข้อมูล connclose (conn_object)

'3: ป้องกันการฉีด SQL ของ Saferequest (paraname, paratype)

'4: Dateformat วันที่ (Datestr, Betetype)

'5: แสดงข้อความแสดงข้อผิดพลาด Showerr (errstr)

'6: ค้นหาข้อมูลเฉพาะใน String Query SelectStr (ContentSTR, PatternStr, PatternNum)

'7: กรองอักขระที่ระบุ (contentstr, badwords)

'8: การรวบรวมข้อมูลเนื้อหาไฟล์ระยะไกล Seize (URLSTR)

'9: การประมวลผลการเข้ารหัสการไหลของข้อมูล Bytestobstr (Body, CSET)

'10: การเข้ารหัสคุกกี้ Codecookie (ContentSTR)

'11: ถอดรหัสคุกกี้ Decodecookie (ContentSTR)

'12: ตรวจสอบว่าแหล่งส่งข้อมูลเป็น legal chkpost ()

'13: การเข้ารหัสส่วนบุคคล myencrypt (strpassword)

'14: ห้าม nobuffer () จากแคชในหน้านี้

'15: รูปแบบหน้าเว็บอินพุตข้อความ htmlencode (fstring)

'16: สกัดกั้นความยาวที่ระบุของสตริงจากหัว (ตามจำนวนอักขระ) gottopic (str, strlen)

'17: ตรวจสอบรหัสตรวจสอบการตรวจสอบ Radompass (radompass)

'18: สร้างรหัสการตรวจสอบ getCode ()

'19: รับรุ่นระบบปฏิบัติการไคลเอนต์ getSystem ()

'20: การทำธุรกรรมฐานข้อมูล connManage (conn_object)

'21: Quicksort (ซ้ำ) Quicksort (arr, ต่ำ, สูง)

'22: เชื่อมต่อองค์ประกอบของอาร์เรย์ในสตริงเฉพาะ arr_join (arr, อักขระ)

'23: ส่งคืนจำนวนสตริงหารด้วยตัวละครแยกบางตัว count_character (str, ตัวละคร)

'24: สกัดกั้นจำนวนสตริงที่ระบุในสตริงที่มีตัวแยก inter_str_by_character_num (str, อักขระ, เริ่มต้น, num)

'25: ใช้สตรีมเพื่อดาวน์โหลดไฟล์ดาวน์โหลดไฟล์ (strfile)

'26: ส่งคืนข้อความ send_back (resultwords)

'27: รับข้อความแสดงข้อผิดพลาด get_err ()

'28: ตรงกันข้ามกับ SaferEsponse (เนื้อหา)

'29: บันทึก RemoteFile (LocalFileName, RemoteFileUrl)

'30: ...

Dim Language_arr (10)

language_arr (0) = การตั้งค่าพารามิเตอร์ของการเชื่อมต่อฐานข้อมูลไม่ถูกต้อง!

language_arr (1) = การตั้งค่าพารามิเตอร์ประเภทของการเชื่อมต่อฐานข้อมูลไม่ถูกต้อง!

language_arr (2) = การเชื่อมต่อฐานข้อมูลล้มเหลว!

language_arr (3) = ค่าพารามิเตอร์ที่ผิดกฎหมาย!

language_arr (4) = ค่าพารามิเตอร์ไม่ใช่รูปแบบวันที่ที่ถูกต้อง!

language_arr (5) = การดำเนินการล้มเหลว!

language_arr (6) = คอลัมน์มีชื่อซ้ำ!

language_arr (7) = ชื่อคอลัมน์ว่างเปล่า!

language_arr (8) = การสร้างโฟลเดอร์คอลัมน์ล้มเหลว!

language_arr (9) = คุณไม่ได้รับอนุญาตนี้!

-

'ฟังก์ชั่น ID: 1

ฟังก์ชั่นฟังก์ชั่น: สร้างการเชื่อมต่อกับฐานข้อมูล

'เวลาแก้ไข:

'พารามิเตอร์ผู้สืบทอด:

'ConnectStr: สตริงการเชื่อมต่อฐานข้อมูล

'ConnectType: ประเภทฐานข้อมูลหมวดหมู่-ข้อความ, 0 คือการเข้าถึง, 1 คือ MS SQL

'ค่าคืน:

-

Sub Connopen (DatabaseConnectstr, DbType, Conn_Object)

ตั้งค่า conn_object = server.createObject (adodb.connection)

ถ้า databaseconnectstr = โทรอาบน้ำ (language_arr (0))

ถ้า dbType = 0 แล้ว

conn_object.open driver = {microsoft access driver (*.mdb)}; dbq = & databaseconnectstr

elseif dbType = 1 แล้ว

conn_object.open ผู้ให้บริการ = sqloledb.1; & databaseconnectstr

อื่น

Call BashionR (language_arr (1))

สิ้นสุดถ้า

err.lear

สิ้นสุดย่อย

-

'ฟังก์ชัน ID: 2

'ฟังก์ชั่น: ตัดการเชื่อมต่อฐานข้อมูล

'เวลาแก้ไข:

'พารามิเตอร์ผู้สืบทอด:

'ค่าคืน:

-

sub connclose (conn_object)

conn_object.close

ตั้งค่า conn_object = ไม่มีอะไร

สิ้นสุดย่อย

-

'ฟังก์ชั่น ID: 3

ฟังก์ชั่นฟังก์ชั่น: ป้องกันการฉีด SQL

'เวลาแก้ไข:

'พารามิเตอร์ผู้สืบทอด:

'paraname: paraname-character

'paratype: paratype: ประเภทพารามิเตอร์ประเภทตัวเลข (1 หมายถึงพารามิเตอร์ข้างต้นเป็นตัวเลขและ 0 หมายความว่าพารามิเตอร์ข้างต้นเป็นอักขระ)

'ค่าคืน:

'สตริงกรอง

-

ฟังก์ชั่น saferequest (paraname, paratype)

สลัว paravalue

paravalue = คำขอ (paraname)

เลือก case paratype

กรณี 0

paravalue = แทนที่ (paravalue, ', [ระบบ: 34])

paravalue = แทนที่ (paravalue, =, [ระบบ: 61])

กรณีที่ 1

ถ้าไม่ใช่ isnumeric (paravalue) ให้โทรอาบน้ำ (language_arr (3))

กรณี -1

ถ้าไม่ใช่ isnumeric (paravalue) ให้โทรอาบน้ำ (language_arr (3))

ถ้า paravalue = จากนั้น paravalue = 0

กรณีอื่น

ถ้า len (paravalue)> paratype แล้วโทรอาบน้ำ (language_arr (3))

paravalue = แทนที่ (paravalue, ', [ระบบ: 34])

paravalue = แทนที่ (paravalue, =, [ระบบ: 61])

สิ้นสุดเลือก

saferequest = paravalue

ฟังก์ชันสิ้นสุด

'===========================================' ฟังก์ชั่น ID: 4

ฟังก์ชั่นฟังก์ชั่น: วันที่รูปแบบ

'เวลาแก้ไข:

'พารามิเตอร์ผู้สืบทอด:

'datestr: datestr:

'paratype: ประเภทวันที่บันทึก

'ค่าคืน:

'วันที่จัดรูปแบบ

ฟังก์ชั่น DateFormat (Datestr, Betetype)

Dim Datestring

ถ้า isdate (datestr) = false แล้ว

Call BashionR (language_arr (4))

สิ้นสุดถ้า

เลือกประเภทของ case

กรณีที่ 1

datestring = ปี (datestr) &-& month (datestr) &-& day (datestr)

กรณีที่ 2

Datestring = ปี (Datestr) &. & Month (Datestr) &. & Day (Datestr)

กรณีที่ 3

datestring = ปี (datestr) &/& month (datestr) &/& day (datestr)

กรณีที่ 4

Datestring = เดือน (Datestr) &/& Day (Datestr) &/& ปี (Datestr)

กรณีที่ 5

datestring = day (datestr) &/& month (datestr) &/& year (datestr)

กรณีที่ 6

datestring = เดือน (datestr) &-& day (datestr) &-& ปี (datestr)

กรณีที่ 7

datestring = เดือน (Datestr) &. & Day (Datestr) &. & ปี (Datestr)

กรณีที่ 8

Datestring = เดือน (Datestr) &-& Day (Datestr)

กรณีที่ 9

Datestring = เดือน (Datestr) &/& Day (Datestr)

กรณีที่ 10

Datestring = เดือน (Datestr) &. & Day (Datestr)

กรณีที่ 11

datestring = เดือน (datestr) & language_arr (6) & day (datestr) & language_arr (7)

กรณีที่ 12

datestring = day (datestr) & language_arr (7) & ชั่วโมง (datestr) & language_arr (8)

กรณีที่ 13

datestring = day (datestr) & language_arr (7) & ชั่วโมง (datestr) & language_arr (8)

กรณีที่ 14

datestring = ชั่วโมง (datestr) & language_arr (8) & นาที (datestr) & language_arr (9)

กรณีที่ 15

datestring = ชั่วโมง (datestr) &: & minute (datestr)

กรณีที่ 16

datestring = ปี (datestr) & language_arr (5) & เดือน (datestr) & language_arr (6) & day (datestr) & language_arr (7)

กรณีอื่น

datestring = datestring

สิ้นสุดเลือก

dateFormat = datestring

ฟังก์ชันสิ้นสุด

-

'ฟังก์ชั่น ID: 5

ฟังก์ชั่นฟังก์ชั่น: การแสดงผลข้อผิดพลาด

'เวลาแก้ไข:

'พารามิเตอร์ผู้สืบทอด:

'errstr: ข้อผิดพลาดพรอมต์ - ประเภทอักขระ

'ค่าส่งคืน: กลับไปที่หน้าส่ง

-

แชร์: ไดเรกทอรีคอลัมน์ Ewebeditor v3.8
ชื่อเรื่อง: ASP Ewebeditor v3.8 Directory ช่องโหว่ (เวอร์ชันอื่น ๆ คือการทดสอบ) ไฟล์ช่องโหว่: ASP/BROWSE.ASP ช่องโหว่เกิดขึ้น: ย่อย initParam () stype = Ucase (trim (request.querystring (ประเภท)) sstylename = trim (request.querystring