Imports MySql.Data.MySqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Private Function login(ByVal username As String, ByVal userpass As String) As Integer
Dim i As Integer = 0
Using con As MySqlConnection = New MySqlConnection(Dao.cs)
Using cmd As MySqlCommand = New MySqlCommand("select count(*) from t_user where username = ?username and userpass = ?userpass", con)
cmd.Parameters.AddWithValue("username", username)
cmd.Parameters.AddWithValue("userpass", userpass)
Try
con.Open()
i = cmd.ExecuteScalar()
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Using
End Using
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 = "Server=127.0.0.1;Database=mydata;User Id=root;Password=;Character Set=gbk"
'End Class
