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

首頁 > 編程 > ASP > 正文

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

2020-07-27 13:05:27
字體：大 中 小
供稿：網(wǎng)友
'==================================================
'函數(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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 兴隆县| 兴城市| 蓝田县| 龙南县| 阿鲁科尔沁旗| 旌德县| 定西市| 墨竹工卡县| 炉霍县| 三河市| 都兰县| 兰西县| 蓬溪县| 青神县| 民和| 哈密市| 昭苏县| 崇阳县| 肇庆市| 高青县| 华蓥市| 沽源县| 交口县| 和平区| 突泉县| 塘沽区| 三穗县| 江油市| 灵丘县| 仪征市| 揭西县| 壤塘县| 乌苏市| 县级市| 西乌| 巴中市| 清河县| 潢川县| 新绛县| 沁源县| 韶关市|