tools.vb

来自「该系统是关于c2c电子商务系统 用asp.net技术 开发环境是vs2003」· VB 代码 · 共 18 行

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