[求助]请教您一个有关ASP方面的小问题！

mengke333

<br>
我用(Dreamweaver+ASP)做了个小小的留言本，请问如何处理空格和回车呀？！（在留言本上输入几个空格都只显示一个空格；输入回车后不换行！）<br>
我先谢谢您了！！！

龙驹

有两种办法：<br>
第一种 直接在dw的设计界面操作<br>
<br>
产生空格快捷键 ctrl+shift+空格<br>
产生换行 ctrl+shift+回车<br>
<br>
第二种 修改源代码<br>
<br>
在需要添加空格的地方加入<IMG onmouseover="javascript:if(this.width>520)this.width=520;" style="CURSOR: hand" onclick=javascript:window.open(this.src); src="leadbbsfile2/upload/2004/08/19/183156.gif" onload="javascript:if(this.width>520)this.width=520;" align=absmiddle border=0>即可产生一个空格<br>
在需要换行的地方加入 &lt;br&gt; 即可换行<br>
<br>

mengke333

我的问题是：我的留言本已经做好上传到我的空间里了，可是假若有人留言（在留言里若有多个连续空格或回车）的话，不能在我的留言本上显示出来，只显示一个空格、并且没有回车换行！

龙驹

入库之前调用一下这个函数就可以了<br>
我这里有一个控件，上午刚装的系统，等我找到了再贴上来<br>
<br>
<br>
&lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt; <br>
function DoWhiteSpace(str) <br>DoWhiteSpace = Replace((Replace(str, vbCrlf, &quot;&lt;br&gt;&quot;)), chr(32)&chr(32), &quot; &quot;) <br>
End Function <br>
&lt;/SCRIPT&gt;<br>
<br>
<br>
不安全字符:<br>
Function urlencode(str)<br>If Trim(Str)=&quot;&quot; Or IsNull(str) Then Exit Function<br>
str=Replace(str,&quot;select&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;or&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;in&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;where&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;and&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;;&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;:&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;'&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;.&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;@&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;$&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;%&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;&&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;(&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;)&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;*&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;=&quot;,&quot;&quot;)<br>
str=Replace(str,&quot;+&quot;,&quot;&quot;)<br>urlencode=str<br>
End Function<br>
<br>
html过滤:<br>
Function HtmlEncode(str)<br>If Trim(Str)=&quot;&quot; Or IsNull(str) Then Exit Function<br>str=Replace(str,&quot;&gt;&quot;,&quot;&gt;&quot;)<br>str=Replace(str,&quot;&lt;&quot;,&quot;&lt;&quot;)<br>str=Replace(str,Chr(32),&quot; &quot;)<br>str=Replace(str,Chr(9),&quot; &quot;)<br>str=Replace(str,Chr(34),&quot;&quot;&quot;)<br>str=Replace(str,Chr(39),&quot;&#39;&quot;)<br>str=Replace(str,Chr(13),&quot;&quot;)<br>str=Replace(str,Chr(10) & Chr(10), &quot;&lt;/p&gt;&lt;p&gt;&quot;)<br>str=Replace(str,Chr(10),&quot;&lt;br&gt; &quot;)<br>HtmlEncode=str<br>
End Function<br>
<br>