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

📄 login.aspx

📁 可扩展的学生管理系统内核.希望大家能多多支持我.
💻 ASPX
字号:
🔍 
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

    ' Insert page code here
       '
       Function CheckInput()
       if textbox1.text="" or textbox2.text="" then
          label1.text="所有项必填"
          return false
       else
          return true
       end if
       end function
    
       Sub Button2_Click(sender As Object, e As EventArgs)
       textbox1.text=""
       textbox2.text=""
       label1.text="请认真填写"
       End Sub
    
       Sub Button1_Click(sender As Object, e As EventArgs)
       if CheckInput() then
           dim conn as new OleDbConnection()
           dim cmd as new OleDbCommand()
           dim stu1 as new DataSet()
           dim odjr as OleDbDataReader
           conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
           conn.Open()
           cmd.Connection=conn
           cmd.CommandText= "select mname from manage where mname=? and code=?"
           cmd.Parameters.Add(New OleDbParameter("@mname",OleDbType.VarChar,10))
           cmd.Parameters.Add(New OleDbParameter("@code",OleDbType.VarChar,10))
           cmd.Parameters("@mname").Value=trim(textbox1.text)
           cmd.Parameters("@code").Value=trim(textbox2.text)
           cache("name")=cmd.Parameters("@mname").Value
           odjr =cmd.ExecuteReader()
           if odjr.read() then
           session("mem")=textbox1.text
           Response.redirect("manage.aspx")
           else
              label1.text="帐号不存在或密码错误"
           end if
    
           conn.Close()
      end if
    End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p>
            <font color="blue" size="6">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            &nbsp;&nbsp;&nbsp;&nbsp;会员登入</font> 
        </p>
        <p>
            <font color="red" size="5">**************<asp:Label id="Label1" runat="server">请认真填写</asp:Label>****************</font> 
        </p>
        <p>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            姓名&nbsp; 
            <asp:TextBox id="TextBox1" runat="server" Width="123px"></asp:TextBox>
        </p>
        <p>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            密码&nbsp; 
            <asp:TextBox id="TextBox2" runat="server" Width="124px"></asp:TextBox>
        </p>
        <p>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="登入"></asp:Button>
            &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<asp:Button id="Button2" onclick="Button2_Click" runat="server" Text="重试"></asp:Button>
        </p>
        <p>
        </p>
    </form>
</body>
</html>

⌨️ 快捷键说明

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