Question

关于textarea换行的问题

在测试网站的时候，发现在textarea中输入完数据后，其中有回车换行的动作，但是在显示提取出来的数据后，是按一行显示的，中间只有一个空格，没有实现换行显示，有哪位高手知道，怎么让结果按我想象的来显示，恳请赐教。我用的是ASP语言。
'---------- 定义转换字符函数 -----------
Function Str_filter(InString)
NewStr=Replace(InString,"'","''")
NewStr=Replace(NewStr,"<","<")
NewStr=Replace(NewStr,">",">")
NewStr=Replace(NewStr,"chr(60)","<")
NewStr=Replace(NewStr,"chr(37)",">")
NewStr=Replace(NewStr,"""",""")
NewStr=Replace(NewStr,";",";;")
NewStr=Replace(NewStr,"--","-")
NewStr=Replace(NewStr,"/*"," ")
NewStr=Replace(NewStr,"%"," ")
Str_filter=NewStr
End Function

Answer 1

提交到数据库时，用如下函数过过滤一下。就可以了。

用法：
将这段代码放到提交页面的asp文件里。
比如说你接收到的是
request("content")

那你就将
FormatHTML(request("content"))
存到数据库内就OK了。
<%
Function FormatHTML(fString)
If fString<>"" Then
fString = trim(fString)
fString = replace(fString, ";", "；") '分号过滤
fString = replace(fString, "--", "——") '--过滤
fString = replace(fString, "%20", "") '特殊字符过滤
fString = replace(fString, "==", "") '==过滤
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ") ' 
fString = Replace(fString, CHR(9), " ") ' 
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'") '单引号过滤
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
FormatHTML = fString
End If
End Function
%>