～～～～～～～～“回车符”神秘丢失事件！～～～～～～～～～～

[kaijier]

在一个<textarea>里输入一段文字（含回车换行)，提交到另一页面（预览页），此时把“文字”放<textarea style='display:none'>里。从这个预览页提交保存。为什么显示时，回车换行丢了呢？

[kaijier]

问题已经解决了，谢谢大家。
另问一个问题：
　　楼上的函数Fc 和我的HTMLEncode有区别吗？

[sky0120]

呵呵他的函数比你的多了点功能而已

[sky0120]

提交时处理一下
str=request.form("content")
str=replace(str,vbcrlf,"<br>")

[laochake]

在显示的时候用pre
<pre>
…………
</pre>

[kaijier]

<textarea>内容(含回车)</textarea> =>提交到数据库 =>Response.Write HTMLEncode(rs("内容"))
为什么输出的内容不换行啊？
<%
Function HTMLEncode(str)
str=Server.HTMLEncode(str)
str=Replace(str,chr(13),"")
str=Replace(str,chr(10),"<br>")
End Function
%>
--------------------------------------------
谁帮我讲解一下啊！

[sxsgssgs]

<%
function tabConvert(str)
dim tempstr
dim theStr
dim canConvert
dim theChr
tempStr=str
theChr=""
theStr=""
canConvert=1
for i=1 to len(tempStr)
theChr=mid(tempStr,i,1)
if theChr="<" then
canConvert=0
end if
if theChr=">" then
canConvert=1
end if
if theChr=" " and canConvert=1 then
theChr= " "
end if
theStr=theStr&theChr
next
theStr=replace(theStr,chr(13),"<br>")
tabConvert=theStr
End function
%>

<%=tabConvert(rs("content"))%>

[kaijier]

楼上的东西是做什么的？好像不管用啊

[孟子E章]

Function HTMLEncode(str)
str=Replace(str,vbCrLf,"<br>")
HTMLEncode = str
End Function

[x03570227]

替换掉就可以了

[i三千]

function Fc(fString)
if not isnull(fString) then
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> ")

Fc = fString
end if
end function



用这个函数,在内容显示的时候.

Response.Write Fc(rs("内容"))