我在留言板提交留言以后，提交的回车键好象都没用，好象都变成空格键拉```希望高手指点一下

在输出内容的时候用上下面这个函数就OK了
<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = replace(fString, "&#", "<I>&#</I>")

fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

HTMLcode = fString
End if
End Function
%>

不行啊
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/douzi/我的留言板/body.asp, line 36
Function HTMLcode(fString)

把你的代码贴上来看看撒

<table bgcolor="#888CBD" style="table-layout:fixed" cellspacing="0" cellpadding="0" >
<tr><td width="4">&nbsp;</td>
<td style="WORD-WRAP:break-word"><font style="font-size:14px;font-family:新宋体">
<% Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = replace(fString, "&#", "<I>&#</I>")
fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLcode = fString
End if
End Function
%>
<%=rs("content")%></font></td></tr>
</table>
我就是想把content输出到浏览器上面````content内容是从留言板提交到access数据库的
下面是留言板的相关内容
<form name="writeform" method="post" action="add.asp">
<table>
<tr><td bgcolor="#FFFFFF"><font style="font-size:17px;font-family:华文行楷">内容:</font></td></tr>
<tr><td bgcolor="#FFFFFF">
<textarea name="content" id="content" cols=108 rows=18 onpropertychange="this.style.posHeight=this.scrollHeight"
style="overflow:auto;background-color:#888CBD;wrap:auto;border-width:0px" font style="font-size:14px"></textarea>
</td></tr>
<tr bgcolor="#FFFFFF"><td colspan="2">
<div align="center"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置">
</div></td></tr>
</table>

数据入库的时候用不上这个函数
只是你想输出的时候，并且想保持你输入的格式的时候用到这个函数

还是不行啊，这是全部代码
<title>body</title>
<div id="body"aligh="center"
style="position:absolute;visibility:inherit; width:779; height:auto; z-index:1;
left:expression((document.body.clientWidth-this.offsetWidth)/2); top:98;
background-color:#063C93;border: 1px none #000000;">
<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><a href='member.asp' target='_blank'>
<FONT style="FONT-SIZE: 17px;COLOR:#820242;FONT-FAMILY: 华文行楷"><B><center>免费注册</center></B><FONT></a></td>
<td><a href='注册也面' target='_blank'>
<FONT style="FONT-SIZE: 17px;COLOR:#A536F5;FONT-FAMILY: 华文行楷"><B><center>会员登陆</center></B><FONT></a></td>
<td><a href='write.asp' target='_blank'>
<FONT style="FONT-SIZE: 17px;COLOR:#FBAD39;FONT-FAMILY: 华文行楷"><B><center>签写留言</center></B><FONT></a></td>
<td><a href='注册也面' target='_blank'>
<FONT style="FONT-SIZE: 17px;COLOR:#F3E032;FONT-FAMILY: 华文行楷"><B><center>联系站长</center></B><FONT></a></td>
</tr>
</table>
<% do while not rs.eof %>
<table width="779" cellspacing="1" border="0" bgcolor="#3366FF">
<tr>
<td bgcolor="#FFFFFF"><font style="font-size:15px;font-family:新宋体">用户名:<%=rs("user")%></font></td>
<td bgcolor="#FFFFFF"><font style="font-size:15px;font-family:新宋体">性别:<%=rs("sex")%></font></td>
<td bgcolor="#FFFFFF"><font style="font-size:15px;font-family:新宋体">时间:<%=rs("time")%></font></td>
<td bgcolor="#FFFFFF"><font style="font-size:15px;font-family:新宋体">信箱:<%=rs("email")%></font></td>
<td bgcolor="#FFFFFF"><font style="font-size:15px;font-family:新宋体">qq:<%=rs("qq")%></font></td>
</tr>
<table width="779" cellspacing="1" border="0" bgcolor="#3366FF">
<tr><td bgcolor="#FFFFFF"><font style="font-size:17px;font-family:华文行楷">主题:
<font style="font-size:15px;font-family:新宋体"><%=rs("title")%></font></font></td></tr>
<tr><td bgcolor="#FFFFFF"><font style="font-size:17px;font-family:华文行楷">内容:</font></td></tr>
<tr><td bgcolor="#FFFFFF">
<table bgcolor="#888CBD" style="table-layout:fixed" cellspacing="0" cellpadding="0" >
<tr><td width="4">&nbsp;</td>
<td style="WORD-WRAP:break-word"><font style="font-size:14px;font-family:新宋体"><%=rs("content")%></font></td></tr>
</table>
</td></tr>
</table>
</table>
<% Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = replace(fString, "&#", "<I>&#</I>")
fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLcode = fString
End if
End Function
%>
<hr align="center" size="0">
<% rs.movenext
loop
%></div>
那些新建网页的默认代码都被我删掉了，加在这里正确么

<td style="WORD-WRAP:break-word"><font style="font-size:14px;font-family:新宋体"> <%=HTMLcode(rs("content"))%> </font></td>
应该是这样的
你直接把函数写到程序里面而不调用？我-_-#

[此贴子已经被作者于2005-12-20 15:24:53编辑过]

我倒，真不好意思，哈哈```多谢多谢拉``好低级的错误，傻了，嘿嘿``

在输出时用<pre></pre>标记就可以了，没这么麻烦