فرم ورودی شامل کنترلهای زیر است:
BtnCancel TxtUserName TxtPassword BtnSubmit
زیربرنامه ای بنام check تعریف می کنیم:
Public Sub check()
Dim strConn As String = “server=localhost;uid=;pwd=;database=mydb;”
Dim strConn As String = “server=localhost;uid=;pwd=;database=mydb;”
پس از گرفتن Connection به تعریف SqlCommand و DataReader می پردازیم:
Dim MyConn As New System.Data.SqlClient.SqlConnection(strConn)
Dim objDR As System.Data.SqlClient.SqlDataReader
Dim objDR As System.Data.SqlClient.SqlDataReader
حال متغیری از نوع رشته ای را برای انتخاب فیلدهای جدولمان تعریف می کنیم:
Dim MySQL As String = “Select username, password from login Where username = ‘” & TxtUserName.Text & “‘ and password = ‘” & TxtPassword.Text & “‘”
Dim Cmd As New System.Data.SqlClient.SqlCommand(MySQL, MyConn)
MyConn.Open()
objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
Dim Cmd As New System.Data.SqlClient.SqlCommand(MySQL, MyConn)
MyConn.Open()
objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
سپس DataReader بر اساس cmd تعریف شده Excute می شود حال باید بررسی کنیم که همچنین کاربری در جدول login وجود دارد یا نه؟ اگر کاربری با مشخصات ارسالی وجود نداشته باشد پیغامی به کاربر مبنی بر نادرست بودن اطلاعات ورودی داده می شود:
If Not objDR.Read() Then
Response.Write(“<script>alert(‘Username or password is invalid!’);location.href=’loginadmin.aspx’</script>”)
Response.End()
TxtUserName.Text = “”
TxtPassword..Text = “”
objDR.Close()
MyConn.Close()
Else
Session(“password”) = objDR(“password”)
Response.Redirect (“IndexAdmin.aspx”)
Response.Write(“<script>alert(‘Username or password is invalid!’);location.href=’loginadmin.aspx’</script>”)
Response.End()
TxtUserName.Text = “”
TxtPassword..Text = “”
objDR.Close()
MyConn.Close()
Else
Session(“password”) = objDR(“password”)
Response.Redirect (“IndexAdmin.aspx”)
در غیر این صورت به صفحه مربوطه انتقال داده می شود و در آخر objdr و MyConn را close می کنیم. لازم به ذکر است که در صفحه ارجاعی در قسمت Page_Load دستور زیر که نشان دهنده کلمه عبور صحیح است نوشته شود:
If Session(“password”) = “” Then
Response.Write(“<script>alert(‘You must be Login!’);location.href=’loginadmin.aspx’</script>”)
Response.End()
Response.Redirect(“loginadmin.aspx”)
End If
Response.Write(“<script>alert(‘You must be Login!’);location.href=’loginadmin.aspx’</script>”)
Response.End()
Response.Redirect(“loginadmin.aspx”)
End If
دیدگاه خود را بیان کنید.
باید وارد سایت شده باشید برای دیدگاه دادن