巧用asp语言过滤html元素:
'过滤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
【巧用asp语言过滤html元素】相关文章:
★ 看到本质而不是现象--解决ASP.NET CS0016的问题
★ Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
★ System.Runtime.InteropServices.COMException的解决方法