Partial Class login
Inherits System.Web.UI.Page
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 password As String = Me.Login1.Password.Trim().ToLower()
Dim sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "select count(*) from t_user where username = @username and userpass = @userpass")
sds.SelectParameters.Add("username", username)
sds.SelectParameters.Add("userpass", password)
Dim dv As System.Data.DataView = sds.Select(DataSourceSelectArguments.Empty)
Dim b As Boolean = dv(0)(0)
If b Then
Session("username") = username
Session("password") = password
Response.Redirect("~/Default.aspx")
Return
End If
Response.Write("登陆失败")
End Sub
End Class
file:///C:\Users\j\Desktop\WebSite\login.aspx.vb
最新推荐文章于 2024-06-26 09:08:55 发布