แนะนำ: รหัสเทมเพลต ASP เทมเพลตคลาสส่วนตัว m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr ส่วนตัว m_valuelulist, m_blocklist ส่วนตัว m_regexp ย่อยส่วนตัว class_initialize set m_valuelist = createobject
เมื่อเขียนโปรแกรมฐานข้อมูล ASP เรามักจะใช้คำสั่ง SQL และเมื่อเพิ่มและอัปเดตข้อมูลเรามักจะใช้วิธีการต่อไปนี้: แทรกลงในข้อความ (incept, ผู้ส่ง, ชื่อ, เนื้อหา, sendtime, ค่าสถานะ, issend) ค่า ('& incept (i) &', ' เพื่อแก้ไขและค้นหาข้อผิดพลาด หลังจากใช้คลาส SQL นี้แล้วมันสามารถทำให้ง่ายขึ้นและง่ายต่อการตรวจสอบข้อผิดพลาด การเพิ่มชื่อฟิลด์และค่าฟิลด์ผ่านฟังก์ชัน Addfield ของคลาสสามารถแทรกชื่อฟิลด์และค่าฟิลด์ลงในคำสั่ง SQL ได้อย่างง่ายดายจากนั้นส่งคืนคำสั่ง SQL
มาดูรหัสของคลาสนี้กันเถอะ:
%
ชั้น sqlstring
-
'คำจำกัดความของตัวแปร
-
'Stablename --- ชื่อตาราง
'ISQLTYPE --- ประเภทคำสั่ง SQL: 0-ADD, 1-UPDATE, 2-delete, 3-Query
'swhere --- เงื่อนไข
'Sorder --- เรียงลำดับโดย
'ssql ---- ค่า
stablename ส่วนตัว, isqltype, swhere, sorder, ssql
-
'การเริ่มต้นคลาส/สิ้นสุด
-
คลาสย่อย class_initialize ()
stablename =
isqlType = 0
swhere =
Sorder =
SSQL =
สิ้นสุดย่อย
คลาสย่อย class_terminate ()
สิ้นสุดย่อย
-
'คุณสมบัติ
-
'ตั้งค่าคุณสมบัติของชื่อตาราง
ทรัพย์สินสาธารณะให้ Tablename (มูลค่า)
stablename = ค่า
จุดสิ้นสุดของทรัพย์สิน
'กำหนดเงื่อนไข
ทรัพย์สินสาธารณะปล่อยให้ที่ไหน (มูลค่า)
swhere = value
จุดสิ้นสุดของทรัพย์สิน
'ตั้งวิธีการเรียงลำดับ
ทรัพย์สินสาธารณะขอสั่งซื้อ (มูลค่า)
Sorder = ค่า
จุดสิ้นสุดของทรัพย์สิน
'ตั้งค่าคำสั่งแบบสอบถามประเภท
ทรัพย์สินสาธารณะให้ SQLTYPE (มูลค่า)
isqlType = ค่า
เลือกกรณี isqltype
กรณี 0
ssql = แทรกลงใน#0 (#1) ค่า (#2)
กรณีที่ 1
SSQL = อัปเดต #0 SET #1 = #2
กรณีที่ 2
ssql = ลบจาก #0
กรณีที่ 3
ssql = เลือก #1 จาก #0
สิ้นสุดเลือก
จุดสิ้นสุดของทรัพย์สิน
-
'การทำงาน
-
'เพิ่มฟิลด์ (ชื่อฟิลด์ค่าฟิลด์)
Public Sub Addfield (SfieldName, Svalue)
เลือกกรณี isqltype
กรณี 0
ssql = แทนที่ (ssql,#1, sfieldname &,#1)
ssql = แทนที่ (ssql,#2, '& sfieldname &',#2)
กรณีที่ 1
ssql = แทนที่ (ssql,#1, sfieldname)
ssql = แทนที่ (ssql,#2, '& sfieldname &',#1 =#2)
กรณีที่ 3
ssql = แทนที่ (ssql,#1, sfieldname &,#1)
สิ้นสุดเลือก
สิ้นสุดย่อย
'คืนคำสั่ง SQL
ฟังก์ชั่นสาธารณะ returnsql ()
ssql = แทนที่ (ssql,#0, stablename)
เลือกกรณี isqltype
กรณี 0
SSQL = แทนที่ (SSQL ,,#1,)
SSQL = แทนที่ (SSQL ,,#2,)
กรณีที่ 1
SSQL = แทนที่ (SSQL ,,#1 =#2,)
กรณีที่ 3
SSQL = แทนที่ (SSQL ,,#1,)
สิ้นสุดเลือก
ถ้าหยด ＜＞ แล้ว
ssql = ssql & where & swhere
สิ้นสุดถ้า
ถ้า Sorder ＜＞ แล้ว
ssql = ssql & สั่งซื้อโดย & sorder
สิ้นสุดถ้า
returnsql = ssql
ฟังก์ชันสิ้นสุด
'คำสั่งที่ชัดเจน
Public Sub Clear ()
stablename =
isqlType = 0
swhere =
Sorder =
SSQL =
สิ้นสุดย่อย
ชั้นเรียนจบ
%
วิธีใช้:
ตัวอย่าง: แทรกลงในข้อความ (incept, ผู้ส่ง, ชื่อ, เนื้อหา, sendtime, flag, issend) ค่า ('& incept (i) &', '& memberName &', '& title &', '& message &', Now (), 0,1)
ตั้งค่า A = new SQLString 'สร้างวัตถุคลาส
a.tableName = ข้อความ 'ตั้งชื่อตารางเป็นข้อความ
A.SQLTYPE = 0 'ตั้งค่าประเภทการสืบค้นเพื่อเพิ่มระเบียน
a.addfield incept, incept (i)
a.addfield ผู้ส่งสมาชิกชื่อ
A.Addfield Title, MemberName
a.addfield ผู้ส่งชื่อเรื่อง
A.Addfield เนื้อหาข้อความ
a.addfield sendtime, sendtime ()
A.Addfield Flag, 0
A.Addfield Issend, 1
Response.write A.returnsql
ตั้งค่า = ไม่มีอะไร
แบ่งปัน: โปรแกรมปฏิทินที่ผลิตโดย ASP โปรแกรมปฏิทิน ASP ที่สร้างขึ้นบริสุทธิ์สามารถสวยงามได้ด้วยตัวเองและมีเพียงสไตล์ CSS ที่ง่ายที่สุดเท่านั้นที่มีอยู่ที่นี่ - - สไตล์ร่างกาย {ขนาดตัวอักษร: 12px; มาร์จิ้น: 20px 0 0 20px; Padding: 0} tr, td {text-allign: center;} /style % - - - -