karim orooji
پنج شنبه 29 مهر 1389, 15:31 عصر
با سلام به دوستان
من دربرنامه برای ورود کاربران از authentication استفاده میکنم
حالا میخوام در برنامه سطح دسترسی ایجاد کنم باید چه کنم
زمانی که مدیر میخواد وارد سایت بشه چیکار کنم
کد authentication در کانفیگ
<authentication mode="Forms">
<forms name="logincookie" loginUrl="Default.aspx" timeout="20" defaultUrl="home_page.aspx"></forms>
</authentication>
<authorization>
این کد هم برای تشخیص هویت
Private Function IsUser() As Boolean
Try
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "Select Count(*) From register Where user_name=@user_name And pass=@pass"
com.Parameters.AddWithValue("@user_name", txt_user.Text)
com.Parameters.AddWithValue("@pass", txt_pass.Text)
con.Open()
If com.ExecuteScalar = 1 Then
Return True
End If
con.Close()
Catch ex As Exception
End Try
End Function
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If IsUser() Then
FormsAuthentication.SetAuthCookie(txt_user.Text, True)
FormsAuthentication.RedirectFromLoginPage(txt_pass .Text, True)
Session("user") = Trim(txt_user.Text)
Session("pass") = Trim(txt_pass.Text)
Label4.Visible = False
Else
txt_user.Text = ""
txt_pass.Text = ""
lbl.Visible = True
txt_user.Focus()
End If
End Sub
برای ورود به پنل کاربری مدیر باید چیکار کرد
من دربرنامه برای ورود کاربران از authentication استفاده میکنم
حالا میخوام در برنامه سطح دسترسی ایجاد کنم باید چه کنم
زمانی که مدیر میخواد وارد سایت بشه چیکار کنم
کد authentication در کانفیگ
<authentication mode="Forms">
<forms name="logincookie" loginUrl="Default.aspx" timeout="20" defaultUrl="home_page.aspx"></forms>
</authentication>
<authorization>
این کد هم برای تشخیص هویت
Private Function IsUser() As Boolean
Try
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "Select Count(*) From register Where user_name=@user_name And pass=@pass"
com.Parameters.AddWithValue("@user_name", txt_user.Text)
com.Parameters.AddWithValue("@pass", txt_pass.Text)
con.Open()
If com.ExecuteScalar = 1 Then
Return True
End If
con.Close()
Catch ex As Exception
End Try
End Function
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If IsUser() Then
FormsAuthentication.SetAuthCookie(txt_user.Text, True)
FormsAuthentication.RedirectFromLoginPage(txt_pass .Text, True)
Session("user") = Trim(txt_user.Text)
Session("pass") = Trim(txt_pass.Text)
Label4.Visible = False
Else
txt_user.Text = ""
txt_pass.Text = ""
lbl.Visible = True
txt_user.Focus()
End If
End Sub
برای ورود به پنل کاربری مدیر باید چیکار کرد