HTML 제거를 위한 ASP 함수 코드 분석은 예제와 함께 첨부되어 있으며 Script Home 프로그래밍으로 테스트되었으며 실제로 사용하기 쉽습니다.
다음 코드는 ld<sad 중간에 있는 <를 대체하지 않으므로 내용은 여전히 정상입니다.
코드는 다음과 같습니다:
<%
함수 nohtml(str)
어두워
re=new RegExp 설정
re.IgnoreCase =true
re.Global=True
re.Pattern=(/<.[^/<]*/>)
str=re.replace(str, )
re.Pattern=(/<//[^/<]*/>)
str=re.replace(str, )
str=대체(str, ,)
str=대체(str, ,)
nohtml=str
다시=아무것도 설정하지 않음
함수 종료
str=<title>sadjksjdl 스크립트 홈에서 여러분을 환영합니다 sajdljsald<sadsadsad<br> '이것은 테스트입니다
response.write nohtml(str)
%>
결과는 다음과 같습니다.
코드는 다음과 같습니다:
sadjksjdl 스크립트 홈에서 여러분을 환영합니다 sajdljsald<sadsadsad
그러나 다음 코드에서는 <를 확인하고 그 뒤에 있는 무제한 일치를 잊어버리세요.
코드는 다음과 같습니다:
<%
함수 dropHtml(Byval strHTML)
Dim objRegExp, 일치, 일치
objRegExp = 새 Regexp 설정
objRegExp.IgnoreCase = 참
objRegExp.Global = 참
'닫아주세요 <>
objRegExp.Pattern = <.+?>
'성냥
일치 항목 설정 = objRegExp.Execute(strHTML)
' 일치하는 세트를 탐색하고 일치하는 항목을 교체합니다.
경기의 각 경기에 대해
strHtml=바꾸기(strHTML,Match.Value,)
다음
dropHtml=strHTML
objRegExp = 없음으로 설정
기능 종료
str=<title>sadjksjdl 스크립트 홈에서 여러분을 환영합니다 sajdljsald<sadsadsad<br> '이것은 테스트입니다
response.write dropHtml(str)
%>
결과는 다음과 같습니다.
코드는 다음과 같습니다:
sadjksjdl 스크립트 홈에서 당신을 환영합니다 sajdljsald