📄 choose_course.asp

📁 本系统用来开发网络开发系统的实现
💻 ASP
字号:
<%@ Language=VBScript %>
<HTML>
	<HEAD>
		<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
		<script id="clientEventHandlersJS" language="javascript">
			<!--
			function Reset1_onclick() {
			window.open("stuentinto.asp","_parent")   //页面转向登陆界面
			}
			-->
		</script>
	</HEAD>
	<body>
		<%
			'On Error Resume Next
			dim str_date				'定义变量用来存储当前系统时间
				    '把当前系统时间存储到变量中
			'response.Write (date(yyyy-mm-dd))
			
			
			session("term")= request.Form("Select1")    ' 从选择上一界面（exam_interface）取出下拉框中的值
			
			set cn = server.CreateObject("adodb.connection") 
			
				cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/s223bsh03.mdb") &  ";Persist Security Info=False"
			set rs = server.CreateObject("adodb.recordset")	
				'rs.Open"select * from test_paper where 学期='" & session("term") & "'and 考试时间='"& str_date &"'",cn,3,1
				rs.Open"select * from test_paper where 考试时间='"& date() &"'",cn,3,1
			if rs.EOF then
		%>
		<script language="javascript">            //查看今天是否有试卷可以考试  如果没有 弹出对话框”几天没有试卷“
					window.alert("今天没有试卷")
					window.open("exam_interface.asp","_parent")   // 并从新打开 该页面
		</script>
		<%else%>
		<DIV align="left"><FONT face="宋体"><IMG alt="" src="pic\logo.jpg"></FONT></DIV>
		<form name="form1" action="exam1.asp" method="post" ID="Form1">
				<TABLE id="Table3" cellSpacing="1" cellPadding="1" width="500" border="0" height="41" align=center>
					<TR>
						<TD><FONT face="宋体"><marquee id="MARQUEE1"><font size="6" color="red">欢迎你来到学生考试系统，请选择考试科目！</font></marquee></FONT></TD>
					</TR>
				</TABLE>
		</P>
		<P>
			<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="116" border="0" height="49">
				<TR>
					<TD>
						<P align="right">姓名：</P>
					</TD>
					<TD>
						<P align="left"><%=session("name")%></P>
					</TD>
				</TR>
				<TR>
					<TD>
						<P align="right">学号：</P>
					</TD>
					<TD><%=session("id")%></TD>
				</TR>
			</TABLE>
		</P>
		</FONT>
		<P><FONT face="宋体"></FONT>&nbsp;</P>
		<P align="center"><SELECT id="Select1" name="Select1">
				<%
								while not rs.EOF
							%>
				<OPTION  value="<%=rs.Fields("试卷描述").Value%>"><%=rs.Fields("试卷描述").Value%></OPTION>
				<%
								rs.MoveNext    '如果今天有试卷则下拉框中显示出当前可以考试的科目 
								wend
							%>
			</SELECT></P>
		
			<P><FONT face="宋体"></FONT>&nbsp;</P>
			<P align="center">&nbsp;
			</P>
			<P align="center">
				<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="300" border="0">
					<tr>
						<td>
							<P align="center">
								<INPUT id="Submit1" type="submit" value="考试" name="Submit1"></P>
						</td>
						<td>
							<P align="center">
								<INPUT id="Reset1" type="reset" value="主页" name="Reset1"></P>
						</td>
					</tr>
				</TABLE>
			</P>
		</form>
		<%end if%>
	</body>
</HTML>
⌨️ 快捷键说明

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