📄 examinfo.asp

📁 在线考试系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<link href="style.css" rel="stylesheet" type="text/css">
<!---#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>

</head>

<body>
<p>&nbsp;</p>
<p > 
  <%
set rst=server.CreateObject("adodb.recordset")
rst.open "select * from TestPaper where IsCurrent='1'",conn
TestPaperName=rst("TestPaperName")
StuId=Session("StuId")
sql="select id from StuTestPaper where StuId='"&StuId&"' and TestPaperName='"&TestPaperName&"'"

set rstStuTestPaper=conn.execute(sql)
if not rstStuTestPaper.eof then
response.Write("<SCRIPT>alert('您已经参加过这次考试了！\n如有问题，请联系管理员！');window.location.href='Index.asp';</script>")
response.End()
end if
if rst.eof then
response.Write("<p align='center'>目前没有考试，<br>如有问题请联系管理员!<p>")
response.end()
end if
response.write("将要进行的考试是：<font color='red'>"&TestPaperName&"</font><br>")
response.write("此次考试共有：")
if(cint(rst("TianKongNum"))<>0) then
response.write("填空题："&rst("TianKongNum")&"道，每道"&rst("TianKongScore")&"分。")
end if
if(cint(rst("PanDuanNum"))<>0) then
response.write("判断题："&rst("PanDuanNum")&"道，每道"&rst("PanDuanScore")&"分。")
end if
if(cint(rst("DanXuanNum"))<>0) then
response.write("单选题："&rst("DanXuanNum")&"道，每道"&rst("DanXuanScore")&"分。")
end if
'if(cint(rst("DuoXuanNum"))<>0) then
'response.write("多选题："&rst("DuoXuanNum")&"道，每道"&rst("DuoXuanScore")&"分。")
'end if
if(cint(rst("JianDaNum"))<>0) then
response.write("简答题："&rst("JianDaNum")&"道，每道"&rst("JianDaScore")&"分。")
end if
response.write("总分："&rst("Score")&"分")
response.write("<br>")
response.write("<br>")
response.write("此次考试时间为：<font color='red'> "&rst("ETime")&" </font>分钟。请仔细答题，并注意考试时间！")
rst.close()
conn.close()
set rst=nothing
set conn=nothing
%>
</p>

<p><a href="Exam.asp"><font color="#0000FF">&gt;&gt;&gt; 点击进入考试,并计时</font></a> 
</p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -