Function LoseHtml(nr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(nr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr
End function
调用<%=LoseHtml(rs("body"))%>