回覆者的留言區

<% mno=request("id") mydatabase="Gbook.mdb" Set Conn = Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MSAccess;" Conn.Open param & ";dbq=" & Server.MapPath(MyDatabase) SET rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From guest where id="&mno&"" , conn,1,3 %> <% Set conn1 = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("Gbook.mdb") conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open "Select * From guest order by id desc" , conn1,1,3 %> 回覆者的留言區

觀看留言　　　重新整理　　　管理模式　　　

<%=rs("name")%> 的留言資料如下：

<%=rs("txt")%>　

留言的時間：<%=rs("time")%>

<% rs.Close rs1.Close conn1.Close conn.Close Set rs = Nothing Set rs1 = Nothing Set conn1 = Nothing Set conn = Nothing %>