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

2019-11-18 22:38:42

字體：大中小

來源：轉載

供稿：網友

還記得我們在第三章中作刪除留言的事么？為了刪掉那條往你臉上抹黑的留言，我們當時唯一能用上的方法竟然只有直接在留言數據庫上進行查找和刪除。（而即使是學習了第七章之后，我們也僅僅只能繁鎖地先通過“留言管理”的密碼驗證，然后下載整個留言數據庫，刪除更改以后再上傳。）天?。∧憧倹]法保證：當你看到那些你不喜歡的留言時，正是當你正在使用著那臺放了你留言簿的服務器的時候吧？假如有一天你出差在外，或是你正在使用的計算機根本就沒有安裝什么上傳軟件......是不是？無計可施了吧？那么難道我們就只能眼光光地放任某些“好事者”來搗亂我們的留言簿嗎？
　　我們當然不會容忍讓“好事者”來我們的留言簿肆意涂烏，因此在這一章里我將講述一下，如何給我們的留言簿添加在線留言刪除的功能。
　　既然要添加在線留言刪除功能，留言編輯的頁面總不能沒，于是我把在前面章節已介紹過的留言顯示頁面程序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") %>
'刪除留言后將客戶端瀏覽器指引到“觀看留言”頁面。

上一篇：ASP進階教程Ⅴ：留言簿在線留言編輯（一）

下一篇：ASP進階教程Ⅲ：給留言簿潤下色