过滤html 元素

2010-1-31 08:03| 发布者: admin| 查看: 62| 评论: 0|原作者: 段誉

'函数ID：0002[过滤html]
'函数名：GlHtml
'作用：过滤html 元素
'参数：str ---- 要过滤字符
'返回值：没有html 的字符
'**************************************************
Public Function GlHtml(ByVal str)
If IsNull(str) Or Trim(str) = "" Then
GlHtml = ""
Exit Function
End If
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "(\<.[^\<]*\>)"
str = re.Replace(str, " ")
re.Pattern = "(\<\/[^\<]*\>)"
str = re.Replace(str, " ")
Set re = Nothing
str = Replace(str, "'", "")
str = Replace(str, Chr(34), "")
GlHtml = str
End Function

收藏分享邀请

		自动登录	找回密码
密码			注册

过滤html 元素

最新评论

相关分类