循序渐进学做留言簿-给留言簿添加在线留言编辑功能（二）

 
　如何给留言簿添加在线留言编辑的功能呢？综述起来我们大致可以将其分成以下三个步骤来实现。
步骤一：首先用第八章中所介绍的给每条留言的上面添加一个“删除留言”按钮的方法，在每条留言的上面再加添一个“留言编辑”的按钮。
步骤二：实现当我们单击“留言编辑”按钮时，从留言数据库中选取对应的留言记录以供“留言编辑”，见下图：
　　很明显，这里的关键所在就是：如何才能从留言数据库中选取对应的留言记录以供我们编辑？实现该功能的程序被我存成了文件Edit.asp，请看下面：
......
< %
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book2.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmd = Server.CreateObject("ADODB.Command")
Set CmdEdit = Server.CreateObject("ADODB.Recordset")
cmd.CommandText = "SELECT guestbook.* FROM guestbook WHERE (ID = " & 　　　　　　　　　　　　Request.QueryString("id") & ")"
cmd.CommandType = 1
Set cmd.ActiveConnection = Conn
CmdEdit.Open cmd, , 3, 1
%>
'选取ID = " & Request.QueryString("id") & ")"的留言记录，因为该程序只是打开留言，并不需要更改留言内容，所以这里设定该留言记录为只读，以免破坏数据。其它参数的意义请大家参照上一章节的资料，我在这里不再重复说明。虚拟主机
< % memo = CmdEdit("留言") %>
< % memo = Replace(memo,"< br>",str) %>
'将留言数据表单中“留言”字段的数据赋予留言编辑页面的memo文本域，并将数据转换成字符串，以便对其进行编辑。
......
< input type="TEXT" name="Name" size="20" value="< %=CmdEdit("姓名")%>">
......
< input type="TEXT" name="Tel" size="20" value="< %=CmdEdit("电话")%>">
......
< input type="TEXT" name="Subject" size="55" value="< %=CmdEdit("主题")%>">
......
< textarea name="Memo" rows="6" cols="60">< %= memo %>< /textarea>
......
< input type="hidden" name="ID" value="< %=CmdEdit("ID")%>">
< input type="submit" value="保存留言">