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 %>
注：注意記錄集名稱和數據庫字段是否一至。