mail在发线送邮件.docVIP

WEB系统开发 实验报告 实验二 实验题目：利用Mail对象实现邮件在线发送 指导老师： 专业班级： 姓 名： 2013年 3月25日 实验类型__验证性__ 实验室_软件实验室三_ 一、实验题目 利用Mail邮件对象实现邮件在线发送 二、实验目的 了Protected Sub 登陆Click(…) Handles 登陆Click Dim dr As Data.SqlClient.SqlDataReader dr = o.getall2dr(user_id= u_id.Text ) If dr.Read Then’密码匹配 If Me.u_pwd.Text = dr.Item(user_pwd) Then 查看用户状态，是否启用 If dr.Item(user_state) = 启用 Then Response.Redirect(内容页面.aspx) Else mycommon.javaScript.myAlert_Bottom(Me.Page, 该用户未启用) End If Else mycommon.javaScript.myAlert_Bottom(Me.Page, 密码错误) End If Else mycommon.javaScript.myAlert_Bottom(Me.Page, 该用户存在，请注册) End If End SubProtected Sub 注册_Click(…) Handles 注册.Click Response.Redirect(注册页面.aspx) End Sub 3、在注册页面输入注册信息，主要代码： Protected Sub 注册_Click…) Handles 注册.Click Dim dr As Data.SqlClient.SqlDataReader dr = o.getall2dr() If dr.Read Then If dr.Item(0) = denglu.Text Then mycommon.javaScript.myAlert_Bottom(Me.Page, 此登录名已存在！) End If End If Dim sr As String sr = o.insert If sr = 1 Then mycommon.javaScript.myAlert_Bottom(Me.Page, 注册成功) Dim mailMsg As New System.Net.Mail.MailMessage(, Me.email.Text) mailMsg.Subject = 激活链接mailMsg.Body = a href=http://localhost/shiyaner/激活.aspx?user_id= Me.denglu.Text 单击此处进行账号激活/a mailMsg.IsBodyHtml = True Dim mySmtp As New System.Net.Mail.SmtpClient() mySmtp.Credentials = New System.Net.NetworkCredential(, **) mySmtp.Send(mailMsg) Else mycommon.javaScript.myAlert_Bottom(Me.Page, 注册失败) End If End SubPublic Function insert() As String Dim conn As New SqlClient.SqlConnection conn.ConnectionString = o.getstrConn()