Question

用ASP把文本从表单保存到数据库时如何保存文本的格式？

把一段文本保存到数据库后，再用Web页面显示时，发现文本都串在一起了，段落等格式没有了，如何解决？我用content=Replace(content,Chr(32), " "),运行后说缺少对象程序如下:,
<%
title=Request.form("title")
content=Request.form("content")

// content=Replace(content,Chr(32), " ")
//把空格换成 标志
//Replace(content, vbCrLf, "<br>")
//把回车换行符换成<br>标志

%>

<%Application.Lock()
//插入到数据库
var conn = Server.CreateObject("ADODB.Connection");
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("bookid.mdb"));
sql="insert into article(title,content)
values ('"+title+"','"+content+"')";

conn.Execute(sql);
conn.close();
Application.UnLock();
//Response.Redirect("display.asp")%>

Answer 1

有三个方法:
1.在上传袄数据库是时候,写一段格式代码
<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp2,Chr(13),"<br>")
exp2=Replace(exp2,Chr(10),"</p><p>")
exp2=Replace(exp2,Chr(32)," ")'还有空格哦
Deal=exp2
End Function
%>
在提交的时候直接用textarea＝Deal(request.Form("textarea"))就可以了

2.就是在读取的时候,过滤一下.
<%
dim msg
msg=rs("text")
msg=replace(msg,vbcrlf,"<br>")
msg=replace(msg," "," ")
response.write msg
%>

3.用
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString,"'", "''")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function

'这个函数包括过滤单引号，替换空格、换行、替换"<>"等等使用这个函数,只需要提数据的时候上HTMLEncode，如
title=HTMLEncode(request("text"))