ASP環(huán)境下郵件列表功能的實現(xiàn) （二）

2019-11-18 22:33:11

字體：大中小

供稿：網(wǎng)友

為最終用戶提供的功能主要由一個HTML文件和兩個asp文件提供，它們負(fù)責(zé)接受用戶的訂閱申請以及退出郵件列表申請。

　　用戶的個人信息在圖1所示的登記表單中輸入，其實現(xiàn)文件是homepage.htm。當(dāng)用戶提交表單，系統(tǒng)對用戶輸入數(shù)據(jù)進(jìn)行必要的驗證，然后把它們保存到數(shù)據(jù)庫并提示注冊成功信息。這部分功能可以在signbook.asp文件找到，下面的代碼用于將用戶輸入數(shù)據(jù)保存到數(shù)據(jù)庫：

　 ' 如果用戶輸入數(shù)據(jù)驗證通過則將它保存到數(shù)據(jù)庫
　 if blnValid = True then
　 ' 在數(shù)據(jù)庫中插入新記錄
　 strSQL_Insert = "INSERT INTO Guests ( Guest_Name, Guest_Email, " & _
　" Mail_List, Guest_Comment )" & _
　 " VALUES ('" & strName & "', '" & strEmail & _
　 "', '" & blnMailList & "', '" & strComments & "');"
　 Set oConn=Server.CreateObject("ADODB.Connection")
　 oConn.Open strDSNPath
　 On error resume next
　 oConn.Execute strSQL_Insert
　 oConn.Close
　 Set oConn = Nothing
　 ' 記錄插入是否成功
　 if err.number < > 0 then
　 ' 出現(xiàn)錯誤
　 strValid = ...數(shù)據(jù)庫操作錯誤提示信息，略...
　 else
　 '記錄插入成功
　 strValid = ...注冊成功提示信息，略...
　 end if 'err.number < > 0
　 else '用戶輸入數(shù)據(jù)錯誤
　 strValid = ...用戶輸入數(shù)據(jù)錯誤提示,略...
　 end if 'blnValid = True

　　這些代碼實現(xiàn)了面向最終用戶的第一個功能：將個人信息注冊到登記簿并將用戶加入到郵件列表。

　　每一個從郵件列表接收郵件的用戶可以在郵件的最后發(fā)現(xiàn)一個鏈接（類如http://www.mycompany.com/unsubscribe.asp），以及用戶ID和郵件帳號的提示。單擊這個鏈接可以訪問取消訂閱的unsubscribe.asp頁面，其界面如圖2所示。當(dāng)用戶提供了正確的Email地址和ID號，unsubscribe.asp中的腳本修改該用戶注冊記錄的Mail_List標(biāo)記，從而使得系統(tǒng)不再向該用戶發(fā)送郵件。下面是這部分功能的實現(xiàn)代碼：

　　【圖2 ASPMailingList_2.gif】

　< %
　if Request.ServerVariables("REQUEST_METHOD") = "POST" then
　 iGuestID = Request.Form("txtID")
　 sGuestEmail = Request.Form("txtEmail")
　 if iGuestID < > "" and sGuestEmail < > "" then
　 '在數(shù)據(jù)庫中更新用戶記錄
　 strSQL_UnSubs = "UPDATE Guests SET Guests.Mail_List=" & 0 & _
　 " WHERE Guests.Guest_ID=" & iGuestID & _
　 " AND Guests.Guest_Email='" & sGuestEmail & "';"
　 Set oConn = Server.CreateObject("ADODB.Connection")
　 oConn.Open strDSNPath
　 oConn.Execute strSQL_UnSubs, iUpdates
　 on error resume next
　 oConn.Close
　 Set oConn = Nothing
　 if err.number < > 0 then
　 sError = ...SQL語句執(zhí)行失敗提示信息, 略...
　 else
　 if iUpdates < > 0 then
　 sError = ...取消訂閱成功提示信息,略...
　 else
　 sError = ...不能找到數(shù)據(jù)庫記錄提示信息,略...
　 end if 'iUpdates < > 0
　 end if 'err.number < > 0
　 else
　 Response.Redirect("homepage.htm")
　 end if 'iGuestID < > ""
　end if 'REQUEST_METHOD = "POST"
　%>

　　執(zhí)行SQL命令時提供的iUpdates變量反映了該SQL語句所影響的記錄數(shù)。如果該值為0，即可假定用戶沒有正確地輸入ID或Email地址。上述代碼實現(xiàn)了面向用戶的第二個功能，接下來我們要實現(xiàn)的是登記簿的管理功能。

上一篇：ASP環(huán)境下郵件列表功能的實現(xiàn) （三）

下一篇：ASP環(huán)境下郵件列表功能的實現(xiàn) （一）