28,391
社区成员
发帖
与我相关
我的任务
分享有一急手问题,请教各位,在线等!!!!!!
我做的提交系统在多行文本框中输入内容，但提交到数据库以后，再往出调时，它不分段落，也就是说它不识别回车，调出来的内容就是整个一大段，这可怎么办啊？？？？
...全文
请发表友善的回复…
发表回复
qhdsnow 2003-10-16
- 打赏
- 举报
谢谢，我知道了！！！！！！！！！！！！！1
qhdsnow 2003-10-16
- 打赏
- 举报
有没有人管啊,呜~~~~~~~~~~~~~~~~~~~
pp4u 2003-10-16
- 打赏
- 举报
论坛里如何实现让用户填写的文本格式保持不变
use this function
<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+" "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>
or you can use "textarea",like here
use this function
<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+" "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>
or you can use "textarea",like here
