请教高手一个关于textarea的问题！！
我写在textarea控件中的内容是有回车的，可我放到数据库中再取出来后就没有回车了，显示成一行了，请问这个问题该如何解决！谢谢了 问题点数：100、回复次数：9Top
1 楼josney（梦凌风）回复于 2004-09-01 15:55:12 得分 0
str=request.querystring("text1")
str=Replace(str, Chr(32), " ")
'把空格换成 标志
str=Replace(str, vbCrLf, "<br>")
'把回车换行符换成<br>标志
调出时再转过来就好了Top
2 楼ghostzp（不做举人，如何榜眼探花）回复于 2004-09-01 15:55:29 得分 0
textarea=request("textarea")
textarea=replace(textarea,vbcrlf,"<br>")Top
3 楼iuhxq（小灰）回复于 2004-09-01 15:56:00 得分 0
入库前转换Top
4 楼mjpclab（有只大猫猫 mjpclab.net）回复于 2004-09-01 15:56:17 得分 30
str=rs("content")
str = Replace(fString, CHR(38), "&")
str = replace(fString, ">", ">")
str = replace(fString, "<", "<")
str = Replace(fString, CHR(39), "'")
str = Replace(fString, CHR(32), " ")
str = Replace(fString, CHR(34), """)
str = Replace(fString, CHR(13)&CHR(10), "<br>")Top
5 楼zltostem（五湖沸人）回复于 2004-09-01 15:59:01 得分 0
道理~~~Top
6 楼ryuginka（一米八五的猪）回复于 2004-09-01 16:09:36 得分 30
显示所见即所得，就是输入什么显示什么的，看如下的函数，我是在大型网站里都用过的，绝对正确
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case "'"
result=result+"''"
case ">"
result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
录入是用这个函数格式化，输入转换一个回车就行了
Top
7 楼kingapex1（忘掉将来）回复于 2004-09-01 16:10:54 得分 10
'格式化函数
Sub FormatStr(Byref Str)
if isnull(str) or isempty(str) or str = "" then
response.write " "
else
str = Replace(str,chr(13),"<br>")
str =Replace(str,chr(32)," ")
response.write str
end if
End SubTop
8 楼ryuginka（一米八五的猪）回复于 2004-09-01 16:13:24 得分 20
接我的问题：
输出时候
dim content
content=replace(objrs.fields("产品说明"),"<br>",chr(13)) content=replace(content," "," ")
response.Write(content)
还有记住你在显示到textarea中时候
<textarea></textarea>这两个之间绝对不要换行，否则在开头会多一个空格（其实是tab）Top
9 楼ycted（长城万里今犹在，不见当年秦始皇！）回复于 2004-09-01 17:40:56 得分 10
function rehtml(str)
rehtml=replace(str,"<br>",chr(13))
rehtml=replace(rehtml," "," ")
end function
使用方法rehtml(rs("contnet"))Top
