ハイパーリンク実装コードの ASP 削除 <%
関数 ReplaceUrl2(HTMLstr)
寸法 n、str1、str2、str3、str4
HTMLstr = Lcase(HTMLstr)
n=1 の場合、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 = 置換 (HTMLstr,</a>,)
ReplaceUrl2 = HTMLstr
次
終了機能
%>