从数据库读出的文本为何不能自动换行显示?大侠帮我!在线等...

[landsky]

听说用REPLACE可以,我不知道具体做.

[gq]

function changetext(str)
str2=server.HTMLEncode(str)
str2=replace(str2,chr(13),"<br>")
doublespace=" "
for sp=2 to 20
doublespace=doublespace & " "
str2=replace(str2,space(sp),doublespace)
next
changetext=str2
end function
用该函数进行处理。

• 打赏
• 举报

回复 赞

[lanying]

输出前处理
str = Replace(Request("textarea1"),vbCrLf,"<BR>")
str = Replace(str," "," ")
Response.Write str

• 打赏
• 举报

回复 赞

[MeXP]

<%=replace(rs("content"),vbcrlf,"<br>")%>

• 打赏
• 举报

回复 赞

[MeXP]

<%=replace(rs("content"),chr(13) & chr(10),"<br>")%>

• 打赏
• 举报

回复 赞

[landsky]

问题解决,只有楼上的这种方法通过
多谢楼上

• 打赏
• 举报

回复 赞