فرم Login

فرم ورودی شامل کنترلهای زیر است:

BtnCancel TxtUserName TxtPassword BtnSubmit​

زیربرنامه ای بنام check تعریف می کنیم:

Public Sub check()
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 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)​

سپس 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”)​

در غیر این صورت به صفحه مربوطه انتقال داده می شود و در آخر 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​