ASP進階教程Ⅳ：加入精彩留言

2019-11-18 22:38:37

字體：大中小

來源：轉載

供稿：網友

當有一天你在你的留言簿的留言記錄中看到了一條十分精彩的留言，為了介紹給你的網友們，你是否會考慮將這些留言用單獨的頁面顯示，讓更多的上網者更容易地看到呢？假如真如我所說這樣，那么只要你看完這一章的內容即可使你如愿以償。
　　要給留言簿加添“加入精彩留言”功能，同樣可以通過三個步驟來實現。
步驟一：首先，在留言數據庫中新建一專門用來存放精彩留言的數據表（如perfect).
因為用來存放精彩留言的數據表的結構與存放留言的數據表的結構是相同的，因此創建perfect數據表最簡單的方法是COPY留言數據表guestbook的結構，然后粘貼、確定后即可。如下圖：
　　　　　
步驟二：編寫“加入精彩留言”的留言處理程序(wonderful.asp).
< !--#include file="adovbs.inc" -->
< !--#include file="post.asp" -->
< % ID = Request.Querystring("ID") %>
< %
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book2.mdb")
conn.Open "driver={Microsoft access Driver (*.mdb)};dbq=" & DBPath
sql ="DELETE * FROM perfect WHERE (ID = " & Request.QueryString("id") & ")" Set rs = conn.Execute( sql )
sql="insert into perfect select * from guestbook where (ID = " & 　　　　　　　Request.QueryString("id") & ")"
Set rs = conn.Execute( sql )
%>
'為了避免當我們在操作“加入精彩留言”的過程中，連續對某條留言重復了該項操作而引發的錯誤，我們可以不理它三七二十一，先將perfect數據表中凡是ID = " & Request.QueryString("id") & "的留言記錄刪除，再將留言數據表guestbook中ID = " & Request.QueryString("id") & "的留言插入到數據表perfect中。
步驟三：設計留言被加入到精彩留言數據表之后轉入的頁面（post.asp)。

上一篇：ASP進階教程Ⅶ：留言簿設置密碼驗證

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