请教：怎样保存留言格式：换行、空格

[beginner123]

我做一个简单留言版，留言内容放在sql server里，类型为text，
请问怎样才能保存留言时的格式，包括换行、空格等。
谢谢！

[叮咚叮咚叮叮咚]

通过htmlencode(request.form(textarea))

[xkou]

<textarea name="textarea" wrap="VIRTUAL"></textarea>
就可以保存格式,主要输出的时候控制就可以.

[mikespook]

将空格替换为 
将换行替换为<br>就可以了~~

给你一个我用了好几年的函数~~呵呵~~好用~~~

<%
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 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 "'"
result=result+"´"
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>

[kellybs]

保存的时候：
function changechr(str)
changechr=replace(replace(str,vbcrlf,"<br>")," "," ")
end function

显示的时候：

function changechr(str)
changechr=replace(replace(str,"<br>",vbcrlf)," "," ")
end function

[popcode]

replace

[sfply]

function HTMLEncode(fString)
fString = replace(fString,">", ">")
fString = replace(fString,"<", "<")
fString = replace(fString,CHR(13) & CHR(10), "<br>")
fString = replace(fString,"'", "")
fString = Replace(fString,CHR(13), " ")
fString = Replace(fString," ", " ")
HTMLEncode = fString
end function
使用时加
response.write HTMLEncode(rs("..."))

[chuanyuan88]

用replace函数

[feilong4397]

换行用〈br>
空格用 代替

[rehearts]

function coder(str)
if not isnull(str) then
str=replace(str, ">", ">")
str=replace(str, "<", "<")

str = replace(str, chr(32), " ")
str = replace(str, chr(9), " ")
str = replace(str, chr(34), """)
str = replace(str, chr(39), "'")
str = replace(str, chr(13), "")
str = replace(str, chr(10) & chr(10), "</P><P> ")
str = replace(str, chr(10), "<BR> ")

coder=str
end if
end function

使用方法：
aaa=coder(request("字段名"))

[gjd111686]

<div align=left id=App style="background-color:#F7F7F7;height:380px;overflow:auto;width:100%;z-index:2" contentEditable></div>
将App.innerHTML赋给表单域提交后
注意插入数据库必须用AddNew方法,直接用Insert插入需要处理符号,用AddNew就不用了.

[sunny911]

message= replace(message," "," ") 换空格
message= replace(message, vnbcrlf, <br>") 换回车