ScriptHtml 函數(shù)之過濾html標(biāo)記的asp代碼

更新時(shí)間：2007年09月01日 22:13:16 作者：

'==================================================
'函數(shù)名：ScriptHtml
'作  用：過濾html標(biāo)記
'參  數(shù)：ConStr ------ 要過濾的字符串
'==================================================
Function ScriptHtml(Byval ConStr,TagName,FType)
    Dim Re
    Set Re=new RegExp
    Re.IgnoreCase =true
    Re.Global=True
    Select Case FType
    Case 1
       Re.Pattern="<" & TagName & "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
    Case 2
       Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
    Case 3
       Re.Pattern="<" & TagName & "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
       Re.Pattern="</" & TagName & "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
    End Select
    ScriptHtml=ConStr
    Set Re=Nothing
End Function

您可能感興趣的文章:

相關(guān)文章

ASP腳本組件實(shí)現(xiàn)服務(wù)器重啟
這篇文章主要介紹了制作一個(gè)ASP腳本組件實(shí)現(xiàn)服務(wù)器重啟，組件調(diào)用系統(tǒng)API進(jìn)行操作，需要的朋友可以參考下
2015-10-10
ASP實(shí)現(xiàn)智能搜索實(shí)現(xiàn)代碼
asp下智能搜索功能的實(shí)現(xiàn)，方便大家學(xué)習(xí)
2008-06-06
分享一段代碼show.asp?id=26變成show/?26的形式
這篇文章主要介紹了分享一段代碼show.asp?id=26變成show/?26的形式,需要的朋友可以參考下
2006-11-11
asp 過濾非法字符函數(shù)
過濾非法字符
2009-02-02
asp的offset的一個(gè)go to page
呵,指定到第幾頁(yè),用dw自帶的生成的東西，我們可以參考他的思想，代碼很多垃圾代碼
2008-07-07
ASP隱藏真實(shí)文件的下載功能實(shí)現(xiàn)代碼
將下邊的文件保存為Download.asp就可以了，然后根據(jù)需要傳要下載的文件過來就可以了。
2008-12-12
推薦一篇不錯(cuò)的新手asp編程的基本法則
新手asp編程的基本法則
2008-08-08
用asp實(shí)現(xiàn)無(wú)組件生成驗(yàn)證碼的方法2種
用asp實(shí)現(xiàn)無(wú)組件生成驗(yàn)證碼的方法2種...
2007-01-01
asp提示Server 對(duì)象錯(cuò)誤 ASP 0178 : 80070005
今天幫客戶配置好服務(wù)器以后測(cè)試程序發(fā)現(xiàn)asp程序提示Server 對(duì)象錯(cuò)誤 ASP 0178 : 80070005，經(jīng)測(cè)試是因?yàn)闄?quán)限問題。
2011-11-11
ASP讀取XML實(shí)例優(yōu)酷專輯采集程序雷鋒版
用asp獲取指定專題的xml文件，然后讀取xml文件的列表內(nèi)容批量讀取。
2009-12-12