Set regEx = Nothing End Function#39說(shuō)明 #39ReplaceHTMLcontent，quot\lt*？\quot，quotquot#39替換所有l(wèi)t之間的內(nèi)容 #39ReplaceHTMLcontent，quot\lt\！\2開始\2\*？\lt\！\2結(jié)束\2\quot，quot被替換內(nèi)容quot#39替換。

DropHTML=regExReplacestr， quot$1quotEnd Function dim htmlStr， newStrhtmlStr=quotltfont color=#00ff00依然家族創(chuàng)始ltfontquotnewStr=DropHTMLhtmlStrResponseWritenewStr#39輸出依然家族創(chuàng)始%。

要控制被刪除的標(biāo)簽列表，可以通過(guò)向TAGLIST常數(shù)中添加刪除標(biāo)記來(lái)實(shí)現(xiàn) 例如，要保留所有的ltB標(biāo)簽，則從TAGLIST中刪除B 當(dāng)前的列表包含了MSDN中的所有html標(biāo)簽以及 LAYER 標(biāo)簽 每個(gè)標(biāo)簽要用quotquot括起來(lái)開始標(biāo)簽和結(jié)束標(biāo)簽。

#39進(jìn)行匹配 Set Matches = objRegExpExecutestrHTML#39 遍歷匹配集合，并替換掉匹配的項(xiàng)目 For Each Match in Matches strHtml=ReplacestrHTML，MatchValue，quotquotNext RemoveHTML=strHTML Set objRegExp = Nothing End F。

應(yīng)該是可以過(guò)掉所有的標(biāo)簽的大小寫已經(jīng)忽略，全局已經(jīng)打開，多行也打開著，看了一下你的匹配式也是正確的啊你過(guò)不掉的可能是因?yàn)橹虚g有空間，而^表示的是不包含的所有字符怎么會(huì)過(guò)濾不掉呢？quotlt\？\w+\s+。

strOutput = objRegExpReplacestrHTML， quotquot#39是替換啊，把lt+？替換為quotquot不顯示，你可以使用quot*quot看效果 strOutput = ReplacestrOutput， quotltquot， quotltquotstrOutput = ReplacestrOutput， quotquot， quotquotstripHTML = str。

Dim Str，re Str=Textstr Set re=new RegExp reIgnoreCase =True reGlobal=True rePattern=quotlt^*quotStr=reReplaceStr， quotquotSet Re=Nothing Replacehtml=Str End Function 這個(gè)是過(guò)濾腳本的，你可以無(wú)限。

用正則表達(dá)式吧，剔除掉html代碼我有個(gè)vb寫的 Public Function RemoveHTMLstrTextDim RegEx Set RegEx = New RegExp RegExPattern = quotlt^*quotRegExGlobal = True RemoveHTML = RegExReplacestrText， quotquotEn。

RemoveHTML = strResult End Function 不需要移除的標(biāo)簽可以從TAGLIST中刪除 參考資料lta href=quot？id=5810htmlquot target=quot_blankquot rel=quotnofollow noopenerquot。

對(duì)于希望很好的處理這個(gè)錯(cuò)誤信息，而不使用默認(rèn)ASPNet異常報(bào)錯(cuò)信息的程序員們，你們不要禁用validateRequest=false正確的做法是在你當(dāng)前頁(yè)面添加Page_Error函數(shù)，來(lái)捕獲所有頁(yè)面處理過(guò)程中發(fā)生的而沒(méi)有處理的異常然后給用戶。

好說(shuō)啊，用瀏覽器打開網(wǎng)頁(yè)，然后選中所有內(nèi)容CTRL+A復(fù)制打開一個(gè)記事本粘貼到記事本里，ok了什么標(biāo)簽都沒(méi)有了。

你可以用替換的辦法，源代碼字符串Replacequotltpquot，quot你需要替換成的字符，如果要去掉就直接寫一個(gè)雙引號(hào)即可quot。

調(diào)用這個(gè)方法就可以了Function replaceWithoutPContentStrDim ClsTempLoseStr，regEx ClsTempLoseStr = CstrContentStrSet regEx = New RegExp regExPattern = quotlt\0，1^ltp*lt\0，1^lt。

dim conn dim connstr dim db db=quotdatabaseEnterPrisemdbquot #39如果在web根目錄下使用的話，就用這一句#39db=quotdatabaseEnterPrisemdbquot #39如果在web根目錄下面的文件夾目錄使用的話，就用這一句Set conn =。

我這個(gè)不用JS ，用正則匹配，效率也是很高的，調(diào)用也很方便，我一直用到現(xiàn)在，希望對(duì)您也有用 ltsummary 移除HTML標(biāo)簽 ltsummary ltparam name=quotHTMLStrquotHTMLStrltparam publi。

下面是asp中的方法，你可以改造成net的 Function FilterHTMLstrToFilterDim strTemp strTemp = strToFilter strTemp=replacestrTemp，quotquotquot，quotquotstrTemp=replacestrTemp，quot quot，quotquotstrTemp=replacestrTemp，quot quot，quotquotstrTemp。