有关显示文章不能换行的问题！

[IThurricane]

我是把文章加入数据库的！
用的是ASP编程，
我是这样加入数据库的：
content=request.form("content")
set rec=server.createobject("adodb.recordset")
rec.source="select * from chapter"
rec.activeconnection=conn
rec.open,,1,3
rec("content")="<pre>"&content&"</pre>"
显示时用<%=rec("content")%>
但如果是自己打换行符的话，输出文章时显示正确的！
如果是粘贴一段文章，那就会显示在一排上，出现水平
滚动条，浏览很不方便！请问该如何让所有文章都显示
正确而不出现水平滚动条啊？谢谢！

[spgoal]

把会车替换成<br>
oldchar=replace(oldchar,chr(13),"<br>")

[IThurricane]

应该把这段代码加在那里啊？

[spgoal]

oldchar=rec("content")
oldchar=replace(oldchar,chr(13),"<br>")

显示时用<%=oldchar%>

[IThurricane]

不行啊！
我试过了，
还是不行啊！

[spgoal]

function processchar(oldchar)
oldchar=replace(oldchar,"&","&")
oldchar=replace(oldchar," "," ")
oldchar=replace(oldchar,"<","<")
oldchar=replace(oldchar,">",">")
oldchar=replace(oldchar,chr(13),"<br>") '这句可以把回车替换为<br>
oldchar=replace(oldchar,chr(9),"    ")
processchar=oldchar
end function
outstr=rec("content")
outstr=processchar(outstr)
显示的时候用
<%response.write outstr%>

[IThurricane]

好，果然好用，太感谢你了：）

[MeXP]

显示时用<%=replace(rec("content"),chr(13)&chr(10),"<br>")%>就行了

[IThurricane]

我还有一个问题，我原来的数据库
content里有<pre>和</pre>，不改动数据库，
怎样让这些字符不显示啊？

[manmanchong]

如果<%=rec("content")%>是写在表格里的，那么，这样写就可以：
<td style="word-break:break-all">
<%=rec("content")%>
</td>

[梦归零]

前面原问题：
content = trim(rs("content"))
if content<>"" then
content = replace (replace (content,chr(13)&chr(10),"<br>")," ",  )
end if
后面的问题：
如果内容不多，可以重新更新下数据。如果多，可以先将数据据取出，然后用instr,和mid 把<pre>去掉。

[IThurricane]

怎么用instr,和mid把 <pre>去掉啊？谢谢：）

[梦归零]

我想还是用同样的方法吧。
content = trim(rs("content"))
if content<>"" then
content = replace (content,<pre>,"")
content = replace (content,</pre>,"")
end if

[梦归零]

我想还是用这个吧。
content = trim(rs("content"))
if content<>"" then
content = replace content,"<pre>","")
content = replace content,"</pre>","")
end if

[Go_Rush]

建议你用一下

rec("content")="<xmp>"&content&"</xmp>"

你会发现很爽的。不信你把以下代码保存为.htm文件看看效果先


<xmp>
<font color=red>red text???</font>
<hr>
<b>ho ho</b>
</xmp>