Simpan sebagai file .asp dan jalankan. Sangat menarik untuk menggunakan ini saat Anda menggunakan ASPHTTP untuk menangkap konten. Tentu saja, Anda perlu memperbaikinya sendiri.
<%
OptionExplicit
Functionstriphtml (strhtml)
'Striptheehtmltagsfromstrhtml
Dimobjregexp, Stroutput
Setobjregexp = newregexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "<.+?>"
'ReplaceallhtmltagMatcheswith theStrystring
stroutput = objregexp.replace (strhtml, "")
'Replaceall <dan> dengan <ng <and>
stroutput = ganti (stroutput, "<", "<")
stroutput = ganti (stroutput, ">", ">")
striphtml = stroutput'returnthevalueofstroutput
Setobjregexp = tidak ada
Fungsi endfungsi
%>
<FormMethod = "POST" ID = Form1Name = Form1>
<b> enteranhtmlstring: </b> <br>
<textareaname = "txthtml" cols = "50" baris = "8" wrap = "virtual"> <%= request ("txthtml")%> </pextarea>
<p>
<inputType = "Kirim" value = "stripHtmltags!" ID = submit1name = kirim1>
</form>
<%iflen (permintaan ("txthtml"))> 0then%>
<p> <hr> <p>
<b> <u> viewofstring <i> withno </i> htmlstripping: </u> </b> <br>
<xmp>
<%= Request ("txthtml")%>
</xmp> <p>
<b> <u> viewofstring <i> dengan </i> htmlstripping: </u> </b> <br>
<per>
<%= StripHtml (permintaan ("txthtml"))%>
</per>
<%Endif%>