alizanganeh
دوشنبه 12 دی 1390, 00:51 صبح
سلام
دارم سیستم ورود کاربران رو طراحی میکنم
این کد رو مینویسم و توش بوسیله sesion گفتم که اگر مقداری از ولان فیلد در بانک 0 بود یعنی طرف کاربر عادیه و فلان صفحه رو براش نمایش بده و اگر 1 بود یعنی مدیره و صفحه مدیریت براش نامایش داده بشه
ولی توی هر دو حال فقط صفحه کاربر عادی نمایش داده میشه
یعنی فقط دستور در شرطی که قرار کاربر عادی باشه اجرا میشه
مشکل چیه ؟
این کلا کد دکمه ی ورودمه :
Dim strUserName As String, strpassword As String
strUserName = txtname.Text.Trim()
strpassword = txtpass.Text.Trim()
Dim login As New SqlConnection("Data Source=.;Initial Catalog=Hoze;Integrated Security=True")
Dim cmd As New SqlConnection(login.ConnectionString)
Dim ad As New SqlDataAdapter("select * from karbar where ( username=@username and pass=@pass) ", login)
ad.SelectCommand.Parameters.AddWithValue("@username", Convert.ToString(strUserName))
ad.SelectCommand.Parameters.AddWithValue("@pass", Convert.ToString(strpassword))
login.Open()
Dim tbl As New DataTable
ad.Fill(tbl)
If tbl.Rows.Count > 0 And txtname.Text.Trim() <> "" And txtpass.Text.Trim() <> "" Then
Session.Add("1", tbl.Rows(0)("type").ToString)
If Session("type") = "0" Then
Response.Redirect("~\modir\MainAdmin.aspx")
Else
Response.Redirect("~\Mainuser.aspx")
End If
Else
lblmessage.Text = "اطلاعات صحیح نیست"
End If
دارم سیستم ورود کاربران رو طراحی میکنم
این کد رو مینویسم و توش بوسیله sesion گفتم که اگر مقداری از ولان فیلد در بانک 0 بود یعنی طرف کاربر عادیه و فلان صفحه رو براش نمایش بده و اگر 1 بود یعنی مدیره و صفحه مدیریت براش نامایش داده بشه
ولی توی هر دو حال فقط صفحه کاربر عادی نمایش داده میشه
یعنی فقط دستور در شرطی که قرار کاربر عادی باشه اجرا میشه
مشکل چیه ؟
این کلا کد دکمه ی ورودمه :
Dim strUserName As String, strpassword As String
strUserName = txtname.Text.Trim()
strpassword = txtpass.Text.Trim()
Dim login As New SqlConnection("Data Source=.;Initial Catalog=Hoze;Integrated Security=True")
Dim cmd As New SqlConnection(login.ConnectionString)
Dim ad As New SqlDataAdapter("select * from karbar where ( username=@username and pass=@pass) ", login)
ad.SelectCommand.Parameters.AddWithValue("@username", Convert.ToString(strUserName))
ad.SelectCommand.Parameters.AddWithValue("@pass", Convert.ToString(strpassword))
login.Open()
Dim tbl As New DataTable
ad.Fill(tbl)
If tbl.Rows.Count > 0 And txtname.Text.Trim() <> "" And txtpass.Text.Trim() <> "" Then
Session.Add("1", tbl.Rows(0)("type").ToString)
If Session("type") = "0" Then
Response.Redirect("~\modir\MainAdmin.aspx")
Else
Response.Redirect("~\Mainuser.aspx")
End If
Else
lblmessage.Text = "اطلاعات صحیح نیست"
End If