ฟังก์ชั่นที่ใช้กันทั่วไปของ ASP ฉันหวังว่าพวกเขาจะสามารถใช้งานได้
-
DIM DB
db = dbms.mdb
-
'เรียกใช้คำสั่ง SQL โดยไม่ต้องส่งคืนค่า คำสั่ง SQL ที่ดีที่สุดมีดังนี้:
'อัปเดตชื่อตารางตั้งชื่อฟิลด์ชื่อ = ค่าชื่อฟิลด์ = ค่าที่ชื่อฟิลด์ชื่อ = ค่า
'ลบจากชื่อตารางที่ชื่อฟิลด์ = ค่า
'แทรกลงในชื่อตาราง (ชื่อฟิลด์ชื่อฟิลด์) ค่า (ค่า, ค่า)
-
Sub Noresult (SQL)
หรี่
หรี่
SET Conn = Server.CreateObject (ADODB.Connection)
connstr = provider = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & server.mappath (& db &)
conn.open connstr
conn.execute SQL
conn.close
ตั้งค่า conn = ไม่มีอะไร
สิ้นสุดย่อย
-
'เรียกใช้คำสั่ง SELECT และส่งคืนวัตถุ RecordSet วัตถุนี้อ่านอย่างเดียว นั่นคือไม่สามารถอัปเดตได้
-
ฟังก์ชันผลลัพธ์ (SQL)
หรี่
หรี่
Dim RCS
SET Conn = Server.CreateObject (ADODB.Connection)
connstr = provider = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & server.mappath (& db &)
conn.open connstr
ตั้งค่า rcs = server.createObject (adodb.recordset)
RCS.Open SQL, Conn, 1,1
ตั้งค่าผลลัพธ์ = rcs
ฟังก์ชันสิ้นสุด
-
'กล่องโต้ตอบปรากฏขึ้น
-
การแจ้งเตือนย่อย (ข้อความ)
ข้อความ = แทนที่ (ข้อความ, ',/')
Response.write (<script> Alert ('& Message &') </script>)
สิ้นสุดย่อย
-
'กลับไปที่หน้าก่อนหน้ามักจะใช้หลังจากตัดสินว่ามีการส่งข้อมูลอย่างสมบูรณ์
-
sub goack ()
Response.write (<script> history.go (-1) </script>)
สิ้นสุดย่อย
-
'เปลี่ยนเส้นทางการเชื่อมต่ออื่น
-
Sub Go (URL)
Response.write (<script> location.href ('& url &') </script>)
สิ้นสุดย่อย
-
'แทนที่แท็ก HTML
-
ฟังก์ชั่น htmlencode2 (str)
ผลที่สลัว
สลัว l
ถ้า isnull (str) แล้ว
htmlencode2 =
ฟังก์ชั่นออก
สิ้นสุดถ้า
l = len (str)
ผลลัพธ์ =
หรอกฉัน
สำหรับ i = 1 ถึง l
เลือกเคสกลาง (str, i, 1)
กรณี <
ผลลัพธ์ = ผลลัพธ์+<
กรณี>
ผลลัพธ์ = ผลลัพธ์+>
Case Chr (13)