รหัสที่ใช้นิพจน์ทั่วไปเพื่อเพิ่มลิงก์ไปยัง URL ในสตริงภายใต้ asp <%
'เพิ่มลิงค์ไปยัง URL ในช่อง'
ฟังก์ชั่นToLink(Str)
Dim RE 'วัตถุนิพจน์ปกติ Dim strContent
ถ้า IsNull(Str) ดังนั้น Str =
ตั้งค่า RE = RegExp ใหม่ 'สร้างวัตถุนิพจน์ทั่วไป'
กับ RE
.Global = True 'การค้นหาใช้กับสตริงทั้งหมด
.IgnoreCase = True ' ค้นหาโดยไม่คำนึงถึงขนาดตัวพิมพ์
strContent = Str
'************************************************ * *****************
'ลิงก์ที่อยู่อีเมลตั้งค่าโดยอัตโนมัติ
'************************************************ * *****************
.รูปแบบ = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'************************************************ * *****************
'ลิงก์ตั้งค่าโดยอัตโนมัติ
'************************************************ * *****************
'======เพิ่มชื่อโปรโตคอลตามต้องการ========
ดิม ดี(3), ไอ
ง(0) = http
D(1) = ฟุตพีพี
D(2) = ข่าว
D(3) = มม
-
สำหรับ I = 0 ถึง UBound(D)
.รูปแบบ = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
ต่อไป
'************************************************ * *****************
จบด้วย
ตั้ง RE = ไม่มีเลย
ToLink = strContent
สิ้นสุดฟังก์ชัน
-