asp การลบโค้ดการใช้งานไฮเปอร์ลิงก์ <%
ฟังก์ชัน แทนที่Url2(HTMLstr)
หรี่ n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
สำหรับ n=1 ถึง Ubound(Split(HTMLstr,<a))
str1 = Instr(HTMLstr,<a)
str2 = Instr(str1,HTMLstr,>)
HTMLstr = ซ้าย(HTMLstr,str1-1)&ขวา(HTMLstr,len(HTMLstr)-len(ซ้าย(HTMLstr,str2)))
HTMLstr = แทนที่ (HTMLstr,</a>,)
แทนที่ Url2 = HTMLstr
ต่อไป
ฟังก์ชันสิ้นสุด
-