userlog.ascx.vb

《ASP.NET程序设计实用教程》源代码,这本书非常使用,有次源码更是锦上添花,谢谢使用

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.VisualBasic					'因为用到了Trim函数，所以导入本空间
Imports nsShop

Public Class userlog: Inherits UserControl						'userinfo类继承自UserControl
	Public plhUser1,plhUser2 As Panel
	Public btnEnter,btnRegister,btnSearch As Button
	Public txtUserId,txtUserPWD As TextBox
	Public lblUserId,lblMessage As Label
	Public lnkRegister,lnkUpdateInfo,lnkUpdatePWD As HyperLink


	'启动页面时执行本过程
	Sub Page_Load(sender As Object, e As EventArgs) 
		If Not Page.IsPostBack Then
			Call ViewMessage()
		End If
	End Sub

 	'该过程用来登录
	Sub btnEnter_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						'返回用户角色
			'下面显示有关表单和信息
			Call ViewMessage()									'显示用户表单
			'下面判断一下，如果是管理员，则重定向到管理员页面
			If Session("RoleId")="A" Then
				Response.Redirect("admin/index.aspx")
			End If
		Else
			lblMessage.Text="用户名和密码不正确，请重新输入"
		End If
	End Sub

	'该过程用来显示用户登录表单及有关信息
	Public Sub ViewMessage()
		'下面显示用户登录表单
		'注意，这里调用了DataUserLog类的IsNormal共享方法。
		If DataUserLog.IsNormal()=True Then
			lblUserId.Text=Session("UserId")
			plhUser1.Visible=False
			plhUser2.Visible=True
		Else
			plhUser1.Visible=True
			plhUser2.Visible=False
		End If
	End Sub

	'该过程用来定向到注册页面
	Sub btnRegister_Click(Sender As Object, E As EventArgs)
		Response.Redirect("log/register1.aspx")
	End Sub

End Class