■□■□■ 怎么把text输入中的回车变成“”？？？

[AceZLB]

如题
每次输入之后回车就没了，htmlencode只能变 <>" 之类的，不能识别空格和回车，空格replace一下就可以了，回车怎么识别呢？
谢谢啦

[黑马]

回车：yourStr.replaceAll("\r","<br/>");
空格：yourStr.replaceAll(" "," ");

[angelheavens]

回车:replace(str,"<br>",chr(13)&chr(10))

[nolonely]

content=replace(request.form("content"),vbcrlf,"<br>")

[tommerxx]

<%function htmlencode(str)
dim result
dim l
if isNULL(str) then
htmlencode=""
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 else
result=result+mid(str,i,1)
end select
next
htmlencode=result
end function%>

textcontent = htmlencode(request.form("inputbox"))

[bineon]

用楼上的函数比较好

——————————————————————————————————
www.91asp.cn
有时间到这里找资料找书籍，你会发现asp以及.net很容易！
前提是你努力学习！

[qjqmoney]

<%
function htmlContent(fString)
if fString<>"" and not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " ", chr(32))
fString = Replace(fString, "</P><P>", CHR(10))
fString = Replace(fString, "<BR>", CHR(10))
fString = replace(fString,"<p>","")
fString = replace(fString,"<p","<")
fString = replace(fString,"</P>",CHR(10))
fString = replace(fString,"[[","<")
fString = replace(fString,"]]",">")
htmlContent=fString
else
htmlContent=""
end if
end function
%>

[黑马]

学习