ASP進階教程Ⅵ：留言簿線上刪除留言

還記得我們在第三章中作刪除留言的事嗎？為了刪掉那條往你臉上抹黑的留言，我們當時唯一能用上的方法竟然只有直接在留言資料庫上進行尋找和刪除。（而即使是學習了第七章之後，我們也僅僅只能繁鎖地先通過“留言管理”的密碼驗證，然後下載整個留言資料庫，刪除更改以後再上傳。）天啊！你總沒法保證：當你看到那些你不喜歡的留言時，正是當你正在使用著那台放了你留言簿的伺服器的時候吧？假如有一天你出差在外，或是你正在使用的電腦根本就沒有安裝什麼上傳軟體......是不是？無計可施了吧？那麼難道我們就只能眼光光地放任某些“好事者”來搗亂我們的留言簿嗎？
　　我們當然不會容忍讓“好事者”來我們的留言簿肆意塗烏，因此在這一章裡我將講述一下，如何給我們的留言簿添加線上留言刪除的功能。
　　既然要添加線上留言刪除功能，留言編輯的頁面總不能沒，於是我把在前面章節已介紹過的留言顯示頁面程式page2.asp和self2.asp稍加修改，其實僅僅是在每條顯示留言的上面添加一個“刪除留言”的按鈕而已。但是有一點我們是必須明確的是：每條留言上面的“刪除留言”按鈕，應該只是對該條留言有效，而與其餘的留言無關。因此我們可以在self2.asp中的適當位置加入以下的語句後另存成editself.asp,這便是留言編輯介面中，用來定義留言顯示格式的程式。
Tab = Tab & "< TR>< TD>< A HREF=""delete.asp?ID=" & rs("ID") & """>"
Tab = Tab &" < b>刪 除 留 言< /b> "& "< /TD>< /TR>"
'rs("ID")指ID欄位的記錄。rs("ID")完整的寫法應該是“rs.Fields("ID").Value”，因為Fields是Recordset對象“預設的”屬性，Value又是Field對象“預設的”屬性，因此我們可以簡寫成rs("ID")。

　　同樣，我們只需將page2.asp程式上面的< !--#include file="self2.asp" -->替換成< !--#include file="editself2.asp" -->這便是刪除留言頁面的留言處理常式editpage2.asp。
　　在完成了留言編輯的頁面後，接下來讓我們進一步來學習刪除留言的處理常式（delete.asp）。
< !--#include file="adovbs.inc" -->
< %
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book2.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql ="DELETE FROM guestbook WHERE (ID = " & Request.QueryString("id") & ")" Set rs = conn.Execute( sql )
%>
'因為我們要刪除的留言記錄是留言資料庫中序號ID與“刪除留言”按鈕所對應的ID相一致的留言記錄，因此我們在這裡通過 " & Request.QueryString("id") & "來擷取當前操作的留言所對應的ID。上述的SQL命令即是表明：刪除留言資料庫中ID序號與當前操作的留言所對應的ID相一致的留言記錄。

< %
Sub delaySecond(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>
< % delaySecond(2) %>
'在刪除留言操作後延時2秒。
< % Response.Redirect ("page2.asp") %>
'刪除留言後將用戶端瀏覽器指引到“觀看留言”頁面。