tools.vb

网络营销系统.net版.rar

Imports System.Web

Public Class Tools

    Public Shared Function IsLoggedIn() As Boolean

        Dim ctx As HttpContext = HttpContext.Current

        If ctx.Request.Cookies("email") Is Nothing OrElse _
           ctx.Request.Cookies("email").Value = "" Then
            Return False
        Else
            Return True
        End If

    End Function
End Class