HTML 코드에서 모든 태그를 제거하십시오
코드 사본은 다음과 같습니다.
<%
'*******************************
'기능 : removehtml_a (strtext)
'인수 : strtext, 처리 할 문자열
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : HTML 코드에서 모든 태그를 제거하십시오
'예 : <%= removehtml_a ( "<b> alixixi </b>에 오신 것을 환영합니다."%>)
'*******************************
functionremovehtml_a (strtext)
dimnpos1
dimnpos2
npos1 = instr (strtext, "<")
dowhilenpos1> 0
npos2 = instr (npos1+1, strtext, ">")
ifnpos2> 0then
strtext = left (strtext, npos1-1) & mid (strtext, npos2+1)
또 다른
exitdo
endif
npos1 = instr (strtext, "<")
고리
removehtml_a = strtext
최종 기능 장애
%>
HTML 코드에서 모든 태그를 제거하십시오
코드 사본은 다음과 같습니다.
<%
'*******************************
'기능 : removehtml_b (strtext)
'인수 : strtext, 처리 할 문자열
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : HTML 코드에서 모든 태그를 제거하십시오
'예 : <%= removehtml_b ( "<b> alixixi </b>에 오신 것을 환영합니다.)%>
'*******************************
functionremovehtml_b (strtext)
Dimregex
setRegex = NewRegexp
regex.pattern = "<[^>]*>"
regex.global = true
removehtml_b = regex.replace (strtext, "")
최종 기능 장애
%>
HTML 코드에서 모든 태그를 제거하십시오
코드 사본은 다음과 같습니다.
<%
'*******************************
'기능 : removehtml_c (strtext)
'인수 : strtext, 처리 할 문자열
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : HTML 코드에서 모든 태그를 제거하십시오
'예 : <%= removehtml_c ( "<b> alixixi </b>에 오신 것을 환영합니다.)%>
'*******************************
functionremovehtml_c (strtext)
Dimtaglist
taglist = ";!-;-! DocType; a; Acronym; 주소; Applet; Area; B; Base; BaseFont;"& _
"bgsound; big; blockquote; body; but; button; 캡션; 중심; 인용; 코드;"& _