إزالة asp من رمز تنفيذ الارتباط التشعبي <%
الدالة ReplaceUrl2(HTMLstr)
خافت ن، 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)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = استبدال (HTMLstr،</a>،)
ReplaceUrl2 = HTMLstr
التالي
وظيفة النهاية
%>