webfrmlogin.aspx.vb

网络版教务管理系统.rar

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Image2 As System.Web.UI.WebControls.Image
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Public sqlstr As String
    Public strID As String
    Public pwd As String
    Public DS As DataSet

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        strID = Trim(Me.TextBox1.Text)
        If strID = "" Then
            Me.Label4.Text = "请输入登录的用户名称。"
            Exit Sub
        End If
        pwd = Trim(Me.TextBox2.Text)
        sqlstr = "SELECT * FROM userID WHERE (用户名 = '" & strID & "')"
        DS = New DataSet()
        DS.Clear()
        DS = GetDataFromDB(sqlstr)
        If DS.Tables(0).Rows.Count > 0 Then
            sqlstr = "SELECT * FROM userID WHERE " & _
            "(用户名 = '" & strID & "') AND (密码 = '" & pwd & "')"
            Dim myDs As DataSet
            myDs = New DataSet()
            myDs.Clear()
            myDs = GetDataFromDB(sqlstr)
            If myDs.Tables(0).Rows.Count > 0 Then
                pepdom = myDs.Tables(0).Rows(0)("权限")
                Me.Response.Redirect("http://localhost/EMIS/WebfrmMain.aspx")
            Else
                Me.Label4.Text = "输入的密码不正确，请重新输入密码。"
                Me.TextBox2.Text = ""
            End If
        Else
            Me.Label4.Text = "查无此人，请确认是否有该用户存在。"
            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
        End If

    End Sub
End Class