ScriptHtml 函數(shù)之過濾html標記的asp代碼
更新時間：2007年09月01日 22:13:16 作者：
'==================================================
'函數(shù)名：ScriptHtml
'作 用：過濾html標記
'參 數(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
'函數(shù)名：ScriptHtml
'作 用：過濾html標記
'參 數(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
相關文章
這篇文章主要介紹了制作一個ASP腳本組件實現(xiàn)服務器重啟，組件調用系統(tǒng)API進行操作，需要的朋友可以參考下2015-10-10
asp下智能搜索功能的實現(xiàn)，方便大家學習2008-06-06
分享一段代碼show.asp?id=26變成show/?26的形式
這篇文章主要介紹了分享一段代碼show.asp?id=26變成show/?26的形式,需要的朋友可以參考下2006-11-11
過濾非法字符2009-02-02
呵,指定到第幾頁,用dw自帶的生成的東西，我們可以參考他的思想，代碼很多垃圾代碼2008-07-07
將下邊的文件保存為Download.asp就可以了，然后根據(jù)需要傳要下載的文件過來就可以了。2008-12-12
新手asp編程的基本法則2008-08-08
用asp實現(xiàn)無組件生成驗證碼的方法2種...2007-01-01
asp提示Server 對象 錯誤 ASP 0178 : 80070005
今天幫客戶配置好服務器以后測試程序發(fā)現(xiàn)asp程序提示Server 對象 錯誤 ASP 0178 : 80070005，經測試是因為權限問題。2011-11-11
用asp獲取指定專題的xml文件，然后讀取xml文件的列表內容批量讀取。2009-12-12