asp中格式化HTML函數(shù)代碼 SDCMS加強(qiáng)版
更新時間：2011年01月06日 00:08:22 作者：
主要用來去除html中的script，iframe等html標(biāo)記，需要的朋友可以參考下。
復(fù)制代碼 代碼如下:
'==============================
'格式化HTML，SDCMS加強(qiáng)版
'==============================
Function Nohtml(ByVal t0)
IF Len(t0)=0 Or IsNull(t0) Then
Nohtml=""
Exit Function
End IF
Dim Regs,Matches,Match
Set Regs=New Regexp
Regs.Ignorecase=True
Regs.Global=True
'過濾掉JS,Iframe
Regs.pattern ="<script.+?/script>"
t0=Regs.Replace(t0,"")
Regs.pattern ="<iframe.+?/iframe>"
t0=Regs.Replace(t0,"")
'再過濾其他
Regs.Pattern="<.+?>"
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
For Each Match In Matches
t0=Replace(t0,Match.value,"")
Next
End IF
t0=Replace(t0," ","")
t0=Replace(t0,vbCrLf,"")
t0=Replace(t0," ","")
t0=Replace(t0," ","")
t0=Replace(t0,CHR(9),"")
t0=Replace(t0,CHR(13),"")
t0=Replace(t0,CHR(10),"")
t0=Replace(t0,CHR(22),"")
Set Regs=Nothing
Nohtml=t0
End Function
相關(guān)文章
asp其實就是文本文件，用記事本就可以打開查看代碼，但asp一般是需要執(zhí)行的才能看到我們想要的效果，那么就需要asp運(yùn)行環(huán)境，一般我們購買支持asp的虛擬主機(jī)。2016-04-04
asp中實現(xiàn)隨機(jī)分組程序的代碼...2007-03-03
本人從網(wǎng)絡(luò)搜集并整理了一下asp查詢pr值的代碼,實驗并成功的用asp實現(xiàn)了查詢pr，測試通過。2011-02-02
asp下載防盜鏈代碼...2006-11-11
一想千開PJblog審核功能補(bǔ)丁 v2.0版 發(fā)布
終于完成這個 PJblog審核功能補(bǔ)丁 了，在此要向一直期待的bloger們說身抱歉了~因為時間關(guān)系，前幾天才動手……有好多朋友都問了我?guī)讉€月了~實在實在不好意思。2008-03-03
JScript下有一個Enumerator對象可以遍歷集合。根據(jù)它的文檔寫了以下程序，可以遍歷整個Request.QueryString集合2010-04-04
ASP是非常簡單的，以至于許多的開發(fā)者不會去思考錯誤處理。錯誤處理能夠讓你的應(yīng)用程序更加合理。我看到過很多個用ASP編寫的商業(yè)網(wǎng)站，大多數(shù)都忽略了錯誤處理。 錯誤的類型。2011-01-01
經(jīng)常有些地方性的B2B或者B2C網(wǎng)站到處都被批量發(fā)布好多垃圾信息，把我的解決辦法分享給大家2011-12-12
在ASP處理程序時顯示進(jìn)度...2007-03-03
ASP代碼實現(xiàn)自動清除替換ACCESS(MDB)數(shù)據(jù)庫的日文字符的
我們都知道ACCESS是ASP的親密伙伴。因為兩種最簡單的東西碰在一起總能迸發(fā)出火花。 然而，當(dāng)我們過濾不嚴(yán)格的時候經(jīng)常出現(xiàn)日文字符，這個時候搜索之后就會出現(xiàn)日文溢出。2008-06-06