实验利用mial对象实现邮件在线发送

《实验利用mial对象实现邮件在线发送》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、WEB系统开发实验报告实验二利用Mial对象实现邮件在线发送计算机科学与技术系实验题目:指导老师:专业班级:姓名:2013年4月8日实验类型验证性实验室软件实验室三、实验题目利用MaiI对象实现邮件在线发送二、实验目的通过本次实验，使学生了解ASP.NET内置对象，掌握Ma订对象的使用方法，利用Ma订对象实现邮件在线发送。三、实验内容1、设计一个注册页面，实现注册功能。2、注册成功后向注册邮箱发送激活链接。3、通过点击激活链接，实现注册账号的激活功能。四、实验说明1、RequiredFieldValidator控件检查其初始值与验证控件包含的值是否相同；2、ComparcValidator控

2、件用于将输入控件的值与指定值相比较，以确定参与比较运算的两个值是否相匹配；3、RangeValidator控件用于检查用户的输入是否在指定的范围内；4、RcgularExprcssionValidator控件用于确定输入控件的值是否与某个正则表达式所定义的模式相匹配。五、核心代码K登录页面代码：ProtectedSubbtnlogin_Click()Handlesbtnlogin.ClickDimoAsNewmydata.clsUserDimdrAsData.SqlClient.SqlDataReaderdr=o.gctall2dr("uscr_id='"&uscr_id.Text&Ifdr

3、.ReadThenIfMo.user_pwd.Text=dr.Ito【n("usor_pwd")ThenIfdr.Item(/zuser.state")="启用"ThenKesponse・Cookies(，zuserid，z).Value=Me.user_id.TextResponse.CookiesCuser_idz，)・Expires=Now.AddDays(l)Session("user_id〃)=Me.user_id.TextResponse・Redirect("login.aspx")ElseMe.Label1.Text="该用户未启用"EndIfMe.Label1.Text="密

4、码错误"EndIfMe.Label1.Text="用户ID不存在"Response・Redirect("zhuce・aspx")EndIfEndSub2、注册页面代码:)Handlesblnzhuce.ClickProtectedSubbtnzhuceClick(DimoAsNewmydata.clsUserDimsrAsStringo・dUserid=Me.userid.Texto.dUser_Pwd二Me.user_pwd・Texto・dUscr_Email=Mo.usor_cinail・TextDimdrAsData.SqlCHent.SqlDataReaderdr=o.gctall2

5、dr("uscr_id='"&uscr_id.Text&Ifdr.ReadThenIfMe.user_id.Text=dr.Itcm(〃iisor_id")ThenMe.txtzccg.Text="该用户已存在"EndIfElsesr=o.addNewUserEndIfIfsr=TThenMe.txtzccg.Text="注册成功"DimmailMsgAsNewSystem.Net.Mail.MailMcssagcCsina@163.com，z,Me.uscr_emaii.Text)mailMsg.Subject="激活链接"mailMsg.Body="〈ahrof=http://local

6、host/wcbSHY2/zeeg.aspx?usor_id二"&Me.user_id.Toxt&”〉单击此处进行账号激活mailMsg*IsBodylltml=TrueDimmySmtpAsNewSystem.Net.Mai1・SmtpCiicnt(z，smtp.163.com")m5rSmtp.Credentials=NewSystem.Net.NetworkCredential(，/12qwy/，,"15190032547")mySintp.Send(mailMsg)Me.txtzccg.Text="注册成功!"ElseMe.txtzccg.Text="注册成功！"&srEndIfEn

7、dSub3、注册成功页面代码)Handlesforml.LoadProtectedSubformlLoad(DimoAsNewmydata.cisUserDimsrAsStringo・dUser_id=Request・QueryString(〃user_id")sr=o.JHIfsr=TThenMe.Label1.Text=Request.QueryStringCuserid")&"账号激活成功"EndIfE