网络考场（6）（转）stselectsub.asp
日期：2013-06-03 浏览次数：20770 次
<%@ Language=VBScript %>
<%
if Request.Form("selsub")<>"" then
'如果选择了考科目，则进入考试界面
marray=split(Request.Form("selsub"),",")
'保存考试科目的教师编号
session("teachid")=trim(marray(0))
'保存考试科目名称
session("subname")=trim(marray(1))
'保存考题数量
session("testnum")=trim(marray(2))
'保存考试时间
session("testtime")=trim(marray(3))
'保存开始时间
session("starttime")=now()
'进入考试界面
Response.Redirect "screatefrm1.asp"
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body>
<form action="stselectsub.asp" method="post" id="form1" name="form1">
<p><font face ="" size="2">你已经进入网络考场，必须遵守考场规则，注意考试时间</font></p>
<STRONG><FONT size=4 color=blueviolet face=隶书>
<%Response.Write session("stname")%>
</FONT></STRONG>
<p align=center>
<table border="1" cellPadding="1" cellSpacing="1" width="75%">
<tr>
<td colSpan="3">
<div align="center"><FONT color=crimson face=幼圆
size=4><STRONG>选择考试科目</STRONG></FONT></div>
<tr>
<td>科目</td>
<td>任课老师</td>
<td>考试时间</td></tr>
<%
'创建两个数据库连接对象conn和conn2
set conn=server.CreateObject("adodb.connection")
set conn2=server.CreateObject("adodb.connection")
conn2.ConnectionString="dsn=testsys"
conn.ConnectionString="dsn=testsys"
conn.Open
conn2.Open
strsql="select subinfo.sub,subinfo.teachid,subinfo.testtime,subinfo.testnum,teacherinfo.teachname from subinfo,teacherinfo where subinfo.teachid=teacherinfo.teachid"
'第一个数据库连接对象查询所有的考试科目信息（包括名称、考试时间、题目数量、开课教师的姓名及编号
set mrs=conn.Execute(strsql)
while not mrs.eof
Response.Write "<tr>"
'第二个数据库连接对象查询相应科目学生是否已经有了成绩
set mrs2=conn.Execute("select * from score where stid='" & session("stid") & "' and sub='" & mrs("sub") & "' and teachid='" & mrs("teachid") & "'")
if not mrs2.eof then
'如果相应科目学生已有了成绩，则标识为已考
Response.Write "<td>" & mrs("sub") & "已考（" & mrs2("score") & "）" & "</td>"
else
'否则提供radio选择考试科目，每个radio的value之中包含考试科目的信息
'（如开课教师的编号，课程名称，考试时间及数量）
Response.Write "<td><input name=selsub type=radio value=" & mrs("teachid") & "," & mrs("sub") & "," & mrs("testnum") & "," & mrs("testtim
<%
if Request.Form("selsub")<>"" then
'如果选择了考科目，则进入考试界面
marray=split(Request.Form("selsub"),",")
'保存考试科目的教师编号
session("teachid")=trim(marray(0))
'保存考试科目名称
session("subname")=trim(marray(1))
'保存考题数量
session("testnum")=trim(marray(2))
'保存考试时间
session("testtime")=trim(marray(3))
'保存开始时间
session("starttime")=now()
'进入考试界面
Response.Redirect "screatefrm1.asp"
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body>
<form action="stselectsub.asp" method="post" id="form1" name="form1">
<p><font face ="" size="2">你已经进入网络考场，必须遵守考场规则，注意考试时间</font></p>
<STRONG><FONT size=4 color=blueviolet face=隶书>
<%Response.Write session("stname")%>
</FONT></STRONG>
<p align=center>
<table border="1" cellPadding="1" cellSpacing="1" width="75%">
<tr>
<td colSpan="3">
<div align="center"><FONT color=crimson face=幼圆
size=4><STRONG>选择考试科目</STRONG></FONT></div>
<tr>
<td>科目</td>
<td>任课老师</td>
<td>考试时间</td></tr>
<%
'创建两个数据库连接对象conn和conn2
set conn=server.CreateObject("adodb.connection")
set conn2=server.CreateObject("adodb.connection")
conn2.ConnectionString="dsn=testsys"
conn.ConnectionString="dsn=testsys"
conn.Open
conn2.Open
strsql="select subinfo.sub,subinfo.teachid,subinfo.testtime,subinfo.testnum,teacherinfo.teachname from subinfo,teacherinfo where subinfo.teachid=teacherinfo.teachid"
'第一个数据库连接对象查询所有的考试科目信息（包括名称、考试时间、题目数量、开课教师的姓名及编号
set mrs=conn.Execute(strsql)
while not mrs.eof
Response.Write "<tr>"
'第二个数据库连接对象查询相应科目学生是否已经有了成绩
set mrs2=conn.Execute("select * from score where stid='" & session("stid") & "' and sub='" & mrs("sub") & "' and teachid='" & mrs("teachid") & "'")
if not mrs2.eof then
'如果相应科目学生已有了成绩，则标识为已考
Response.Write "<td>" & mrs("sub") & "已考（" & mrs2("score") & "）" & "</td>"
else
'否则提供radio选择考试科目，每个radio的value之中包含考试科目的信息
'（如开课教师的编号，课程名称，考试时间及数量）
Response.Write "<td><input name=selsub type=radio value=" & mrs("teachid") & "," & mrs("sub") & "," & mrs("testnum") & "," & mrs("testtim
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
