先定义以下函数:

<%
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("你要转的字段名"))%>就搞定了!