'*********************************************************
'原型: RemoveHTMLTag(ObjReg,fString)
'创建者: Newskyline
'创建时间: 13:23 2005-6-25
'功能描述: 除去HTML标记
'输入参数: fString : 待处理的字符串
'返回值: String : 已处理的字符串
'*********************************************************
Function RemoveHTMLTag(ObjReg,fString)
ObjReg.Pattern = "<[^>]+>|</[^>]+>"
fString = ObjReg.Replace(fString,"")
RemoveHTMLTag = fString
End Function