'显示汉字
Function LoseHtml(ContentStr)
Dim Str,re
Str = ContentStr
On Error Resume Next
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
Str = re.Replace(Str, "")
Set re = Nothing
LoseHtml=Str
End Function
Function LoseHtml(ContentStr)