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
'函數(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)文章
有時(shí)候我們需要去掉字符串中最后一個(gè)逗號(hào)，因?yàn)槲覀冇玫降臄?shù)組等，會(huì)多個(gè)空值，這里簡(jiǎn)單分享一下，其實(shí)前端js與后臺(tái)asp結(jié)合比較好2010-05-05
使用FSO把文本信息導(dǎo)入數(shù)據(jù)庫...2006-08-08
ASP 日期的加減運(yùn)算實(shí)現(xiàn)代碼
今天在工作中遇到了一個(gè)問題，需要按時(shí)間查詢，可是查詢出來的結(jié)果顯示的不正確。2009-12-12
新增加一個(gè)防垃圾評(píng)論的asp代碼，鄙視垃圾
最近開通了，可以發(fā)表評(píng)論就一直被垃圾評(píng)論和留言困擾，一直沒有找到很好的解決辦法。今天發(fā)現(xiàn)了這個(gè)可以防止垃圾評(píng)論的asp代碼,特提供給大家，希望大家能擺脫2007-12-12
asp 常用函數(shù)用法...2006-10-10
防采集的原理非常簡(jiǎn)單，首先放一段動(dòng)態(tài)語句，把訪問者的IP加入到數(shù)據(jù)庫的一個(gè)表里，然后在頁面底部加入一個(gè)JS，JS直接訪問動(dòng)態(tài)頁面，將訪問者的IP加入到數(shù)據(jù)庫的另外一個(gè)表里。2010-04-04
ASP語言實(shí)現(xiàn)對(duì)SQL SERVER數(shù)據(jù)庫的操作
目前有很多介紹用ASP開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫的程序例子，但絕大部分是利用ACCESS作底層數(shù)據(jù)庫。相對(duì)于ACCESS而言，SQL SERVER數(shù)據(jù)庫系統(tǒng)要復(fù)雜得多，因此在程序開發(fā)中需要多做一些工作。筆者結(jié)合自己開發(fā)管理信息系統(tǒng)的經(jīng)驗(yàn)，在此試舉一例，與感興趣的朋友共同交流2015-09-09
asp中需要獲取某年總共有多少天，主要是利用了asp中的DatePart函數(shù)2012-07-07
asp中文件與文件夾常用處理函數(shù)(文件后綴、創(chuàng)建文件等)
asp中尤其是需要生產(chǎn)靜態(tài)的cms系統(tǒng)中，經(jīng)常需要對(duì)一些文件進(jìn)行判斷與創(chuàng)建，刪除的操作，這里整理了一些，基本上滿足了基本需要。2011-01-01
ASP獲取ACCESS數(shù)據(jù)庫表名及結(jié)構(gòu)的代碼
此方法可獲得ACCESS數(shù)據(jù)的表名及其結(jié)構(gòu)，數(shù)據(jù)類型等... 程序過濾了幾個(gè)ACCESS數(shù)據(jù)庫的幾個(gè)隱藏表(可能是導(dǎo)致ACCESS數(shù)據(jù)庫刪除數(shù)據(jù)還會(huì)變大的原因)2008-08-08