?? selectsubject.asp
字號(hào):
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
if Request.Form("submit")="確認(rèn)" then '如果選擇了考試科目，則進(jìn)入考試界面 if Request.Form("selectsubject")="" then response.write " <center>你沒有選擇考試科目，請(qǐng)選擇考試科目！</center>" else session("selectsubjectname")=Request.Form("selectsubject") dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from subject where subjectname='"&session("selectsubjectname")&"'"
rs.open sql,conn,1,1
'保存單選試題數(shù)量
session("singlenumber")=rs("singlenumber") '保存多選試題數(shù)量
session("multinumber")=rs("multinumber") '保存單選試題分值
session("singleper")=rs("singleper") '保存多選試題分值
session("multiper")=rs("multiper")
'保存考試時(shí)間
session("testtime")=rs("testtime")
'保存考試科目名稱
session("selectsubjectname")=request.form("selectsubject")
'進(jìn)入考試界面
rs.close
set rs=nothing
Response.Redirect "test.asp" end if
end if
%>
<html>
<head>
<title>考試科目選擇</title>
</head>
<body background=images/backimage.gif>
<p align=center><FONT size=4 color=red face=隸書>
<%Response.Write session("studentname")%></FONT><font face ="華文行楷" size="5" color=blue>歡迎您進(jìn)入在線考試系統(tǒng)，請(qǐng)您遵守考場(chǎng)規(guī)則，注意把握時(shí)間</font>
</p><table border="0" cellspacing="0" cellpadding="0" width="500" height="156"><tr><td width=30%></td><td width=70%><form action="selectsubject.asp" method="post" id="form" name="form">
<p align=left><FONT color=green face=宋體 size=4>請(qǐng)您選擇考試科目</FONT>
<br>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from subject"
rs.open sql,conn,1,1
if err.number<>0 then
response.write "數(shù)據(jù)庫(kù)操作失敗："&err.description
elseif rs.bof and rs.eof then
response.write "<center>對(duì)不起,暫時(shí)沒有任何考試科目。</center>"
rs.close
else
do while not rs.eof
Response.Write( "<input name=selectsubject type=radio value=" & rs("subjectname") & ">" & rs("subjectname") & "," & rs("testtime") & "分鐘<br>")
rs.movenext
loop
end if
rs.close
set rs=nothing call endConnection()
%>
</p>
<p align=center ><input name="submit" type="submit" value="確認(rèn)"></p>
</form></td></tr></table>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -