fereshte22
جمعه 16 شهریور 1386, 14:58 عصر
سلام
من از Forms Authentication که در لینک زیر توضیح داده شده بود برای تشخیص هویت استفاده کردم.
http://www.codeproject.com/aspnet/formsroleauth.asp
(البته مفهموم چند تا از کدهاش برای روشن نیست.)
من یه پوشه admin دارم که برای دسترسی به همه صفحات آن نیاز به login دارم.
اما یه قسمت هم قسمت مربوط به کاربران است که فقط بعضی لز صفحات اون احتیاج به login دارد.
حالا سوال من اینه ایا حتما صفحات login قسمت admin و قسمت کاربران باید یکسان باشد؟
من در webconfig پوشه admin از کد زیر استفاده کردم.
<authorization>
<!-- Order and case are important below -->
<allowroles="Administrator"/>
<denyusers="*"/>
</authorization>
ودر webconfig اصلی :
<authenticationmode="Forms">
<formsname="MYWEBAPP.ASPXAUTH"
loginUrl="login.aspx"
protection="All"
path="/"/>
</authentication>
<authorization>
<allowusers="*"/>
</authorization>
در ضمن با چه دستوری میتوان در طی صفحات مختلف به مقدار userneme کاربر ی که تشخیص هویت شده است دسترسی داشت.؟
کد صفحه login:
FormsAuthentication.Initialize()
Dim conn AsNew SqlConnection(ConfigurationManager.ConnectionStrin gs("ssgshopConnectionString").ConnectionString)
Dim cmd As SqlCommand = conn.CreateCommand
cmd.CommandText = "select roles from f where username=@username " + "AND password=@password"
' Fill our parameters
cmd.Parameters.Add("@username", SqlDbType.NVarChar, 50).Value = Username.Value
cmd.Parameters.Add("@password", SqlDbType.NVarChar, 50).Value = FormsAuthentication.HashPasswordForStoringInConfig File(Password.Value.ToLower, "md5")
conn.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader
If reader.Read Then
Dim ticket AsNew FormsAuthenticationTicket(1, Username.Value, DateTime.Now, DateTime.Now.AddMinutes(30), True, reader.GetString(0), _
FormsAuthentication.FormsCookiePath)
Dim hash AsString = FormsAuthentication.Encrypt(ticket)
Dim cookie AsNew HttpCookie(FormsAuthentication.FormsCookieName, hash)
If ticket.IsPersistent Then
cookie.Expires = ticket.Expiration
EndIf
Response.Cookies.Add(cookie)
Dim returnUrl AsString = Request.QueryString("ReturnUrl")
If returnUrl IsNothingThen
returnUrl = "/"
EndIf
Response.Redirect(returnUrl)
Else
ErrorLabel.Visible = True
EndIf
reader.Close()
conn.Close()
ودر global
ProtectedSub Application_AuthenticateRequest(ByVal sender AsObject, ByVal e As EventArgs)
If HttpContext.Current.User IsNotNothingThen
If HttpContext.Current.User.Identity.IsAuthenticated Then
IfTypeOf HttpContext.Current.User.Identity Is FormsIdentity Then
Dim id As FormsIdentity = DirectCast(HttpContext.Current.User.Identity, FormsIdentity)
Dim ticket As FormsAuthenticationTicket = id.Ticket
' Get the stored user-data, in this case, our roles
Dim userData AsString = ticket.UserData
Dim roles AsString() = userData.Split(","c)
HttpContext.Current.User = New System.Security.Principal.GenericPrincipal(id, roles)
EndIf
EndIf
EndIf
EndSub