文本框中内容有换行时,提交后就到一行去了,不用编辑器,怎么能实现换行?

论坛中有这方面的讨论,你可以找一下:

contents=request.Form("contents")
contents=replace(contents,chr(13)&chr(10),"<br>")

写个函数就可以的！
function html(constring)
constring=replace(constring,"<","&lt;")
constring=replace(constring,">","&gt;")
constring=replace(constring,"'","&acute;")
constring=replace(constring,CHR(13),"")
constring=replace(constring,CHR(10),"<br>")
constring=replace(constring,chr(32),"&nbsp;")
constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
html=constring
end function

我常用它的，在显示的时候加上这个就行了！

<%=html(你的内容)%>

这代码我要了.
谢了.

但是三楼的代码对于显示后再点提交就不实用了

是不是还要来个反编译?

继续等待啊

不会吧，没人会

这个应该是写入数据库时用的吧???
三楼的这个函数
收下了
谢谢

<%
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+"&lt;"
case ">" : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&" : result=result+"&amp;"
case chr(13) : result=result+"<br>"
case chr(9) : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
%>