后台添回新闻时有回车,但前台不正常显示,而是显示等HTML代码?

[yangxifang]

ASP后台添回新闻时有回车,但前台不正常显示,而是显示<br><P>等HTML代码?我急用啊,请各位大虾帮忙!!

[yangxifang]

太感谢了，我试一下。

[zhuyongzhao]

过滤掉HTML代码

[zhuyongzhao]

Function Replace_Text(fString)
If Not IsNull(fString) Then
fString = trim(fString)
fString = replace(fString, ";", "；") '分号过滤
fString = replace(fString, "--", "——") '--过滤
fString = replace(fString, "%20", "") '特殊字符过滤
fString = replace(fString, "==", "") '==过滤
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ") ' 
fString = Replace(fString, CHR(9), " ") ' 
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'") '单引号过滤
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
Replace_Text = fString
End If
End Function

利用这函数过滤
例如:<%=Replace_Text(rs("content"))%>