[justforit]

السلام عليكم ورحمة الله و بركاته

كيف نتحقق من الكوكيز بشكل مباشر؟

التعريف التالي لا يحل الاشكال

Dim mkey As HttpCookie = Request.Cookies("mkey")

والشرط التالي لا يمنع الخطأ

 If IsNothing(mkey.Values("admin")) Then

---

من ناحية السيشن asp.net اسهل اما الكوكيز فـ php هي الاسهل

[Zuhare]

PHP كود :

If Not IsNothing(mkey) AndAlso Not IsNothing(mkey.Values("admin")) Then 


---

PHP كود :

If IsNothing(mkey) OrElse IsNothing(mkey.Values("admin")) Then 


[justforit]

(17-02-25, 01:55 AM)Zuhare كتب :

PHP كود :

If Not IsNothing(mkey) AndAlso Not IsNothing(mkey.Values("admin")) Then 


---

PHP كود :

If IsNothing(mkey) OrElse IsNothing(mkey.Values("admin")) Then 


شكر الله لك وبارك فيك

[Zuhare]

مثال - الكود والطريقه منقوله

PHP كود :

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

        If IsNothing(Request.Cookies("UserName")) OrElse String.IsNullOrEmpty(Request.Cookies("Username").Value) Then
            Server.Transfer("Login.aspx", False)
        Else
            Dim userName As String = Request.Cookies("Username").Value
            Label1.Text = "Hello, " & userName
        End If
    End Sub

    Protected Sub btnLogoff_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogoff.Click
        If Not IsNothing(Request.Cookies("Username")) Then
            Session.Abandon()
        End If
        Server.Transfer("Login.aspx", False)
    End Sub

End Class 


PHP كود :

Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim loginCookie As HttpCookie = New HttpCookie("LoginCookie")
        Response.Cookies("UserName").Value = TextBox1.Text
        Response.Cookies.Add(loginCookie)
    End Sub
 
    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
        If String.IsNullOrEmpty(TextBox1.Text) Then
            ScriptManager.RegisterClientScriptBlock(Me, Me.GetType(), "alertMessage", "alert('Enter User name')", True)
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

End Class 


[justforit]

(17-02-25, 01:55 AM)Zuhare كتب :

PHP كود :

If Not IsNothing(mkey) AndAlso Not IsNothing(mkey.Values("admin")) Then 


---

PHP كود :

If IsNothing(mkey) OrElse IsNothing(mkey.Values("admin")) Then 


العبارة اللي كانت منقصة كود الشرط هي:
AndAlso 
لكن لم اجرب هذي:
OrElse
الان كيف يتم التعامل مع حذف ملفات الكوكيز من المتصفح نفسه لانه تحدث مشكلة مع حدث Session_End في برنامج asp.net

---

الكود المعني هو:

إقتباس :If Not IsNothing(Request.Cookies("mkey")) Then
    If dtmembers.Select("username='" & Request.Cookies("mkey").Values("username") & "'").Count > 0 Then
        Dim row As Data.DataRow = dtmembers.Select("username='" & Request.Cookies("mkey").Values("username") & "'").Single
        dtmembers.Rows.Remove(row)
    End If
End If