login.aspx.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 47 行

Imports System.Data
Imports System.Data.OleDb
Imports System.io
Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub butOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butOK.Click
        Dim LoginType As Data.LoginType

        Dim ds As New DataSet
        If File.Exists(Server.MapPath(Data.C_LoginNameXmlMapPath)) Then
            ds.ReadXml(Server.MapPath(Data.C_LoginNameXmlMapPath))
        Else
            '"~/XML/LoginLog.xml"文件不存在则建立该文件
            Dim dt As DataTable = ds.Tables.Add("Login")
            dt.Columns.Add("Name")
            dt.Columns.Add("PassWord")
            dt.Columns.Add("Ip")
            '建立一行临时数据
            Dim Value() As String = {"临时", "guest", "127.0.0.1"}
            dt.Rows.Add(Value)
            ds.WriteXml(Server.MapPath(Data.C_LoginNameXmlMapPath))
        End If
        Dim dv As DataView
        dv = ds.Tables("Login").DefaultView
        dv.Sort = "Name"
        Dim RowIndex As Integer = dv.Find(txtUserName.Text)
        If RowIndex > -1 Then
            If dv.Item(RowIndex)("PassWord") = txtPass.Text Then
                FormsAuthentication.RedirectFromLoginPage(txtUserName.Text, False)
                Session("User") = txtUserName.Text
                '根据会话中的用户名正确设置用户目录
                Session("ServerDir") = Data.C_ServerDir
                Session("UserDir") = FileDirServer.GetUserDir(Session("User"))

                Session("LoginType") = Data.LoginType.SUPUERMANAGER
                Response.Redirect("/WebDisk/Help/Welcome.aspx")
            Else
                lblMsg.Text = "密码错误"
            End If
        Else
            lblMsg.Text = "用户不存在"
        End If
    End Sub

End Class