Access调用数据库换行的问题

初学ASP的同志可能有这样一个问题，那就是往ACCESS数据库里面输入文字的时候明明打上回车了，可是调出来的文字不会自动换行，要多难看有多难看。SNAKE在捆饶无数天之后查遍互联网终于找到解决方法。

参考：http://www.blueidea.com/bbs/newsdetail.asp?id=1452906&posts=current

1，先定义一个函数：主要作用是替换特殊字符代码
<%
function HTMLEncode(fString)

    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode = fString

end function
%>

2，直接调用该函数
<%=HTMLEncode(rs("content"))%>

上面的没什么可说的，可是不太会ASP的同志可能就犯糊涂了，上面的函数咋加？加哪？加好了咋用？SNAKE在这里把自己遇到的这些笨问题的答案传授给大家~

1.代码
<%
function HTMLEncode(fString)

    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode = fString

end function
%>
上面的代码加在你要显示文档ASP文件的代码的最上面，位置随意。

<%=HTMLEncode(rs("content"))%>

这条代码加在你要显示文档的位置上。和<%=(data.Fields.Item("concent").Value)%>这条代码位置相同。（SNAKE用DW MX2004生成的代码）

2.下面是重点。

<%=HTMLEncode(rs("content"))%>(如：<%=HTMLEncode(Recordset1(wenzhang"))%>

上面的代码就是显示文档的代码，HTMLEncode就是定义函数，也就是比较长的那个函数的函数名称（SNAKE猜大概就是这个意思），rs是记录集的名称(如：Recordset1)，content是调用数据库表中字段的名称(如：文章表中的一个字段wenzhang)。这些都了解了就基本上OK了~