login.aspx.vb

来自「《ASP.NET C#程序设计案例教程》」· VB 代码 · 共 25 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsShop												            '因为用到了自定义业务对象，所以导入

Public Class login: Inherits Page
	Public txtUserId,txtUserPWD As TextBox
	Public Enter As Button
	Public lblMessage As Label

	Public Sub Enter_Click(Sender As Object,E As EventArgs)
		'下面开始登录
		Dim dus As New DataUsers()
		If dus.IsPassed(txtUserId.Text,txtUserPWD.Text)=True Then
			Session("UserId")=txtUserId.Text
			Dim du As New DataUser(txtUserId.Text)
			Session("RoleId")=du.RoleId						'返回用户类型
			'引导到结账页面
			Response.Redirect("../CheckOut.aspx")
		Else
			lblMessage.Text="用户名和密码不正确，请重新输入"
		End If
	End Sub
End Class