Imports System.Data.SqlClient Partial Class _Default Inherits System.Web.UI.Page Private c

Imports System.Data.SqlClient

Partial Class _Default
    Inherits System.Web.UI.Page

    Private con As SqlConnection = Nothing
    Private cmd As SqlCommand = Nothing

    Private Function login(ByVal username As String, ByVal userpass As String) As Integer
        Dim i As Integer = 0
        Try
            con = New SqlConnection(Dao.cs)
            cmd = New SqlCommand("select count(*) from userinfo where username = @username and userpass = @userpass", con)
            cmd.Parameters.AddWithValue("username", username)
            cmd.Parameters.AddWithValue("userpass", userpass)
            con.Open()
            i = cmd.ExecuteScalar()
        Catch ex As Exception
            Response.Write(ex.Message)
        Finally
            Try
                cmd.Dispose()
                con.Dispose()
            Catch ex As Exception
                Response.Write(ex.Message)
            End Try
        End Try
        Return i
    End Function

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim b As Boolean = Request.Cookies("username") IsNot Nothing AndAlso Request.Cookies("userpass") IsNot Nothing
        If b Then
            Dim username As String = HttpUtility.HtmlDecode(Request.Cookies("username").Value)
            Dim userpass As String = HttpUtility.HtmlDecode(Request.Cookies("userpass").Value)
            Dim i As Integer = Me.login(username, userpass)
            If i > 0 Then
                Response.Redirect("~/Index.aspx")
            End If
        End If
    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.Trim().ToLower()
        Dim userpass As String = Me.Login1.Password.Trim().ToLower()
        Dim b As Boolean = Me.Login1.RememberMeSet
        Dim i As Integer = Me.login(username, userpass)
        If i > 0 Then
            Response.Cookies("username").Value = HttpUtility.UrlEncode(username)
            Response.Cookies("userpass").Value = HttpUtility.UrlEncode(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

'Public Class Dao
'    Public Shared ReadOnly cs As String = "Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1"
'End Class