<%
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'********************************************************************
' 作    者 :丝雪川琼
' 创建时间 :2004-6-30
' 功    能 :去掉字符串的HTML代码
' 函数模块 : ErashHTMLCode(strString)
'********************************************************************
'/////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////////////////////////////Function EraseHTMLCode(strString)
  Dim objReg

  Set objReg = new RegExp
  objReg.IgnoreCase       = True
  objReg.Global           = True
  objReg.Pattern          = "(\<.[^\<]*\>)"
  
  strString = objReg.Replace(strString,"")
  
  objReg.Pattern = "(\<\/[^\<]*\>)"
  strString = objReg.Replace(strString,"")
  
  Set objReg = Nothing
  EraseHTMLCode = strString
End Function
'/////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////////////////////////////
%>