headcontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 26 行

Imports NetShopForge.Library.Tracker
Imports NetShopForge.Library.Cart
Partial Class Shop_Controls_HeadControl
    Inherits System.Web.UI.UserControl



    Protected Sub lnkLogout_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        'forget the user
        If Not Request.Cookies("shopperID") Is Nothing Then
            Request.Cookies("shopperID").Expires = DateTime.UtcNow.AddDays(-1.0R)
            Response.Cookies("shopperID").Value = ""
            Response.Cookies.Add(Request.Cookies("shopperID"))
        End If
        'Log it
        TrackerController.Add(BehaviorType.LoggingOut)
        FormsAuthentication.SignOut()
        Response.Redirect("~/default.aspx", False)


    End Sub


   
End Class