enter.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 65 行

ASP

65 行

<!-- #include virtual="/kjasp/func/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 Express 2.0">
<title></title>
</head>

<body background="../b01.jpg">

<h2 align="center">网络学院期末考试</h2>

<hr>

<h2>选择考试科目:</h2>

<blockquote>
    <form action="<%=Myself%>" method="GET">
        <p>科目：<select name="Lesson" size="1">
            <option IsSelected("ASP", Lesson)>ASP</option>
            <option IsSelected("ASP", Lesson)>BCC</option>
            <option IsSelected("ASP", Lesson)>VB</option>
        </select></p>
        <p>学号：<input type="text" size="20" name="No" Value="<%=No%>"></p>
        <p>姓名：<input type="text" size="20" name="Name"  Value="<%=Name%>"></p>
        <p><input type="submit" Name="Send" value=" 进入考场 "> </p>
    </form>
</blockquote>

<hr>
<FONT Color=Red><%=Msg%></FONT>
</body>
</html>

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

enter.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 enter.asp 源码文件，采用 ASP 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Active相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?