ใน ASP ชิ้นส่วนของรหัสที่มีค่าส่งคืนเรียกว่าฟังก์ชัน เราสามารถเขียนโค้ดชิ้นหนึ่งเพื่อคำนวณว่าหมายเลขธรรมชาติเป็นหมายเลขเฉพาะหรือไม่จากนั้นกลับไปที่โปรแกรมการโทร วันนี้ช่องทางเทคโนโลยีใหม่จะแบ่งปันกับคุณฟังก์ชั่นที่ใช้กันทั่วไปของ ASP คืออะไร? บรรณาธิการจะอธิบายให้คุณทราบอย่างละเอียด
-
DIM DB
db = "dbms.mdb"
-
'เรียกใช้คำสั่ง SQL โดยไม่ต้องส่งคืนค่า คำสั่ง SQL ที่ดีที่สุดมีดังนี้:
'อัปเดตชื่อตารางตั้งชื่อฟิลด์ชื่อ = ค่าชื่อฟิลด์ = ค่าที่ชื่อฟิลด์ชื่อ = ค่า
'ลบจากชื่อตารางที่ชื่อฟิลด์ = ค่า
'แทรกลงในชื่อตาราง (ชื่อฟิลด์ชื่อฟิลด์) ค่า (ค่า, ค่า)
-
Sub Noresult (SQL)
หรี่
หรี่
ตั้งค่า conn = server.createObject ("adodb.connection"))
connstr = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath ("" & db & "")
conn.open connstr
conn.execute SQL
conn.close
ตั้งค่า conn = ไม่มีอะไร
สิ้นสุดย่อย
-
'เรียกใช้คำสั่ง SELECT และส่งคืนวัตถุ RecordSet วัตถุนี้อ่านอย่างเดียว นั่นคือไม่สามารถอัปเดตได้
-
ฟังก์ชันผลลัพธ์ (SQL)
หรี่
หรี่
Dim RCS
ตั้งค่า conn = server.createObject ("adodb.connection"))
connstr = "ผู้ให้บริการ = 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> การแจ้งเตือน ('" & ข้อความ & "') </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)
ผลลัพธ์ = ผลลัพธ์+"<br>"
Case Chr (34)
ผลลัพธ์ = ผลลัพธ์+"" "
กรณี "&"
ผลลัพธ์ = ผลลัพธ์+"&"
Case Chr (32)
'result = result+""
ถ้าฉัน+1 <= l และ i-1> 0 แล้ว
ถ้า mid (str, i+1,1) = chr (32) หรือ mid (str, i+1,1) = chr (9) หรือ mid (str, i-1,1) = chr (32) หรือ mid (str, i-1,1) = chr (9)
ผลลัพธ์ = ผลลัพธ์+""
อื่น
ผลลัพธ์ = ผลลัพธ์+""
สิ้นสุดถ้า
อื่น
ผลลัพธ์ = ผลลัพธ์+""
สิ้นสุดถ้า
CASE CHR (9)
ผลลัพธ์ = ผลลัพธ์+""
กรณีอื่น
ผลลัพธ์ = ผลลัพธ์+mid (str, i, 1)
สิ้นสุดเลือก
ต่อไป
htmlencode2 = ผลลัพธ์
ฟังก์ชันสิ้นสุด
-
'ตรวจสอบว่ามีคำพูดเดียวในสตริง SQL หรือไม่และถ้ามีให้แปลง
-
การตรวจสอบฟังก์ชัน (STR)
Dim TSTR, L, I, CH
str = trim (str)
l = len (str)
สำหรับ i = 1 ถึง l
CH = mid (str, i, 1)
ถ้า ch = "'" แล้ว
TSTR = TSTR+"'"
สิ้นสุดถ้า
TSTR = TSTR+CH
ต่อไป
checkstr = tstr
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นทั่วไปที่ใช้ใน ASP แนะนำโดยช่องเทคโนโลยีใหม่ในบทความของวันนี้คืออะไร? ฉันเชื่อว่าผ่านการแนะนำข้างต้นทุกคนได้เรียนรู้อย่างละเอียด แต่ก็ยังต้องตรวจสอบเพื่อรวมความรู้นี้