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

📄 enter.asp

📁 这是一个无纸化测试系统
💻 ASP
字号:
🔍 
<!-- #include virtual="../itest/DB.fun" -->
<%
MySelf = Request.ServerVariables("PATH_INFO")
No = Request("No")
Name = Request("Name")
Lesson = Request("Lesson")

If Request("Send") <> Empty Then
   SQL = "Select * From 成绩单 " 
   SQL = SQL & "Where 学号='" & No & "' And 姓名='" & Name & "'"
   Set rsScore = GetMdbRecordset( "Test.mdb", SQL )

   If rsScore Is Nothing Then
      Msg = "学号或姓名栏位错误!"
   ElseIf rsScore.EOF Then
      Msg = "学号或姓名栏位错误!"
   ElseIf rsScore( Lesson ) <> -1 Then
      Msg = "你已经考过本科目了!"
   Else
      Response.Redirect "Test.asp?" & Request.QueryString
   End If
End If
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>网上考试——祝您好运</title>
</head>

<body bgcolor="#FFFFFF">
<h2 align="center"><font size="3">网上考试</font></h2>

<form action="<%=Myself%>" method="GET">
    <blockquote>
      <blockquote>
        <blockquote>
          <blockquote>
            <blockquote>
              <blockquote>
                <blockquote>
                  <blockquote>
    <p align="left"><font size="2">科目：  
      <select name="Lesson" size="1">
                      <option>01网络基础与应用</option>
                      <option>02网络基础与应用</option>
                      <option>03网络基础与应用</option>
                    </select>
      </font></p>
    <p align="left"><font size="2">学号： 
      <input type="text" size="20" name="No" Value="<%=No%>">
      </font></p>
    <p align="left"><font size="2">姓名： 
      <input type="text" size="20" name="Name"  Value="<%=Name%>">
      </font></p>
                  </blockquote>
                </blockquote>
              </blockquote>
            </blockquote>
          </blockquote>
        </blockquote>
      </blockquote>
    </blockquote>
    <p align="center"> <font size="2">
      <input type="submit" Name="Send" value=" 进入考场 ">
      </font></p>
  </form>
<hr width="80%" size="1">
<div align="center"> 
  <p><font color="Red" size="2"><%=Msg%></font> </p>
  <form action="check.asp" method="POST">
    <blockquote> 
      <table border="0" align="center">
        <tr> 
          <td align="right"><font size="2">姓名：</font></td>
          <td> 
            <input type="text" size="40"
                    name="name">
          </td>
        </tr>
      </table>
      <p align="center"> <font size="2">
        <input type="submit" value="查询学号" name="submit">
        </font></p>
    </blockquote>
  </form>
  <p align="center">　</p>
  <p><font size="2"><a href="default.htm">返回注册</a></font></p>
</div>
</body>
</html>

<% 
Function IsSelected( Which, Lesson )
   If Which = Lesson Then IsSelected = Selected
End Function
%>

⌨️ 快捷键说明

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