搞了一个小时，还是不行，这个真烦，帮看看！

[pdysuny]

我分别用下面的每一个changechr来调用，不行，放在一起，还是不行。问题是：我把一段文章插入数据库时是好的，显示时也是好的，但修改时，文章中出现了很多<br>,导致修改后显示出来时有很多<br>.帮看看，通宵也要把这个问题解决了。
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," ","vbCrLf")
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")

end functon
%>

插入数据库时这样做了。
msg=changechr(request("msg"))

rs("msg")=msg

<br>还是去不掉

该如何做啊？

[pimple]

你可以把<BR>不替换掉就行了.

[possible_Y]

在修改读出时：

Resposne.Write Replace(rs("msg"),"<br>",chr(13))

[fastson]

如果你是接受的文本区的内容

加入数据库的时候需要
content=htmlencode(request.form("content"))

编辑内容的时候需要
<textarea><%=htmldecode(content)%></textarea>

函数htmlencode、htmldecode定义如下
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=replace(result,"''","'")
end function
function htmldecode(str)
result=replace(str,"<br>",chr(13))
htmldecode=replace(result," "," ")
end function

[stefli]

对阿，在插入的时候，需要转换
在读出的时候，如果是在textarea中修改，那就必须再转换回来。
content=replace(rs("content"),"<br>",vbCrLf)
如果是再页面中显示，那么就不用转化过来了。

[huang59]

页面显示的时候，用它替换一下，再在前面加两个全角的空格，一切OK,录入的时候，段首的两个空格也不用输入的，修改就不用管它了，不会出现<BR>的
<%
tmpmess=xiangxi.Fields.Item("neirong").Value
tmpmess=replace(tmpmess,"<","<")
tmpmess=replace(tmpmess,">",">")
tmpmess=replace(tmpmess,chr(10),"<br>")
%>