Сохраните его как файл .asp и выполните его. Очень интересно использовать это, когда вы используете ASPHTTP для захвата контента. Конечно, вам нужно улучшить это самостоятельно.
<%
OptionExplice
FunctionStriphtml (strhtml)
'STRIPSTHEHTMLTAGSFROMSTRHTML
Dimobjregexp, Stroutput
Setobjregexp = newRegexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "<.+?>"
'RellaceallhtmltagmatchesswithTheEmptyString
stroutput = objregexp.replace (strhtml, "")
'Rellaceall <и> с <и>
stroutput = reply (stroutput, "<", "<")
stroutput = replace (stroutput, ">", ">")
striphtml = stroutput'treurnthevalueOfStroutput
Setobjregexp = ничего
Конечная функция
%>
<formmethod = "post" id = form1name = form1>
<b> enteranhtmlstring: </b> <br>
<textarareAname = "txthtml" cols = "50" ros = "8" wrap = "virtual"> <%= request ("txthtml")%> </textarea>
<p>
<inputType = "Отправить" value = "striphtmltags!" id = sopper1name = отправить1>
</form>
<%iflen (request ("txthtml"))> 0then%>
<p> <hr> <p>
<b> <u> viewofstring <i> withno </i> htmlString: </u> </b> <br>
<xmp>
<%= Запрос ("txthtml")%>
</xmp> <p>
<b> <u> ViewOfString <i> с </i> htmlString: </u> </b> <br>
<pre>
<%= Striphtml (запрос ("txthtml"))%>
</pre>
<%Endif%>