1、再输入数据到库时进行编码
2、在显示时用replace之类的函数给两段asp代码,希望对你有帮助1、Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", ">")
    fString = replace(fString, "<", "&lt;")    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")    fString=ChkBadWords(fString)
    HTMLEncode = fString
end if
end function2、response.write replace(rs("content"),vbcrlf,"<br><br>")推荐使用第一种