<%
'*******************************
'기능 : removehref_a (htmlstr)
'인수 : htmlstr, string을 제거합니다
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : 문자열의 모든 하이퍼 링크를 제거하십시오
'예 : <%= removehref_a ( "<ahref =/abc/html> test </a>")%>
'*******************************
functionremovehref_a (htmlstr)
Dimn, str1, str2, str3, str4
htmlstr = lcase (htmlstr)
forn = 1toubound (split (htmlstr, "<a"))
str1 = instr (htmlstr, "<a")
str2 = instr (str1, htmlstr, ">")
htmlstr = left (htmlstr, str1-1) & 오른쪽 (htmlstr, len (htmlstr) -len (왼쪽 (htmlstr, str2)))
htmlstr = replace (htmlstr, "</a>", "")
removehref_a = htmlstr
다음
최종 기능 장애
%>
문자열에서 모든 하이퍼 링크를 정기적으로 제거하십시오
<%
'*******************************
'기능 : rebsremovehref (htmlstr)
'인수 : htmlstr, string을 제거합니다
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : 정기적으로 문자열의 모든 하이퍼 링크를 제거하십시오
'예 : <%= rebsremovehref ( "<ahref =/abc/html> test </a>")%>
'*******************************
FunctionRegremoveHref (htmlstr)
setra = NewRegexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
rebsremovehref = ra.replace (htmlstr, "$ 1")
최종 기능 장애
%>