ASP-Entfernung des Hyperlink-Implementierungscodes <%
Funktion ReplacementUrl2(HTMLstr)
Dimmen Sie n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
Für n=1 bis Ubound(Split(HTMLstr,<a))
str1 = Instr(HTMLstr,<a)
str2 = Instr(str1,HTMLstr,>)
HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = ersetzen (HTMLstr,</a>,)
ReplacementUrl2 = HTMLstr
Nächste
Funktion beenden
%>