?? stselectsub.asp
字號:
<%@ Language=VBScript %>
<%
startime=timer()
dim conn
dim connstr
dim db
dim rs
dim sqlstr
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
'更改數據庫名字
db="testsys.MDB"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
Set conn2 = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn2.Open connstr
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("testtime") & ">" & mrs("sub") & "</td>"
end if
set mrs2=nothing
Response.Write "<td>" & mrs("teachname") & "</td>"
Response.Write "<td>" & mrs("testtime") & "</td></tr>"
mrs.movenext
wend
'關閉數據庫連接
conn.Close
conn2.Close
'清空對象變量
set conn=nothing
set conn2=nothing
%>
</table></p>
<p> <input id="submit1" name="submit1" type="submit" value="確認"></p>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -