<%
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'********************************************************************
' 作 者 :丝雪川琼
' 创建时间 :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
'/////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////////////////////////////
%>
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'********************************************************************
' 作 者 :丝雪川琼
' 创建时间 :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
'/////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////////////////////////////
%>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货