当用多行文本框里输入N行,每行都在最后回车换行.
然后将输入的内容提交到数据库里面.
再写一个网页将数据库的内容提出.
结果所有的内容在一行里面显示出来了.
所有在输入提交的之前的回车全部无效.
请问,怎么才可以把数据库的内容提出来的同时,也让回车生效.
我用的是ASP+ACCESS
高手请指教一二.

<% Function code_jk(strer) strer=strer if strer="" or isnull(strer) then code_jk="":exit function end if

strer=replace(strer,"<","&lt;") strer=replace(strer,">","&gt;") strer=replace(strer,CHR(32),"&nbsp") '空格 strer=replace(strer,CHR(9),"&nbsp") 'table strer=replace(strer,CHR(39),"&#39;") '单引号 strer=replace(strer,CHR(34),"&quot;") '双引号 dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="(javascript)" strer=re.Replace(strer,"&#106avascript") re.Pattern="(jscript:)" strer=re.Replace(strer,"&#106script:") re.Pattern="(js:)" strer=re.Replace(strer,"&#106s:") re.Pattern="(value)" strer=re.Replace(strer,"&#118alue") re.Pattern="(about:)" strer=re.Replace(strer,"about&#58") re.Pattern="(file:)" strer=re.Replace(strer,"file&#58") re.Pattern="(document.cookie)" strer=re.Replace(strer,"documents&#46cookie") re.Pattern="(vbscript:)" strer=re.Replace(strer,"&#118bscript:") re.Pattern="(vbs:)" strer=re.Replace(strer,"&#118bs:") re.Pattern="(on(mouse|exit|error|click|key))" strer=re.Replace(strer,"&#111n$2") set re=Nothing strer=replace(strer," ","<br>") strer=replace(strer,"[BR]","<br>") strer=replace(strer,vbCrLf,"<br>") code_jk=strer End Function%>

上面的函数放在一个文件里 包含到读数据库的文件中
调用函数&lt;%=code_jk(rs("info"))%&gt; 就行了 不合适就修改一下

replace(request("comm"),vbCrlf,"<br>") 插在往数据库里写的时候

Set re=new RegExp
这个是什么对像来的.
CHR(32)
CHR(9)
CHR(39)
 CHR(34)
分别代表着什么????
 strer=replace(strer,"
","&lt;br&gt;")
中间的那个参数那个字符是怎么产生的.
是用回车吗????

strer=replace(strer,"
","&lt;br&gt;")

这句我使用出错....
其实整个程序最关键的是这个.strer=replace(strer,vbCrLf,"&lt;br&gt;")
我只要这个.........

用server.htmlencode(strer)编一下码，
就不用一个一个的替换了

可是那个不是我的目地呀.

我的目地是要回车生效.

不过我已经做到了.....谢了...

我的那段是我经常用的

Set re=new RegExp 这个是什么对像来的. CHR(32) CHR(9) CHR(39) CHR(34) 分别代表着什么???? strer=replace(strer," ","<br>") 中间的那个参数那个字符是怎么产生的. 是用回车吗????

解释下......