📄 selectsubject.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkuser.asp"-->
<div align="center"><font size="2" color="red" face="宋体"> </font>
<strong><font size="3" color="red" face="宋体"> </font></strong> <%
'强硬删除零分纪录
sql="delete from score where studentname='"&session("studentname")&"' and score=0"
conn.execute sql
'删除结束
if request("action")="del" then '删除纪录
sql="delete from score where id=" &request("id")
conn.execute sql
if err.number <> 0 then
response.write "数据库操作错误：" + err.description
err.clear
else %>
<script language=vbscript>
msgbox "操作成功!号码为<%=trim(request("id"))%>的考试纪录已删除!"
</script>
<% end if
end if
%>
<%
if Request.Form("nextstep")="nextstep" then '如果选择了考试科目，则进入考试界面
if Request.Form("selectsubject")="" then
response.write " <center><font size=5 color=purple>你没有选择考试科目，请重新选择考试科目！</font></center>"
else
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2= "select count(*) from score where studentname='"&session("studentname")&"' and subjectname='"&request.form("selectsubject")&"'"
rs2.open sql2,conn,1,1
if rs2(0)=0 then
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")
session("yikao")=0
session("yijiao")=0
'进入考试界面
rs.close
set rs=nothing
%>
<%
if mid(session("selectsubjectname"),1,1)="-" then
Response.redirect "type.asp"
else
Response.redirect "test.asp"
end if%>
<%
else
response.write "<br><center><font size=3>您已经参加过<font color=red >"&request.form("selectsubject")&"</font>科目的考试，<br>需要重考请与管理员联系！</font></center>"
end if
end if
end if
%>
<strong><font color="#333333" size="6" face="华文行楷"><a href="default.asp">考试科目选择</a></font></strong> <head>
</div>
<title>考试科目选择</title>
<script language=javascript>
<!--
function SureDel(id)
{
if ( confirm("您确定要删除该考试纪录吗？"))
{
window.location.href = "selectsubject.asp?action=del&id=" +id
}
}
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body background=images/backimage.gif link="#333333" vlink="#333333" alink="#333333">
<div align="left">
<table width="80%" border="0" align="center">
<tr>
<td width="66%" valign="top"><p align=center><font size="5" face="楷体_GB2312"><font size="4"><br>
1、时间到，系统将自动交卷。
2、</font></font><font size="4" face="楷体_GB2312"><font color="#FF0000">先删除已考科目，才能重新考试</font>。</font><font size="5">
<%dim hou,min,sec ,passtime
session("hou")=0
session("min")=0
session("sec")=0
session("passtime")=0%>
</font></p>
</td>
</tr>
<tr>
<td height="159"> <table width="600" height="121" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0000FF">
<tr>
<td width=96% height="105" bgcolor="#CCCCFF">
<form action="selectsubject.asp" method="post" id="form" name="form">
<br>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from subject where SUBJECTNAME NOT IN (select subjectname from score where studentname='"&session("studentname")&"' )"
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> 恭喜你完成了所有学科的考试，<br>你可以删除重考或者退出系统。</center>"
rs.close
else
do while not rs.eof
Response.Write( "<input name=selectsubject type=radio value=" & rs("subjectname") & ">" & rs("subjectname") & "<br>")
rs.movenext
loop
end if
'rs.close
%>
<p align=center> <br>
<input name="submit" type="submit" value=" 下 一 步 ">
<input name="nextstep" type="hidden" id="nextstep" value="nextstep">
</p>
</form></td>
</tr>
<tr>
<td height="1"> </td>
</tr>
</table></td>
</tr>
</table>
</div>
<table width="600" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor=blue>
<tr>
<td width="20%" height="26">
<div align="center">身份证号</div>
</td>
<td width="20%" height="26">
<div align="center">考试科目</div></td>
<td width="20%" height="26">
<div align="center">考试时间</div></td>
<td width="10%" height="26">
<div align="center">成绩</div></td>
<td width="20%" height="26">
<div align="center">考试状态</div></td>
<td width="20%" height="26">
<div align="center">学科平均</div></td>
</tr>
<%
dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1= "select * from score where studentname='"&session("studentname")&"' order by endtime desc"
rs1.open sql1,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs1.bof and rs1.eof then
rs1.close
response.write "目前没有您的考试纪录"
else
response.write "您已参加考试的科目及成绩如下：(成绩不理想可以删除重新考试)"
do while not rs1.eof %>
<tr>
<td height="1" > <div align="center"><font size=3><%=rs1("studentname")%></font></div></td>
<td height="1" > <div align="center"><font size=3><%=rs1("subjectname")%></font></div></td>
<td height="1" > <div align="center"><font size=3><%=rs1("endtime")%></font></div></td>
<td height="1" > <div align="center"><font size=3><%=rs1("score")%></font></div></td>
<td height="1" > <div align="center"><font size=3>
<%
response.write "<a href='javascript:SureDel(" & cstr(rs1("id")) & ")'>删除</a>"
%>
</font> </div>
<td ><div align="center"><font size=3><%=rs1("avgscore")%></font> </div> </tr>
<% rs1.movenext
loop
end if
end if
SET RS=NOTHING
set rs=nothing
call endConnection()
%>
</table>
<p> </p>
<p align="center"><a href="default.asp"><font color="#996600" size="4" face="黑体">返回登陆界面</font></a><font size="2" color="red" face="宋体">
<%Response.Write session("name")%>
</font> <font size="2" color="red" face="宋体">
<%Response.Write session("studentname")%>
</font><font size="2" color="red" face="宋体">
<%Response.Write session("dq")%>
</font><font size="2" color="red" face="宋体">
<%Response.Write session("dqq")%>
</font><br>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -