用asp语言过滤html元素!

用asp语言过滤html元素!

　　'过滤html
　　'函数名：GlHtml
　　'作用：过滤html元素
　　'参数：str----要过滤字符
　　'返回值：没有html的字符
　　'**************************************************
　　PublicFunctionGlHtml(ByValstr)
　　IfIsNull(str)OrTrim(str)=""Then
　　GlHtml=""
　　ExitFunction
　　EndIf
　　Dimre
　　Setre=NewRegExp
　　re.IgnoreCase=True
　　re.Global=True
　　re.Pattern="(\<.[^\<]*\>)"
　　str=re.Replace(str,"")
　　re.Pattern="(\<\/[^\<]*\>)"
　　str=re.Replace(str,"")
　　Setre=Nothing
　　str=Replace(str,"'","")
　　str=Replace(str,Chr(34),"")
　　GlHtml=str
　　EndFunction