<%@language = vbscript codepage = 936%>
< % ตัวเลือกชัดเจน %>
< % response.buffer = true %>
-
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////elp //////////////////////////////////////////////////////////////////////////////////////////itlene //////////////////////// Gons
-
'/// ชื่อไฟล์: sqlbuilderforvbs
'/// ฟังก์ชั่น: สร้างคำสั่ง SQL อย่างง่าย
'/// Programmaker: Zeng Siyuan
'/// คำอธิบาย: การสร้างประโยค SQL อย่างง่าย "คลาส" รุ่น VBS ตราบใดที่คุณเก็บส่วนคำอธิบายประกอบนี้ไว้ไม่ว่าจะเกี่ยวข้องกับธุรกิจหรือไม่คุณสามารถใช้มันโดยพลการพิมพ์ซ้ำหรือใบเสนอราคา
'/// วันที่: 2005-1-8
-
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////elp //////////////////////////////////////////////////////////////////////////////////////////itlene //////////////////////// Gons
-
-
เมื่อเกิดข้อผิดพลาดต่อไป
Class QuestStringBuilder
prive objfields
strtableename ส่วนตัว
strpkey ส่วนตัว
strpkeysort ส่วนตัว
strcondition ส่วนตัว
private acate () ()
สโตรเป้ส่วนตัว
strlogic ส่วนตัว
blnstate ส่วนตัว
'/----- การเริ่มต้น ------/
คลาสย่อย class_initialize ()
ตั้งค่า objfields = server.createObject (scripting.dictionary)
strTableName = null
strpkey = null
strpkeysort = null
strCondition = null
Redim Acontition (1)
Stroprator = = =
strlogic = และ
blnstate = false
สิ้นสุดย่อย
คลาสย่อย class_terminate ()
ตั้งค่า objfields = ไม่มีอะไร
strTableName = null
strpkey = null
strpkeysort = null
strCondition = null
ลบความผิด
stroprator = null
strlogic = null
blnstate = false
สิ้นสุดย่อย
' /---- การประมวลผลชื่อฟิลด์ ------ /
Private Function ProcessField (Byval Sfield)
ProcessField = [& sfield &]
ฟังก์ชันสิ้นสุด
' /----- การประมวลผลค่าฟิลด์ ------ /
Private Function ProcessValue (byval svalue)
dim tmptype: tmptype = vartype (svalue)
เลือก case tmptype
กรณีประเภทดิจิตอล 2,3,4,5,11 'ประเภทบูลีน
processValue = svalue
ประเภทตัวอักษร CASE 8 '
processValue = '& safe (svalue) &'
กรณีอื่น ๆ 'ประเภทอื่น ๆ
processValue = '& safe (svalue) &'
สิ้นสุดเลือก
ฟังก์ชันสิ้นสุด
' /----- การรักษาที่ครอบคลุม ------ /
กระบวนการฟังก์ชั่นส่วนตัว (Byref OBJ, Byval strtype)
Dim Keys: Keys = obj.keys
รายการสลัว: รายการ = obj.items
Dim IntCount: intCount = obj.Count
dim tmp ()
Redim TMP (1)
ถ้า intcount> 0 แล้ว
dim tmparray (), i
REDIM TMPARAY (IntCount-1)
สำหรับ i = 0 ถึง intcount -1
tmparray (i) = keys (i) & = & items (i)
ต่อไป
เลือก Case Ucase (Trim (strtype))
อัปเดตเคส
กระบวนการ = เข้าร่วม (tmparray ,,)
ตัวเลือกกรณี
กระบวนการ = เข้าร่วม (คีย์ ,,)
ส่วนแทรกเคส
TMP (0) = เข้าร่วม (ปุ่ม ,,)
TMP (1) = เข้าร่วม (รายการ ,,)
กระบวนการ = TMP
ลบ TMP
สิ้นสุดเลือก
ลบ tmparray
อื่น
เลือก Case Ucase (Trim (strtype))
อัปเดตเคส
กระบวนการ = เท็จ
ตัวเลือกกรณี
กระบวนการ = *
ส่วนแทรกเคส
กระบวนการ = TMP
สิ้นสุดเลือก
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
' /----- การรักษาความปลอดภัยขนาดเล็ก ------ /
การบันทึกฟังก์ชั่นส่วนตัว (s)
ปลอดภัย = แทนที่ (s, ',' ')
ฟังก์ชันสิ้นสุด
' /----- พารามิเตอร์ของอินพุตก่อนหน้านี้ แต่ยังคงรักษาชื่อ Table-name ------ /
Public Sub Clear ()
objfields.removeall
'strTableNeame = null
strpkey = null
strpkeysort = null
strCondition = null
ลบความผิด
Stroprator = = =
strlogic = และ
blnstate = false
สิ้นสุดย่อย
' /---- สร้างคำสั่งค้นหา ---- /
ฟังก์ชั่นสาธารณะ getSelect ()
dim strsqltemplate: strsqlTemplate = เลือก {ฟิลด์} จาก {ตาราง} {เงื่อนไข} {orderby} {sort}
strsqlTemplate = แทนที่ (strsqltemplate, {ฟิลด์}, กระบวนการ (objfields, select))
ถ้า masspe (strTableNeame) = 1 จากนั้นออกจากฟังก์ชัน
strsqlTemplate = แทนที่ (strsqltemplate, {ตาราง}, strTableNeame)
ถ้า masspe (strcondition) <> 1 และ strCondition <> แล้ว
strsqlTemplate = แทนที่ (strsqltem