index.aspx.vb

一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Public Class index
    Inherits System.Web.UI.Page
    Protected WithEvents btnEnter As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents txtUserName As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents txtPassword As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents drpDepartment As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents DrpAddress As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnReset As System.Web.UI.HtmlControls.HtmlInputButton

#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

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load       
        If Not IsPostBack Then
            Dim strClientInfor As String '客户端信息
            Dim strInfor As String '如果客户端不是ie6.0显示的提示信息
            strInfor = "<marquee  direction=left scrolldelay=200>"
            strInfor = strInfor & " 请下载IE6.0，否则您无法使用本系统</marquee>"
            strClientInfor = Request.Params("HTTP_USER_AGENT")
            If InStr(strClientInfor, "MSIE 6.0", CompareMethod.Text) = 0 Then
                Response.Write(strInfor)
                btnEnter.Disabled = True
            Else
                btnEnter.Disabled = False
            End If
            Dim strSql As String
            Dim objConn As New SqlConnection()
            Dim objDataSet As New DataSet()
            strSql = "Select * from AddressTable" '将地址检索出来
            objConn.ConnectionString = Application("ConnectString")
            objConn.Open()
            Dim objDataAdatper As New SqlDataAdapter(strSql, objConn)
            objDataAdatper.Fill(objDataSet, "AddressTable")
            With DrpAddress
                .DataSource = objDataSet.Tables("AddressTable")
                .DataTextField = "Address"
                .DataValueField = "Address"
                .DataBind()
            End With
        End If
    End Sub

    Private Sub btnEnter_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.ServerClick
        Dim strUserName As String
        Dim strPassword As String
        Dim strDep As String
        Dim strIP, strAccessTime As String '存放客户的IP地址
        Dim strSqlstring As String
        Dim objConn As New SqlConnection(Application("ConnectString"))
        Dim objDataReader As SqlDataReader
        Dim objCommand As New SqlCommand()
        Dim strAddress As String
        objConn.Open()
        strUserName = txtUserName.Value.Trim
        strPassword = txtPassword.Value.Trim
        strDep = drpDepartment.Value.Trim
        strIP = Request.ServerVariables("REMOTE_ADDR")
        strAddress = DrpAddress.SelectedItem.Text.Trim
        strAccessTime = Now '记录登录时间
        Select Case strDep
            Case 1
                strDep = "管理人员"
            Case 2
                strDep = "试验人员"
            Case 3
                strDep = "总工程师"
            Case 4
                strDep = "委托方"
        End Select
        strSqlstring = "Select * from Users where UserID='" & strUserName
        strSqlstring = strSqlstring & "' and Department='" & strDep
        strSqlstring = strSqlstring & "' and Psw='" & strPassword
        strSqlstring = strSqlstring & "' and Address='" & strAddress & "'"
        objCommand.Connection = objConn
        objCommand.CommandText = strSqlstring
        '利用DataReader对象访问数据库
        '因为现在只需验证是否有用户，所以DataReader就足够了
        objDataReader = objCommand.ExecuteReader
        If objDataReader.Read = False Then '不存在该用户
            '释放资源
            objConn.Close()
            objDataReader.Close()
            objCommand.Dispose()
            objConn.Dispose()
            Response.Redirect("Right/NoQualification.htm")
        Else
            ''记录访问日志  
            objDataReader.Close()
            strSqlstring = "insert into log (Name,IP,AccessTime) values ('"
            strSqlstring = strSqlstring & strUserName & "','" & strIP & "','" & strAccessTime & "')"
            objCommand.CommandText = strSqlstring
            objCommand.ExecuteNonQuery() '插入日志信息
            Session.Timeout = 60000 '设置session超时时间,单位为分钟
            '释放资源
            objConn.Close()
            objCommand.Dispose()
            objConn.Dispose()
            Session("UserType") = strDep
            Session("UserId") = strUserName
            Session("UserAddress") = DrpAddress.SelectedItem.Text.Trim
            Select Case Session("UserType")
                Case "管理人员"
                    Response.Redirect("Right/Manage.htm")
                Case "试验人员"
                    Response.Redirect("Right/TestPerson.htm")
                Case "总工程师"
                    Response.Redirect("Right/Engineer.htm")
                Case "委托方"
                    Response.Redirect("Right/Developer.htm")
            End Select
        End If
    End Sub
End Class