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,"<","<")
Str=Replace(Str,">",">")
Str=Replace(Str," "," ")
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 %>
注：注意记录集名称和数据库字段是否一至。