📄 selectsubject.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
if Request.Form("submit")="确认" then '如果选择了考试科目，则进入考试界面 if Request.Form("selectsubject")="" then response.write " <center>你没有选择考试科目，请选择考试科目！</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
'保存单选试题数量
session("singlenumber")=rs("singlenumber") '保存多选试题数量
session("multinumber")=rs("multinumber") '保存单选试题分值
session("singleper")=rs("singleper") '保存多选试题分值
session("multiper")=rs("multiper")
'保存考试时间
session("testtime")=rs("testtime")
'保存考试科目名称
session("selectsubjectname")=request.form("selectsubject")
'进入考试界面
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>欢迎您进入在线考试系统，请您遵守考场规则，注意把握时间</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>请您选择考试科目</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 "数据库操作失败："&err.description
elseif rs.bof and rs.eof then
response.write "<center>对不起,暂时没有任何考试科目。</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="确认"></p>
</form></td></tr></table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -