Partial Class _Default
Inherits System.Web.UI.Page
Private sds As SqlDataSource = New SqlDataSource(Dao.ConnectionString, "select * from t_admin where adminname = @adminname and adminpass = @adminpass")
Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
Dim adminname As String = Me.Login1.UserName.Trim().ToLower() '声明字符串变量username接收控件Login1的username属性并过滤空格和变小写
Dim adminpass As String = Me.Login1.Password.Trim().ToLower()
Dim b As Boolean = Me.Login1.RememberMeSet
If CType(sds.Select(DataSourceSelectArguments.Empty), System.Data.DataView)(0)(0).Equals("0") Then
Session("adminname") = adminname
Response.Redirect("~/Index.aspx")
Return
End If
End Sub
End Class
Admin/Default.aspx没写完
最新推荐文章于 2023-09-04 11:44:46 发布