ASP网页设计ASP情况下邮件列表功效的完成 （二）

缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全   为终究用户供应的功效次要由一个HTML文件和两个ASP文件供应，它们担任承受用户的定阅请求和加入邮件列表请求。

　　 用户的团体信息在图1所示的挂号表单中输出，其完成文件是homepage.htm。当用户提交表单，体系对用户输出数据停止需要的验证，然后把它们保留到数据库并提醒注册胜利信息。这局部功效可以在signbook.asp文件找到，上面的代码用于将用户输出数据保留到数据库：


　 ' 假如用户输出数据验证经由过程则将它保留到数据库
　 if blnValid = True then
　 ' 在数据库中拔出新纪录
　 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
　 ' 呈现毛病
　 strValid = ...数据库操作毛病提醒信息，略...
　 else
　 '纪录拔出胜利
　 strValid = ...注册胜利提醒信息，略...
　 end if 'err.number < > 0
　 else '用户输出数据毛病
　 strValid = ...用户输出数据毛病提醒,略...
　 end if 'blnValid = True

　　 这些代码完成了面向终究用户的第一个功效：将团体信息注册到挂号簿并将用户到场到邮件列表。

　　 每个从邮件列表吸收邮件的用户可以在邮件的最初发明一个链接（类如http://www.mycompany.com/unsubscribe.asp），和用户ID和邮件帐号的提醒。单击这个链接可以会见作废定阅的unsubscribe.asp页面，其界面如图2所示。当用户供应了准确的Email地址和ID号，unsubscribe.asp中的剧本修正该用户注册纪录的Mail_List标志，从而使得体系不再向该用户发送邮件。上面是这局部功效的完成代码：

　　 【图2 ASPMailingList_2.gif】



　< %
　if Request.ServerVariables("REQUEST_METHOD") = "POST" then
　 iGuestID = Request.Form("txtID")
　 sGuestEmail = Request.Form("txtEmail")
　 if iGuestID < > "" and sGuestEmail < > "" then
　 '在数据库中更新用户纪录
　 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语句履行掉败提醒信息, 略...
　 else
　 if iUpdates < > 0 then
　 sError = ...作废定阅胜利提醒信息,略...
　 else
　 sError = ...不克不及找到数据库纪录提醒信息,略...
　 end if 'iUpdates < > 0
　 end if 'err.number < > 0
　 else
　 Response.Redirect("homepage.htm")
　 end if 'iGuestID < > ""
　end if 'REQUEST_METHOD = "POST"
　%>

　　 履行SQL号令时供应的iUpdates变量反应了该SQL语句所影响的纪录数。假如该值为0，便可假定用户没有准确地输出ID或Email地址。上述代码完成了面向用户的第二个功效，接上去咱们要完成的是挂号簿的办理功效。
ASP脚本是采用明文（plain text）方式来编写的。