penghapusan asp kode implementasi hyperlink <%
Fungsi GantiUrl2(HTMLstr)
Redupkan n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
Untuk n=1 hingga Ubound(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>,)
GantiUrl2 = HTMLstr
Berikutnya
Fungsi Akhir
%>