这是一个简单的安全过滤函数了把html 转换字符转换成可以显示的文本了
Function HTMLDecode(reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = Replace(Str "&" "&")
Str = Replace(Str ">" ">")
Str = Replace(Str "<" "<")
Str = Replace(Str " " CHR())
Str = Replace(Str " " CHR())
Str = Replace(Str "&#;&#;&#;&#;" CHR())
Str = Replace(Str """ CHR())
Str = Replace(Str "&#;" CHR())
Str = Replace(Str "" CHR())
Str = Replace(Str "<br>" CHR())
HTMLDecode = Str
End If
End Function
