1、連接字符串：
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/數(shù)據(jù)庫(kù)名稱(chēng),注意路徑問(wèn)題")
2、獲取對(duì)方IP地址的值：
<%= Request.ServerVariables("REMOTE_ADDR") %> 注：加在添加留言表單中隱藏域的值里面
3、解決連續(xù)字符不能自動(dòng)換行問(wèn)題：
border-collapse: collapse;
word-wrap:break-word;
word-break:break-all;
注：加在CSS樣式表文件中（body,td,th里面），具體位置根據(jù)實(shí)際情況來(lái)定。
4、設(shè)置在沒(méi)有回復(fù)的情況下不顯示回復(fù)的表格內(nèi)容：
<% If (rs.Fields.Item("回復(fù)留言").Value)<>"" Then %>
<%=(rs.Fields.Item("回復(fù)留言").Value)%> ''根據(jù)實(shí)際情況而定
<% Else %>
暫無(wú)回復(fù) ''根據(jù)實(shí)際情況而定
<% End If %>
5、解決直接支持HTML代碼及空格和回車(chē)問(wèn)題：
<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","<")
Str=Replace(Str,">",">")
Str=Replace(Str," "," ")
Str=Replace(Str,Chr(10),"<br>")
HTMLEncode=Str
End Function
%>
注：加在要顯示留言和回復(fù)留言的頁(yè)面中（加在代碼前面，但是不能在第一行）。
加過(guò)之后修改顯示留言和顯示回復(fù)留言的代碼，如：
<%=(rs.Fields.Item("留言").value)%>改為：<%=HTMLEncode(rs.Fields.Item("留言").value)%>
<%=(rs.Fields.Item("回復(fù)留言").value)%>改為：<%=HTMLEncode(rs.Fields.Item("回復(fù)留言").value)%>
6、悄悄話(huà)問(wèn)題：
<% If (rs.Fields.Item("悄悄話(huà)").Value)=true Then %>
給版主的悄悄話(huà)……
<% Else %>
<%=HTMLEncode(rs.Fields.Item("留言").Value)%>
<% End If %>
加在首頁(yè)，把：<%=HTMLEncode(rs.Fields.Item("留言").Value)%>改為：
<% If (rs.Fields.Item("悄悄話(huà)").Value)=true Then %>
給版主的悄悄話(huà)……
<% Else %>
<%=HTMLEncode(rs.Fields.Item("留言").Value)%>
<% End If %>
注：注意記錄集名稱(chēng)和數(shù)據(jù)庫(kù)字段是否一至。