我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp未分类 > ASP环境下邮件列表功能的实现 （二）
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

ASP环境下邮件列表功能的实现 （二） 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-30
为最终用户提供的功能主要由一个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中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。