การแบ่งปันฟังก์ชันบางอย่างของ ASP ที่เลียนแบบ PHP นั้นมีวัตถุประสงค์หลักเพื่อความสะดวกของเพื่อนที่เรียน PHP ก่อนแล้วจึงเรียน ASP คัดลอกรหัสรหัสดังต่อไปนี้:
'กระบวนการ: สตริงเอาต์พุต [แทนที่ Response.Write]
ย่อยเสียงสะท้อน(Str)
การตอบสนองเขียน (Str)
จบหมวดย่อย
'ฟังก์ชัน: รับแบบฟอร์ม [แทนที่ Request.Form]
ฟังก์ชั่นที่ต้องการ(Str)
reqf = คำขอแบบฟอร์ม (Str)
ฟังก์ชันสิ้นสุด
'กระบวนการ: สิ้นสุดหน้าและส่งออกสตริง
ซับดี(Str)
การตอบสนองเขียน (Str)
การตอบสนองสิ้นสุด()
จบหมวดย่อย
'ฟังก์ชั่น: ส่งคืนผลลัพธ์ไฟล์ ASP ที่รันอยู่เป็นสตริง
ฟังก์ชั่น ob_get_contents (เส้นทาง)
Dim tmp, a, b, t, แมตช์, ม
ถนนติ่มซำ
Str = file_iread (เส้นทาง)
tmp = สลัว htm : htm = &vbCrLf
ก = 1
b = InStr(a, Str, <%) + 2
ในขณะที่ b > a + 1
t = กลาง(Str, a, b - a -2)
t = แทนที่ (t, vbCrLf, {::vbcrlf})
t = แทนที่ (t, vbCr, {::vbcr})
เสื้อ = แทนที่(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
a = InStr(b, Str, %/>) + 2
tmp = tmp & str_replace(^/s*=, กลาง (Str, b, a - b -2), htm = htm & ) & vbCrLf
b = InStr(a, Str, <%) + 2
เวนด์
t = กลาง(Str, a)
t = แทนที่ (t, vbCrLf, {::vbcrlf})
t = แทนที่ (t, vbCr, {::vbcr})
เสื้อ = แทนที่(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = แทนที่ (tmp, response.write, htm = htm & , 1, -1, 1)
tmp = แทนที่ (tmp, echo, htm = htm & , 1, -1, 1)
'ดำเนินการ (tmp)
ดำเนินการทั่วโลก (tmp)
htm = แทนที่ (htm, {::vbcrlf}, vbCrLf)
htm = แทนที่ (htm, {::vbcr}, vbCr)
ob_get_contents = htm
ฟังก์ชันสิ้นสุด
'กระบวนการ: รวมไฟล์แบบไดนามิก
รวมย่อย(เส้นทาง)
echo ob_get_contents (เส้นทาง)
จบหมวดย่อย
'ฟังก์ชัน: การเข้ารหัส base64'
ฟังก์ชั่น base64encode (byval Str)
ถ้า IsNull(Str) ให้ออกจากฟังก์ชัน
ฐานสลัว64
ตั้ง base64 = ใหม่ base64_class
Str = base64.encode(Str)
ตั้ง base64 = ไม่มีเลย
base64encode = Str
ฟังก์ชันสิ้นสุด
'ฟังก์ชั่น: การถอดรหัส base64
ฟังก์ชั่น base64decode (byvalStr)
ถ้า IsNull(Str) ให้ออกจากฟังก์ชัน
ฐานสลัว64
ตั้ง base64 = ใหม่ base64_class
Str = base64.ถอดรหัส (Str)
ตั้ง base64 = ไม่มีเลย
base64decode = Str
ฟังก์ชันสิ้นสุด
'ฟังก์ชัน: การเข้ารหัส URL'
ฟังก์ชั่น urlencode (byvalStr)
ถ้า IsNull(Str) ให้ออกจากฟังก์ชัน
Str = เซิร์ฟเวอร์ URLEncode (Str)
urlencode = Str
ฟังก์ชันสิ้นสุด
'ฟังก์ชั่น: Escape การเข้ารหัส'
ฟังก์ชั่นหลบหนี (byval Str)
ถ้า IsNull(Str) ให้ออกจากฟังก์ชัน
หรี่ i, c, a, tmp
ทีเอ็มพี=
สำหรับ i = 1 ถึง Len(Str)
c = กลาง(Str, i, 1)
ก = ascw(ค)
ถ้า (a>= 48 และ a<= 57) หรือ (a>= 65 และ a<= 90) หรือ (a>= 97 และ a<= 122) แล้ว
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 จากนั้น
tmp = tmp&c
ElseIf a>0 และ a<16 จากนั้น
tmp = tmp & %0 & เลขฐานสิบหก (ก)
ElseIf a>= 16 และ a<256 จากนั้น
tmp = tmp & % & ฐานสิบหก (ก)
อื่น
tmp = tmp & %u & เลขฐานสิบหก (ก)
สิ้นสุดถ้า
ต่อไป
หลบหนี=tmp
ฟังก์ชันสิ้นสุด
'ฟังก์ชั่น: หลบหนีการถอดรหัส'
ฟังก์ชั่น unescape (byval Str)
ถ้า IsNull(Str) ให้ออกจากฟังก์ชัน
หรี่ i, c, tmp
ทีเอ็มพี=
สำหรับ i = 1 ถึง Len(Str)
c = กลาง(Str, i, 1)
ถ้า Mid(Str, i, 2) = %u และ i<= Len(Str) -5 แล้ว
ถ้า IsNumeric(&H & Mid(Str, i + 2, 4)) จากนั้น
tmp = tmp & chrw(CInt(&H & กลาง(Str, i + 2, 4)))
ฉัน = ฉัน + 5
อื่น
tmp = tmp&c
สิ้นสุดถ้า
ElseIf c = % และ i<= Len(Str) -2 จากนั้น
ถ้า IsNumeric(&H & Mid(Str, i + 1, 2)) จากนั้น
tmp = tmp & chrw(CInt(&H & กลาง(Str, i + 1, 2)))
ฉัน = ฉัน + 2
อื่น
tmp = tmp&c
สิ้นสุดถ้า
อื่น
tmp = tmp&c
สิ้นสุดถ้า
ต่อไป
unescape = tmp
ฟังก์ชันสิ้นสุด