Partial Class _Default Inherits System.Web.UI.Page Private WithEvents Login1 As Login = Ne

Partial Class _Default
    Inherits System.Web.UI.Page

    Private WithEvents Login1 As Login = New Login()

    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
            Dim username As String = Server.HtmlEncode(Request.Cookies("username").Value)
            Dim userpass As String = 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 i As Integer = Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0)
            Response.Write(i)
            If i > 0 Then
                Response.Redirect("~/Index.aspx")
            End If
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.form1.Controls.Add(Me.Login1)
    End Sub

    Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
        Dim username As String = Me.Login1.UserName
        Dim userpass As String = Me.Login1.Password
        Dim b As Boolean = Me.Login1.RememberMeSet

        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 i As Integer = Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0)

        If i > 0 Then
            Response.Cookies("username").Value = Server.HtmlEncode(username)
            Response.Cookies("userpass").Value = Server.HtmlEncode(userpass)

            If b Then
                Response.Cookies("username").Expires = DateTime.Now.AddDays(7) '设置cookie超时时间为7天
                Response.Cookies("userpass").Expires = DateTime.Now.AddDays(7)
            End If

            Response.Redirect("~/Index.aspx") '登录成功跳转
        End If
    End Sub

End Class