⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 login.aspx

📁 本系统属于现在最好的源码系统
💻 ASPX
字号:
🔍 
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script Language="VB" runat="server">

  Public Sub Page_Load(sender As Object,e As EventArgs)
    if not Page.IsPostBack then
      '网页组件初始设置
      lblMsg.text = ""
      tbEmpID.text = ""
      tbPassword.text = ""
    end if

  End Sub

  Sub btOK_Click(sender As Object,e As EventArgs)
    Dim strConn,strSQL As String
    Dim myConn As OleDBConnection
    Dim myCommand As OleDbCommand
    Dim dr As OleDbDataReader

    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(".") & "\HTGL.mdb" 

    strSQL = "select e.EmpID,e.EmpName,e.DeptID,d.DeptName,e.Password from tblEmp e,tblDept d"

    strSQL = strSQL & " where e.EmpID='" & tbEmpID.text & "' and e.Password='" & tbPassword.text & "'"

    strSQL = strSQL & " and e.DeptID=d.DeptID"

    '建立数据库连接 
    myConn = New OleDbConnection(strConn) 
 
    '建立OleDbCommand对象,以便执行SQL指令或获取OleDbDataReader对象
    myCommand = New OleDbCommand(strSQL,myConn)
    myConn.Open()

    '取得OleDbDataReader对象
    dr = myCommand.ExecuteReader()

    if dr.read() then
      session("UserID") = dr.item(0)
      if dr.isdbnull(1) then
        session("UserName") = ""
      else 	 	
        session("UserName") = dr.item(1) 
      end if
      if dr.isdbnull(2) then
        session("UserDeptID") = ""
      else 	 	
        session("UserDeptID") = dr.item(2) 
      end if
      if dr.isdbnull(3) then
        session("UserDeptName") = ""
      else 	 	
        session("UserDeptName") = dr.item(3) 
      end if

      Page.Response.redirect("MainFunction.aspx")   'MainFunction.aspx为主功能页面
    else
      session("UserID") = ""
      session("UserName") = ""
      session("UserDeptID") = ""      
      session("UserDeptName") = ""
      lblMsg.text="工作号或口令输入错误!!请重新输入!!"	
      tbEmpID.text = ""
      tbPassword.text = "" 
    end if

    myConn.Close() 
  End sub

  Sub btCancel_Click(sender As Object,e As EventArgs)
    tbEmpID.text = ""
    tbPassword.text = ""
  End sub

</script>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>东风汽车贸易公司合同管理系统</title>
</head>

<body bgcolor="white">
<p align="center">　

<p align="center"><b><font face="宋体" size="6" color="red">东风汽车贸易公司合同管理系统</font></b></p>

<p align="center">　</p>
<p align="center"><img border="0" src="images\gst.GIF"></p>

<p align="center">　</p>
<form runat="server">

  <table width="400" border="1" cellspacing="0" cellpadding="3" align="center" 
      bordercolorlight="#003333" bordercolordark="#FFFFFF">

     <tr>
        <td height="25" colspan="2" valign="top" bgcolor="#006699">
          <p align="center"><font color="#FFFF66">用户登录</font>
      	</td>
     </tr>

     <tr>
        <td height="25" valign="top" align=right>工 作 号
        </td>

	<td height="25" valign="top">
           <asp:TextBox id="tbEmpID" runat="server" />
      	</td>
     </tr>

     <tr>
       <td height="25" valign="top" align=right>口　　令
       </td>

       <td height="25" valign="top">
         <asp:TextBox id="tbPassword" textmode="password" runat="server" />
       </td>
     </tr>

     <tr>
      	<td height="25" align="center" colspan=2>
          <asp:Button id="btOK" Text="登录" runat="server" OnClick="btOK_Click" />
          <asp:Button id="btCancel" Text="取消" runat="server" OnClick="btCancel_Click" />
      	</td>
     </tr>

  </table>

  <table width="400" border="0" cellspacing="0" cellpadding="3" align="center" >
    <tr>
      <td>	
        <asp:Label id=lblMsg runat="server" /> 
      </td>
    </tr>
  </table>

</form>
</body> 
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -