如何使用PasswordRecovery发送电子邮件，首先在数据库(myaccess)中验证用户名是否存在 [英] how to send email using PasswordRecovery, verify first in database(myaccess) whether username exists

问题描述

仅使用vb.net
谁能发送以下代码:如何使用PasswordRecovery发送电子邮件，首先在数据库(myaccess)中验证用户名是否存在

我已经将用户信息存储在数据库中，现在如何通过电子邮件发送密码(如果用户为真)并且电子邮件地址位于数据库中?如何发送电子邮件


请给我发代码

using vb.net only
can any one send code for: how to send email using PasswordRecovery, verify first in database(myaccess) whether username exists

i have stored user information in database, now how to send password as an email, {if user is true} and the email address is located in database? how to send email


please send me the code

推荐答案

Anil Sarda写道:

Anil Sarda wrote:

请给我代码

否.我们不是在这里为您做您的工作.

这是一个非常简单的任务，已经被许多很多资源所涵盖.您做了什么来帮助自己?

No. We are not here to do your work for you.

This is a very simple task that has been covered by many, many, many resources. What have you done to help yourself?

//我知道了，使用密码//恢复控制来更新数据库(myaccess)中的密码

//.aspx中的



< asp:移除id ="ChangePassword1" runat ="server" style ="z-index:100;左:16px;< br mode =" hold ="/>位置:绝对；上:176px" passwordlabeltext = "old:" changepasswordtitletext =" newpasswordregularexpression =([[a-zA-Z0-9] {0,15})""changepasswordfailuretext =""xmlns:asp ="#unknown>

  

< asp:移除id ="Label1" runat ="server" style ="z-index:101;左:424px;位置:绝对；< br mode =" hold ="/>上:208px" text = " forecolor ="red" xmlns:asp =#unknown">
< asp:移除id ="TextBox1" runat ="server" style ="z-index:100;左:178px;位置:绝对；< br mode =" hold ="/>上:152px" xmlns: asp =#unknown">
   







                       
   


                       
用户名:

                         



//位于aspx.vb
中

导入System.Data
导入System.Data.OleDb
导入System.Web.UI.WebControls


局部类change_password
继承System.Web.UI.Page
受保护的子ChangePassword1_ChangingPassword(ByVal发送者作为对象，ByVal e作为System.Web.UI.WebControls.LoginCancelEventArgs)处理ChangePassword1.ChangingPassword
暗淡的密码作为字符串= ChangePassword1.CurrentPassword
将NewPassword变暗为字符串= ChangePassword1.NewPassword
昏暗的ConfirmNewPassword作为字符串= ChangePassword1.ConfirmNewPassword

''这里提供您的数据库和数据源的路径
Dim connect As String ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = E:\ Bhuvana \ Anil \ kankatala.mdb;"
昏暗conn作为新的OleDbConnection(connect)
昏暗的cmd作为新的OleDbCommand
cmd.Connection = conn
conn.Open()

cmd.CommandText ="select * FROMregistered_customers WHERE login_name ="& TextBox1.Text& " AND pword ="&密码和""
dr = cmd.ExecuteReader()
如果是dr.Read()然后
''再次提供数据库地址
Dim connect1 As String ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = E:\ Bhuvana \ Anil \ kankatala.mdb;"
昏暗的conn1作为新的OleDbConnection(connect1)
昏暗的cmd1作为新的OleDbCommand
cmd1.Connection = conn
conn1.Open()
cmd1.CommandText ="update created_customers set pword =""&新密码"其中login_name ="& TextBox1.Text& ""
cmd1.ExecuteNonQuery()
conn1.Close()
Label1.Text =密码已更改"
其他
Label1.Text =无效的用户名/密码"
如果结束
结束子


结束类

//就这样...完成了

//i got it yaar, updating password in database(myaccess) using password //recovery control

//this in .aspx



<asp:removed id="ChangePassword1" runat="server" style="z-index: 100; left: 16px;<br mode=" hold=" /> position: absolute; top: 176px" passwordlabeltext="old:" changepasswordtitletext="" newpasswordregularexpression="([a-zA-Z0-9]{0,15})" changepasswordfailuretext="" xmlns:asp="#unknown">

  

<asp:removed id="Label1" runat="server" style="z-index: 101; left: 424px; position: absolute;<br mode=" hold=" /> top: 208px" text="" forecolor="red" xmlns:asp="#unknown">
<asp:removed id="TextBox1" runat="server" style="z-index: 100; left: 178px; position: absolute;<br mode=" hold=" /> top: 152px" xmlns:asp="#unknown">
   







                       
   


                       
UserName:

                         



//this in aspx.vb


Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI.WebControls


Partial Class change_password
Inherits System.Web.UI.Page
Protected Sub Changepassword1_ChangingPassword(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles ChangePassword1.ChangingPassword
Dim Password As String = ChangePassword1.CurrentPassword
Dim NewPassword As String = ChangePassword1.NewPassword
Dim ConfirmNewPassword As String = ChangePassword1.ConfirmNewPassword

''here provide your database and path of datasource
Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Bhuvana\Anil\kankatala.mdb;"
Dim conn As New OleDbConnection(connect)
Dim cmd As New OleDbCommand
cmd.Connection = conn
conn.Open()

cmd.CommandText = "select * FROM registered_customers WHERE login_name= ''" & TextBox1.Text & "'' AND pword=''" & Password & "''"
dr = cmd.ExecuteReader()
If dr.Read() Then
''provide again address of database
Dim connect1 As String= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Bhuvana\Anil\kankatala.mdb;"
Dim conn1 As New OleDbConnection(connect1)
Dim cmd1 As New OleDbCommand
cmd1.Connection = conn
conn1.Open()
cmd1.CommandText = "update registered_customers set pword=''" & NewPassword & "'' where login_name=''" & TextBox1.Text & "''"
cmd1.ExecuteNonQuery()
conn1.Close()
Label1.Text = "Password Changed"
Else
Label1.Text = " Invalid UserName/Password "
End If
End Sub


End Class

//thats it ...it is done

这篇关于如何使用PasswordRecovery发送电子邮件，首先在数据库(myaccess)中验证用户名是否存在的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！