先定义以下函数:
<% Function RemoveHTML(strHTML) ON ERROR RESUME NEXT Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" strOutput = objRegExp.Replace(strHTML, "") strOutput = Replace(strOutput, "<", "〈") strOutput = Replace(strOutput, ">", "〉") strOutput = Replace(str0utput, "", "") RemoveHTML = strOutput Set objRegExp = Nothing End Function %>
然后在你想要输出的地方写入:<%=RemoveHTML(rs("你要转的字段名"))%>就搞定了!
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18