If Not IsNothing(mkey) AndAlso Not IsNothing(mkey.Values("admin")) Then
If IsNothing(mkey) OrElse IsNothing(mkey.Values("admin")) Then
(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
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
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
(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
إقتباس :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