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)對SQL SERVER數(shù)據(jù)庫的操作
目前有很多介紹用ASP開發(fā)網(wǎng)絡數(shù)據(jù)庫的程序例子,但絕大部分是利用ACCESS作底層數(shù)據(jù)庫。相對于ACCESS而言,SQL SERVER數(shù)據(jù)庫系統(tǒng)要復雜得多,因此在程序開發(fā)中需要多做一些工作。筆者結合自己開發(fā)管理信息系統(tǒng)的經(jīng)驗,在此試舉一例,與感興趣的朋友共同交流2015-09-09asp中文件與文件夾常用處理函數(shù)(文件后綴、創(chuàng)建文件等)
asp中尤其是需要生產(chǎn)靜態(tài)的cms系統(tǒng)中,經(jīng)常需要對一些文件進行判斷與創(chuàng)建,刪除的操作,這里整理了一些,基本上滿足了基本需要。2011-01-01ASP獲取ACCESS數(shù)據(jù)庫表名及結構的代碼
此方法可獲得ACCESS數(shù)據(jù)的表名及其結構,數(shù)據(jù)類型等... 程序過濾了幾個ACCESS數(shù)據(jù)庫的幾個隱藏表(可能是導致ACCESS數(shù)據(jù)庫刪除數(shù)據(jù)還會變大的原因)2008-08-08