Imports System.ComponentModel Imports System.Web.UI.Design.WebControls Imports BooksShop.Users <Designer(GetType(CompositeControlDesigner))> _ <ParseChildren(False)> _ PartialPublicClass LoginControlClass LoginControl Inherits System.Web.UI.UserControl Dim _stylebr AsString="" <Description("指示是否换行")> _ PublicProperty Stylebr()Property Stylebr() AsString Get ReturnMe._stylebr EndGet Set(ByVal value AsString) Me._stylebr =IIf(value =Nothing, "", value.Trim) EndSet End Property ProtectedSub Page_Load()Sub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load IfNot IsPostBack Then Session("LoginUser") =Nothing EndIf End Sub ProtectedSub SubmitBT_Click()Sub SubmitBT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim userName AsString= UserNameTB.Text.Trim Dim userPassword AsString= PassWDTB.Text.Trim Dim chUser AsNew CheckedUser(userName) Dim loginResult AsBoolean=False Dim isManager AsBoolean=False Try If chUser.checkUser(userName, userPassword) Then loginResult =True ElseIf chUser.checkManager(userName, userPassword) Then loginResult =True isManager =True EndIf Catch ex As Exception Debug.Write(ex.Message) EndTry If loginResult Or isManager Then Session("LoginUser") = chUser Label1.Text = userName &",欢迎您回来" Else Label1.Text ="登录失败" EndIf Panel1.Visible =False Label1.Visible =True End Sub End Class