📄 enter.asp
字号:
<!-- #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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -