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

2019-11-18 22:38:37

字體：大中小

供稿：網(wǎng)友

如何給留言簿添加在線留言編輯的功能呢？綜述起來我們大致可以將其分成以下三個步驟來實現(xiàn)。
步驟一：首先用第八章中所介紹的給每條留言的上面添加一個“刪除留言”按鈕的方法，在每條留言的上面再加添一個“留言編輯”的按鈕。
步驟二：實現(xiàn)當(dāng)我們單擊“留言編輯”按鈕時，從留言數(shù)據(jù)庫中選取對應(yīng)的留言記錄以供“留言編輯”，見下圖：
　
　　很明顯，這里的關(guān)鍵所在就是：如何才能從留言數(shù)據(jù)庫中選取對應(yīng)的留言記錄以供我們編輯？實現(xiàn)該功能的程序被我存成了文件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") & ")"的留言記錄，因為該程序只是打開留言，并不需要更改留言內(nèi)容，所以這里設(shè)定該留言記錄為只讀，以免破壞數(shù)據(jù)。其它參數(shù)的意義請大家參照上一章節(jié)的資料，我在這里不再重復(fù)說明。
< % memo = CmdEdit("留言") %>
< % memo = Replace(memo,"< br>",str) %>
'將留言數(shù)據(jù)表單中“留言”字段的數(shù)據(jù)賦予留言編輯頁面的memo文本域，并將數(shù)據(jù)轉(zhuǎn)換成字符串，以便對其進行編輯。
......
< 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="保存留言">
'分別將留言表單中的“ 姓名”、“電話”、“主題”和“留言”各字段的數(shù)據(jù)賦予各“留言編輯”頁面中對應(yīng)的文本域。
......
步驟三：保存編輯后的留言（Editsave.asp)。
< %@ LANGUAGE="VBSCRipT" %>
< % Response.Buffer = "True" %>
'設(shè)置將Web頁面輸出至緩存區(qū)。當(dāng)一個Web頁面輸出至緩存區(qū)時，除非當(dāng)前頁的所有服務(wù)器端文件都已被處理完畢或者是程序中調(diào)用了Flush或End方法，服務(wù)器才將響應(yīng)客戶端瀏覽器。因此Response.Buffer一般都是放在.asp文件的第一行，放在其他位置可能會造成執(zhí)行的錯誤。
< % ID = Request.Form("ID") %>
'獲取被編輯留言的“ID”序列號。
......
< %
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 = " & ID & ")"
cmd.CommandType = 1
Set cmd.ActiveConnection = Conn
CmdEdit.Open cmd, , 1, 3
%>
< % NAME = Request.Form("NAME")
if NAME="" THEN
CmdEdit.Fields("姓名") = NULL
Else
CmdEdit.Fields("姓名") = NAME
END IF %>
< % EMAIL = Request.Form("EMAIL")
if EMAIL="" THEN
CmdEdit.Fields("EMAIL") = NULL
Else
CmdEdit.Fields("EMAIL") = EMAIL
END IF %>
< % memo = Request.Form("memo")
if memo="" THEN
CmdEdit.Fields("留言") = NULL
Else
memo = Replace(memo,str,"< br>")
memo = Replace(memo,vbCr,"< br>")
CmdEdit.Fields("留言") = memo
END IF %>
< % TEL = Request.Form("TEL")
if TEL="" THEN
CmdEdit.Fields("電話") = NULL
Else
CmdEdit.Fields("電話") = TEL
END IF %>
'將編輯留言頁面表單中對應(yīng)文本域中的內(nèi)容存儲到留言表單中相對應(yīng)的字段下。
< % CmdEdit.Update
CmdEdit.Close %>
< % 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) %>
< % Response.Redirect "page2.asp" %>

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

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