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