احفظه كملف .asp وتنفيذه. من المثير للغاية استخدام هذا عند استخدام ASPHTTP لالتقاط المحتوى. بالطبع ، تحتاج إلى تحسينه بنفسك.
<٪
OptionExplicit
وظيفة striphtml (strhtml)
'stripsthehtmltagsfromstrhtml
Dimobjregexp ، Stroutput
setObJregexp = NewRegexp
objregexp.ignorecase = صحيح
objregexp.global = صحيح
objregexp.pattern = "<.+؟>"
'REPLACEALHTMLTAGMATCHESWITHEMEPTYSTRING
stroutput = objregexp.replace (strhtml ، "")
'Replaceall <و> مع <و>
stroutput = استبدال (stroutput ، "<" ، "<")
Stroutput = استبدال (stroutput ، ">" ، ">")
StripHtml = stroutput'returnthevalueofstroutput
setObJregexp = لا شيء
الوظيفية
٪>
<formmethod = "post" id = form1name = form1>
<b> EnteranhtmlString: </b> <br>
<textAreaname = "txthtml" cols = "50" rows = "8" wrap = "virtual"> <٪ = request ("txthtml") ٪> </textarea>
<p>
<pecttype = "إرسال" value = "StripHtmlTags!" id = submit1name = submit1>
</form>
<٪ iflen (request ("txthtml"))> 0then ٪>
<p> <hr> <p>
<b> <u> viewOfString <i> withno </i> htmlstripping: </u> </b> <br>
<xmp>
<٪ = request ("txthtml") ٪>
</smp> <p>
<b> <u> viewOfString <i> مع </i> htmlstripping: </u> </b> <br>
<pre>
<٪ = StripHtml (request ("TXTHTML")) ٪>
</pre>
<٪ endif ٪>