ScriptHtml 函数之过滤html标记的asp代码- ASP

技术文章搜索

关键字

ASP 中的 ScriptHtml 函数之过滤html标记的asp代码

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 83 ::

收藏到网摘: n/a

GetPaing 函数之asp采集函数中用到的获取分页的代码 asp实现检查目录是否存在与建立目录的函数

'==================================================
'函数名：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

GetPaing 函数之asp采集函数中用到的获取分页的代码 asp实现检查目录是否存在与建立目录的函数

ASP 中的 ScriptHtml 函数之过滤html标记的asp代码

评论 (0) All