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

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

2、idator控件用于将输入控件的值与指定值相比较，以确定参 与比较运算的两个值是否相匹配；3、rangevalidator控件用于检查用户的输入是否在指定的范围内；4、rcgularexprcssionvalidator控件用于确定输入控件的值是否与某个正 则表达式所定义的模式相匹配。五、核心代码k登录页面代码：protected sub btnlogin_click() handles btnlogin.clickdim o as new mydata. clsuserdim dr as data.sqlclient. sqldatareaderdr = o. gctall2dr (&quo

3、t; uscr_id='" & uscr_id. text &if dr.read thenif mo. user_pwd.text = dr. ito【n("usor_pwd") thenif dr. item (/z us er. state")="启用"thenkesponse cookies (，zuser id，z). value = me. user_id. textresponse. cookies cuser_idz，) expires = now.adddays(l)session("

4、;user_id) = me. user_id.textresponse redirect("login. aspx")elseme. label 1. text ="该用户未启用"end ifme. label 1. text ="密码错误"end ifme. label 1. text ="用户id不存在"response redirect("zhuce aspx")end ifend sub2、注册页面代码:)handles blnzhuce.clickprotected sub btnz

5、huce click(dim o as new mydata. clsuserdim sr as stringo duser id = me. user id. texto. duser_pwd 二 me. user_pwd texto duscr_email = mo. usor_cinail textdim dr as data. sqlchent. sqldatareaderdr = o. gctall2dr (" uscr_id='" & uscr_id. text &if dr.read thenif me. user_id.text =

6、dr. itcm(iisor_id") thenme. txtzccg. text ="该用户已存在"end ifelsesr = o. addnewuserend ifif sr = t thenme. txtzccg. text ="注册成功"dim mailmsg as new system. net. mail. mailmcssagc csina163. com，z, me. uscr_emaii. text) mailmsg. subject ="激活链接"mailmsg .body = "a hrof

7、=ht tp:/localhost/wcbshy2/zeeg. aspx?usor_id二"& me. user_id. toxt & ” 单击此处进行账号激活mailmsg* isbodylltml = truedim mysmtp as new system .net. mai 1 smtpciicnt (z，smtp .163. com")m5rsmtp. credentials = new system. net. networkcredential (，/12qwy/，, "quot;)my sin tp. sen

8、d (mailmsg)me. txtzccg. text ="注册成功!"elseme. txtzccg. text ="注册成功！ " & srend ifend sub3、注册成功页面代码)handles forml. loadprotected sub forml load(dim o as new mydata. cisuserdim sr as stringoduser_id = requestquerystring(user_id")sr = o. jhif sr = t thenme. label 1. text = re

9、quest. querystring cuser id") & "账号激活成功"end ifend sub4、类库代码public function getall2dr(byvai strwhere as string) as sqlclient. sqldatareaderdim conn as new sqlclientsqlconncctionconn. connectionstring = "server二 zgc-20111121jbz;uid=sa;pwd=123;database二zhuce"dim emd as new

10、sqlclientsqlcommandemd.connection 二 conn cmd. commandtype = commandtype. textif strwhcrc = "” thenemd.commandtext = "select * from zc_userelsecmd. coinmandtoxt = "select * from zc_user where " & strwheroend ifdim dr as sqlclicnt. sqldatareadcrconn. open()dr = cmd. exccuteread

11、er(commandbchavior. closcconnoction)return drend functionpublic function addncwuscr() as stringdim conn as new sqlclientsqlconneclionconn. connectionstring = ，zsorver=qiao-pc: uid=sa: pwd=123: databasezhuce"7dim cmd as new sqlclientsqlcommandcmd .connection = cormcmd commandtypc = commandtypc.

12、textcmd. cominandtext = "insert into zc_user (user_id, user_pwd, user_email, user_state) values c z/ & duser_id &" & duscr_pwd &" & duser_email &'停用')"tryconn. open ()cmd. exccutcnonquery()return "1"catch ox as exceptionreturn& ex.mes

13、sageend try-end functionpublic function j1i() as stringdim conn as new sqlclient. sqlconncctionconn connectionstring 二 /zserver=qiao-pc;uid=sa;pwd= 123;database=zhuce/，dim cmd as new sqlclient. sqlcommandcmd .connection = conncmd. commandtype = cominandtype textcmd commandtcxt = "update zc_uscr

14、 set usor_statc=，where usor_id=，z & duser_id &"tryconn. open 0cmd executenonquery()return "1"catch ex as exceptionreturn& ex. messageend try-end function六、运行结果1、运行程序用户工d =登陆取消2、输入不存在的用户名，并点击登录用户hd二 lisii取消 |3、注册页面欢迎注册注册4、当用户名为空时欢迪注册5、当两次输入密码不同时欢迎注册请輸入相同密码6、当e-mail格式不正确时欢迎注册由b件格式错误!7、信息输入正确，并注册成功欢迎注册注册成功!|卡册8、账号激活谷歌 总网址大全 海也中心£ 360导航新一代宝全上网导航x 易zhang s an账号激活成功9、数据库信息zgc-2011112ubzhuce dbozc.useruserjduserj?wduser emailu