网络考场（6）（转）stselectsub.asp
<%@ 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>
补充：asp教程,高级应用
