منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف نتحقق من الكوكيز asp.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53)
+---- الموضوع : كيف نتحقق من الكوكيز asp.net (/showthread.php?tid=51729)

كيف نتحقق من الكوكيز asp.net - justforit - 16-02-25

السلام عليكم ورحمة الله و بركاته
كيف نتحقق من الكوكيز بشكل مباشر؟
التعريف التالي لا يحل الاشكال
Dim mkey As HttpCookie = Request.Cookies("mkey")

والشرط التالي لا يمنع الخطأ
 If IsNothing(mkey.Values("admin")) Then
من ناحية السيشن asp.net اسهل اما الكوكيز فـ php هي الاسهل


RE: كيف نتحقق من الكوكيز asp.net - Zuhare - 17-02-25

PHP كود :
If Not IsNothing(mkey) AndAlso Not IsNothing(mkey.Values("admin")) Then 
PHP كود :
If IsNothing(mkey) OrElse IsNothing(mkey.Values("admin")) Then 


RE: كيف نتحقق من الكوكيز asp.net - justforit - 17-02-25

(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 
شكر الله لك وبارك فيك

RE: كيف نتحقق من الكوكيز asp.net - Zuhare - 17-02-25

مثال - الكود والطريقه منقوله
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 


RE: كيف نتحقق من الكوكيز asp.net - justforit - 17-02-25

(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