السلام عليكم ورحمه الله
الموضوع هو استرجاع كلمة المرور للعضو على البريد الخاص به
حاولت تجربة الكود ولكن يظهر خطأ فى بعض التعريفات علما بأننى أستخدم VB2008
Sub ForgotPWClick(ByVal Sender As Object, ByVal E As EventArgs)
Dim MySqlConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings.Item("forum").ToString())
Dim Adpter As SqlDataAdapter = New SqlDataAdapter
Dim ForumDS As DataSet = New DataSet
Dim Row As DataRow
Dim SelectStatement As String
Dim UserNm As String
Dim Password As String
SelectStatement = "Select UserName, Password From Users Where Email=@Eml"
Adpter.SelectCommand = New SqlCommand(SelectStatement, MySqlConnection)
Adpter.SelectCommand.Parameters.Add(New SqlParameter("@Eml", SqlDbType.NVarChar, 50))
Adpter.SelectCommand.Parameters("@Eml").Value = Email.Text
Adpter.Fill(ForumDS, "Users")
If ForumDS.Tables("Users").Rows.Count > 0 Then
Row = ForumDS.Tables("Users").Rows(0)
UserNm = Row.Item("UserName")
Password = Row.Item("Password")
Dim EMailTo As String = Email.Text.ToString.Trim
Dim EMailFrom As String = "userinfo@amrammar.net"
Dim EMailSubject As String = "تذكير بكلمة المرور في منتديات عمرو عمار . نت"
Dim EMailBody As String = _
"<p dir='rtl'>العضو العزيز " & UserNm & "<br /><br />" & _
"السلام عليكم ورحمة الله وبركاته ،،<br /><br />" & _
"لقد تم إرسال هذه الرسالة بناء على طلبك بإرسال كلمة المرور الخاصة بحسابك في منتديات عمرو عمار . نت " & _
& "<br /><br />" & _
"الإسم : " & UserNm & "<br />كلمة المرور : " & Password & "<br /><br />" & _
"نرجو أن تحوز خدماتنا على رضاكم ونتمنى أن تقوموا بزيارتنا بانتظام." & _
"<br /><br />مع أطيب تحياتنا ،،<br /><br />فريق عمل منتديات عمرو عمار . نت" & "</p>"
Dim Message As MailMessage = New MailMessage(EMailFrom, EMailTo, EMailSubject, EMailBody)
Dim MailClient As SmtpClient = New SmtpClient
MailClient.Host = "mail.amrammar.net"
MailClient.UseDefaultCredentials = True
Message.IsBodyHtml = True
Try
MailClient.Send(Message)
Message.Dispose()
Session("sysmsg") = "تم إرسال رسالة على بريدك الإلكتروني تحتوي على كلمة المرور الخاصة بك"
Response.Redirect("sysmsg.aspx")
Catch Exp As SmtpException
MessageLbl.Text = "خطأ: لم يتم إرسال رسالة التذكير بكلمة المرور, برجاء إعادة المحاولة<br /><br />" & Exp.Message
End Try
Message.Dispose()
Else
MessageLbl.Text = "نعتذر لعدم وجود حساب لهذا البريد الالكتروني، برجاء إعادة المحاولة"
End If
End Sub