ASP 하이퍼링크 구현 코드 제거 <%
함수 바꾸기Url2(HTMLstr)
희미한 n,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)&오른쪽(HTMLstr,len(HTMLstr)-len(왼쪽(HTMLstr,str2)))
HTMLstr = 교체 (HTMLstr,</a>,)
바꾸기Url2 = HTMLstr
다음
기능 종료
%>