asp中，如何对某个变量清除格式

当发表一篇文章后，内容中的文字已经加粗、大号、有颜色等格式，如何在显示时，不需要这些格式！没有大号、加粗等一系列的格式！相当于纯文本显示：

如何对这个清除格式后显示：<%=(wenzhang.Fields.Item("nr").Value)%>

是要过滤掉样式吗··asp 是没这功能了··写了个函数给你·过滤所有html 代码的

把他们过滤掉就可以 以 纯文本的形式显示了··如文章简介等。

'=============================================================
 '函数作用：过滤HTML代码
 '=============================================================

 Function RemoveHTML(strHTML)
 Dim objRegExp, Match, Matches
 Set objRegExp = New Regexp
 objRegExp.IgnoreCase = True
 objRegExp.Global = True
 '取闭合的<>
 objRegExp.Pattern = "<.+?>"
 '进行匹配
 strHTML=replace(strHTML,"&nbsp;","")
 Set Matches = objRegExp.Execute(strHTML)
 ' 遍历匹配集合，并替换掉匹配的项目
 For Each Match in Matches
 strHtml=Replace(strHTML,Match.Value,"")
 Next
 RemoveHTML=strHTML
 Set objRegExp = Nothing
 End Function

调用方式   RemoveHTML(Rs("数据字段"))

<%

 Function ClearHtml(strHtml)    Dim objRegExp, strOutput  Set objRegExp = New Regexp ' 建立正则表达式    objRegExp.IgnoreCase = True ' 设置是否区分大小写  objRegExp.Global = True '是匹配所有字符串还是只是第一个  objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式，用来找出html标签    strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉  strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示  strOutput = Replace(strOutput, ">", ">")  ClearHtml = strOutput    Set objRegExp = Nothing  End Function

%>

使用这个函数 ..