asp如何处理备注字段在网页中的显示和保存，回车和换行？

[rensh]

asp如何处理备注字段在网页中的显示和保存，回车和换行？

[saucer]

search the answer in the Solved section, or try in VBScript:
<%
str = replace(rs("Your字段Name").Value, " ", " ")
str = replace(str, chr(13) & chr(10), "<BR>")

Response.Write str
%>

[flashasp]

replace(str, chr(13) & chr(10), "<BR>")//回车/换行用<BR>代替
replace(rs("Your字段Name").Value, " ", " ")//空格用 ；代替

[freezwy]

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

[cshadow]

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+"<br>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>

[freezwy]

给你个更完整的函数：
<%
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 chr(13)
result=result+"<br>"
case chr(34)
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
%>

[水墨画]

dim gzcl
gzcl=rs("gzcl")
if gzcl <>"" then
gzcl=replace(gzcl,Chr(32)," ")
gzcl=replace(gzcl,VbCrlf,"<br>")
end if

[37du]

那是不是读出来要替换回去啊？

[fbj007]

再给你两个：
<%
function unHtml(content)
unHtml=content
if content <> "" then
unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13),"<br>")
unHtml=replace(unHtml,chr(32)," ")
end if
end function
%>
<%
function HTMLEncode(fString)

fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
%>

[rensh]

谢谢各位！pass