<%
'***********************************
'Fungsi: lepashref_a (htmlstr)
'Argumen: htmlstr, string yang akan dihapus
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua hyperlink di string
'Contoh: <%= RemoveHref_A ("<ahref =/abc/h.html> tes </a>")%>
'***********************************
FunctionRemoveHref_A (htmlstr)
DIMN, STR1, STR2, STR3, STR4
Htmlstr = lcase (htmlstr)
FORN = 1Toubound (split (htmlstr, "<a"))
str1 = instr (htmlstr, "<a")
str2 = instr (str1, htmlstr, ">")
Htmlstr = kiri (htmlstr, str1-1) & kanan (htmlstr, len (htmlstr) -len (kiri (htmlstr, str2)))))
Htmlstr = ganti (htmlstr, "</a>", "")
Hapushref_a = htmlstr
Berikutnya
Fungsi endfungsi
%>
Secara teratur menghilangkan semua hyperlink dalam string
<%
'***********************************
'Fungsi: regremovehref (htmlstr)
'Argumen: htmlstr, string yang akan dihapus
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua hyperlink dalam string secara teratur
'Contoh: <%= regremovehref ("<ahref =/abc/h.html> tes </a>")%>
'***********************************
FunctionRegremovehref (htmlstr)
Setra = newregexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
Regremovehref = ra.replace (htmlstr, "$ 1")
Fungsi endfungsi
%>