우리는 ASP에 일부 하이퍼 링크를 추가 할 수 있지만 추가 한 후 필요하지 않으면 어떻게해야합니까? 이제 ASP에서 모든 하이퍼 링크를 제거하는 방법을 살펴 보겠습니다. 알고 싶다면 참조하십시오.
<%
'*******************************
'기능 : removehref_a (htmlstr)
'인수 : htmlstr, string을 제거합니다
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : 문자열의 모든 하이퍼 링크를 제거하십시오
'예 : <%= removehref_a ( "<a href =/abc/h.html> test </a>")%>
'*******************************
함수 removehref_a (htmlstr)
Dim N, Str1, Str2, Str3, Str4
htmlstr = lcase (htmlstr)
n = 1 to ubound (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 ( "<a href =/abc/h.html> test </a>")%>
'*******************************
기능 RecesremoveHref (htmlstr)
SET RA = New Regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
rebsremovehref = ra.replace (htmlstr, "$ 1")
엔드 기능
%>
위는이 기사의 모든 내용입니다. 이 기사의 내용이 모든 사람의 연구 나 업무에 도움이되기를 바랍니다. 또한 잘못된 새로운 기술 채널을 지원하기를 바랍니다!