Partial Class Index Inherits System.Web.UI.Page Dim username As String = "" Dim userpa


Partial Class Index
    Inherits System.Web.UI.Page

    Dim username As String = ""
    Dim userpass As String = ""

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If Request.Cookies("username") IsNot Nothing And Request.Cookies("userpass") IsNot Nothing Then
            username = Server.HtmlEncode(Request.Cookies("username").Value)
            userpass = Server.HtmlEncode(Request.Cookies("userpass").Value)

            Dao.sds.SelectCommand = "select count(*) from t_user where username = @username and userpass = @userpass"
            Dao.sds.SelectParameters.Clear()
            Dao.sds.SelectParameters.Add("username", username)
            Dao.sds.SelectParameters.Add("userpass", userpass)

            Dim ie As IEnumerable = Dao.sds.Select(DataSourceSelectArguments.Empty)
            Dim dv As System.Data.DataView = ie
            Dim i As Integer = dv(0)(0)

            If i = 0 Then
                Response.Redirect("~/Default.aspx")
            End If
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

    Protected Sub btn_exit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_exit.Click
        Response.Cookies("username").Expires = DateTime.Now.AddDays(-7) '设置cookie超时时间为7天
        Response.Cookies("userpass").Expires = DateTime.Now.AddDays(-7)
        Response.Redirect("~/Default.aspx")
    End Sub
End Class

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值