程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP入門教程 >> ASP進階教程Ⅵ:留言簿在線刪除留言

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

編輯: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") %>
'刪除留言後將客戶端浏覽器指引到“觀看留言”頁面。  
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved