1、连接字符串:
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/数据库名称,注意路径问题")


2、获取对方IP地址的值:
<%= Request.ServerVariables("REMOTE_ADDR") %> 注:加在添加留言表单中隐藏域的值里面


3、解决连续字符不能自动换行问题:
  border-collapse: collapse;
  word-wrap:break-word;
  word-break:break-all;
  注:加在CSS样式表文件中(body,td,th里面),具体位置根据实际情况来定。


4、设置在没有回复的情况下不显示回复的表格内容:

<% If (rs.Fields.Item("回复留言").Value)<>"" Then %>
<%=(rs.Fields.Item("回复留言").Value)%> ''根据实际情况而定
<% Else %>
暂无回复 ''根据实际情况而定
<% End If %>


5、解决直接支持HTML代码及空格和回车问题:

<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","&lt;")
Str=Replace(Str,">","&gt;")
Str=Replace(Str," ","&nbsp;")
Str=Replace(Str,Chr(10),"<br>")
HTMLEncode=Str
End Function
%>
 注:加在要显示留言和回复留言的页面中(加在代码前面,但是不能在第一行)。

加过之后修改显示留言和显示回复留言的代码,如:
 <%=(rs.Fields.Item("留言").value)%>改为:<%=HTMLEncode(rs.Fields.Item("留言").value)%>
<%=(rs.Fields.Item("回复留言").value)%>改为:<%=HTMLEncode(rs.Fields.Item("回复留言").value)%>


6、悄悄话问题:

<% If (rs.Fields.Item("悄悄话").Value)=true Then %>
给版主的悄悄话……
<% Else %>
<%=HTMLEncode(rs.Fields.Item("留言").Value)%>
<% End If %>

加在首页,把:<%=HTMLEncode(rs.Fields.Item("留言").Value)%>改为:
<% If (rs.Fields.Item("悄悄话").Value)=true Then %>
给版主的悄悄话……
<% Else %>
<%=HTMLEncode(rs.Fields.Item("留言").Value)%>
<% End If %>
注:注意记录集名称和数据库字段是否一至。