国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ScriptHtml 函數之過濾html標記的asp代碼

2024-05-04 11:01:12
字體：大 中 小
來源：轉載
供稿：網友
'==================================================
'函數名：ScriptHtml
'作  用：過濾html標記
'參  數：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中過濾UBB和Html標簽asp 正則實現清除html文本格式的函數代碼asp CutStrX字符串截取函數(過濾全部HTML標記)ASP.NET過濾HTML字符串方法總結ASP.NET過濾HTML標簽只保留換行與空格的方法asp中實現清除html的函數

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 和静县| 绥宁县| 长春市| 寻甸| 迁西县| 湛江市| 治县。| 奉新县| 顺平县| 同仁县| 霍州市| 阳山县| 墨玉县| 日照市| 会泽县| 江华| 武宁县| 奇台县| 紫阳县| 芷江| 台北县| 南皮县| 佳木斯市| 普兰店市| 庆城县| 革吉县| 巨鹿县| 同德县| 龙井市| 巴彦县| 玛曲县| 车致| 郑州市| 沅陵县| 循化| 原平市| 江都市| 藁城市| 乌什县| 三穗县| 金溪县|