?? test.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
flagpd=0
flagxz=0
flagtk=0
randomize
set rss=conn.execute("select * from examination where studentnumber="&session("number")&" and (pass=0 or makeup<>0) order by examinationid desc ")
if rss.eof then
qi=1
else
qi=rss("examinationid")+1
end if
set rss=conn.execute("select * from examination where studentnumber="&session("number")&" and (pass=1 and makeup=0) order by examinationid desc ")
if not rss.eof then
qi=rss("examinationid")
end if
set rss=conn.execute("select * from test order by examinationid desc")
if rss.eof then
%>
<script language=javascript>
alert("請(qǐng)先出題！再進(jìn)行考試！");
history.back();
</script>
<%
else
xz=rss("selectid")
xzs=rss("selectscore")
zf=xz*xzs
testid=rss("examinationid")
set rs=conn.execute("select * from selecting order by selectid desc")
maxtype2=rs("selectid")
sqlfind="select * from examination where examinationid="&testid&" and studentnumber="&session("number")&" and (pass=0 or makeup<>0)"
set rsfind=conn.execute (sqlfind)
if not rsfind.eof then
%>
<script language=javascript>
alert("你已經(jīng)參加過這次考試了，請(qǐng)等待下一次考試！");
window.navigate("index.asp");
</script>
<%else
set rsfinds=conn.execute("select * from examination where examinationid="&testid&" and studentnumber="&session("number")&" and (pass=1 and makeup=0)")
if not rsfinds.eof then
else
sqlin="insert into examination (examinationid,studentnumber,score) values("&testid&","&session("number")&",0)"
'response.write sqlin
'response.end
set rsin=conn.execute(sqlin)
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網(wǎng)上考試系統(tǒng)</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="top.htm"-->
<div align="center">
<center>
<form name=form1 action="test_over.asp">
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height="100">
<tr>
<td align="center"><font class=test1>百科知識(shí)競(jìng)賽</font>
<input type="hidden" name=qi value=<%=qi%>>
<input type=hidden name=testid value=<%=testid%>>
<br>（本期考試<%=xz%> 道選擇題，總分 <%=zf%> 分）<br><br>
<input type=hidden name=pd value=<%=pd%>>
<input type=hidden name=xz value=<%=xz%>>
<input type=hidden name=tk value=<%=tk%>>
<input type=hidden name=zf value=<%=zf%>>
<input type=hidden name=pds value=<%=pds%>>
<input type=hidden name=xzs value=<%=xzs%>>
<input type=hidden name=tks value=<%=tks%>>
<br><font color="#000080">考生姓名：<%=session("student")%> 性別： <%=session("sex")%> 班級(jí)：<%=session("classes")%> 學(xué)號(hào)：<%=session("number")%></font><br>
<br>
<br>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">選擇題（共 <%=xz%> 道，每題 <%=xzs%> 分）</td>
</tr>
<%if xz=0 then
response.write "<input type=hidden name=messagepd value='本次考無(wú)選擇題'>"
flagxz=0
%><tr>
<td align=center>本次考無(wú)選擇題
</td>
</tr>
<%else
for i=1 to xz
if maxtype2=0 then
response.write "<input type=hidden name=messagepd value='題庫(kù)里暫無(wú)選擇題'>"
flagxz=0
%><tr>
<td align=center>題庫(kù)里暫無(wú)選擇題
</td>
</tr>
<%else
randomize
sid=int(maxtype2*rnd+1)
set rst=conn.execute("select * from selecting where selectid="&sid)
while rst.eof
randomize
sid=int(maxtype2*rnd+1)
set rst=conn.execute("select * from selecting where selectid="&sid)
wend
%>
<tr>
<td> <%=i%>、<%=rst("question")%>
<input type=hidden name="tgxz<%=i%>" value="<%=rst("question")%>"></td>
</tr>
<tr>
<td>
<input type="radio" value="A" name="sele<%=i%>"> A.<%=rst("result1")%>
<input type=hidden name="xzxx1<%=i%>" value="<%=rst("result1")%>" >
<input type="radio" value="B" name="sele<%=i%>"> B.<%=rst("result2")%>
<input type=hidden name="xzxx2<%=i%>" value="<%=rst("result2")%>" >
<input type="radio" value="C" name="sele<%=i%>"> C.<%=rst("result3")%>
<input type=hidden name="xzxx3<%=i%>" value="<%=rst("result3")%>" >
<input type="radio" value="D" name="sele<%=i%>"> D.<%=rst("result4")%>
<input type=hidden name="xzxx4<%=i%>" value="<%=rst("result4")%>" >
<input type=hidden name="xzda<%=i%>" value="<%=rst("answer")%>" >
</td>
</tr>
<%
end if
next
end if %>
</table>
</center>
</div>
<br>
<p>
<br>
<input type="submit" value="提交" name="B1" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF">
<input type="reset" value="重置" name="B2" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF">
</p>
<p>
<br>
</td>
</tr>
</table>
</form>
</center>
</div>
</body>
</html>
<%end if %>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -