📄 index.asp
字号:
<!--#include file="conn.asp"-->
<script Language="vbscript">
sub check()
c=document.form_ss.txt_qi.value
if c<>"" then
if not IsNumeric(c) then
msgbox " 期数只能输入数字"
document.form_ss.txt_qi.select()
exit sub
else
end if
else
msgbox"请输入想要搜索的试卷期数"
document.form_ss.txt_qi.select()
exit sub
end if
document.form_ss.submit()
end sub
</script>
<%
flagtk=0
flagxz=0
flagwd=0
'初始化随机数生成器
randomize
'从题库中查找
set rss=conn.execute("select * from shiti order by id desc")
if rss.eof then
%>
<script language=javascript>
alert("请先出题！再进行考试！");
history.back();
</script>
<%
else
qi=rss("id")
tk=rss("tiankong")
tks=rss("tk_fenshu")
xz=rss("xuanze")
xzs=rss("xz_fenshu")
wd=rss("wenda")
wds=rss("wenda_fenshu")
zf=tk*tks+xz*xzs+wd*wds
testid=rss("id")
set rs=conn.execute("select * from tiankong order by id desc")
maxtype1=rs("id")
set rs=conn.execute("select * from xuanze order by id desc")
maxtype2=rs("id")
set rs=conn.execute("select * from wenda order by id desc")
maxtype3=rs("id")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>考试系统-自动出题</title>
<style type="text/css">
<!--
.style2 {color: #CC0000}
body {
background-color: #CCCCCC;
}
-->
</style>
</head>
<body>
<!--#include file="top2.html"-->
<table width="782" border="0" align="center">
<tr>
<td height="27" align="center"><table width="780" border="0" align="center">
<tr>
<td width="782" height="30"><div align="center"></div></td>
<td width="782" height="30"><div align="center"><a href="chuti.asp" target="_blank">试卷生成</a>|</div></td>
<td width="782" height="30"><div align="center"><a href="xuanze.asp" target="_blank">选择题</a>|</div></td>
<td width="782" height="30"><div align="center"><a href="tiankong.asp" target="_blank">填空题</a>|</div></td>
<td width="782" height="30"><div align="center"><a href="wenda.asp" target="_blank">问答题</a></div></td>
</tr>
</table>
<form name="form_ss" method="post" action="">
<p class="style2">第<input type="text" name="txt_qi" size="5" class="line">期考试题（请输入试卷期数）
<input type="submit" name="sub_ss" value="提交" onclick=check()>
<% set rss=conn.execute("select * from shiti order by id desc")%>
</p>
<p class="style2">（第 <%=qi%> 期考试，本期考试 <%=tk%> 道填空题，<%=xz%> 道选择题，<%=wd%> 道问答题，总分 <%=zf%> 分)
</p>
</form>
<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"><br>
<input type=hidden name=tk value=<%=tk%>>
<input type=hidden name=xz value=<%=xz%>>
<input type=hidden name=wd value=<%=wd%>>
<input type=hidden name=zf value=<%=zf%>>
<input type=hidden name=tks value=<%=tks%>>
<input type=hidden name=xzs value=<%=xzs%>>
<input type=hidden name=wds value=<%=wds%>>
<br>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">一、填空题（共 <%=tk%> 道，每题 <%=tks%> 分）</td>
</tr>
<%
if tk=0 then
response.write "<input type=hidden name=messagepd value='本次考试无填空题'>"
flagtk=0
%><tr>
<td align=center>本次考试无填空题
</td>
</tr>
<%
else
for i=1 to tk
if maxtype1=0 then
response.write "<input type=hidden name=messagepd value='题库里暂无填空题'>"
flagtk=0
%><tr>
<td align=center>题库里暂无填空题
</td>
</tr>
<%
else
'随机生成填空题
randomize
sid=int(maxtype1*rnd+1)
set rst=conn.execute("select * from tiankong where id="&sid)
while rst.eof
randomize
sid=int(maxtype1*rnd+1)
set rst=conn.execute("select * from tiankong where id="&sid)
wend
%>
<tr>
<td> <%=i%>、<%=rst("question")%>
<input type=hidden name="tgtk<%=i%>" value="<%=rst("question")%>">
您的答案：<input type="text" name="TK<%=i%>" size="20" class="line">
<input type=hidden name="tkda<%=i%>" value="<%=rst("answer")%>">
</td>
</tr>
<%
end if
next
end if %>
</table>
</center>
</div>
<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='本次考试无选择题'>"
flagxz=0
%><tr>
<td align=center>本次考试无选择题
</td>
</tr>
<%else
for i=1 to xz
if maxtype2=0 then
response.write "<input type=hidden name=messagepd value='题库里暂无选择题'>"
flagxz=0
%><tr>
<td align=center>题库里暂无选择题
</td>
</tr>
<%else
'随机生成选择题
randomize
sid=int(maxtype2*rnd+1)
set rst=conn.execute("select * from xuanze where id="&sid)
while rst.eof
randomize
sid=int(maxtype2*rnd+1)
set rst=conn.execute("select * from xuanze where id="&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>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">一、问答题（共 <%= wd%> 道，每题 <%=wds%> 分）</td>
</tr>
<%if wd=0 then
response.write "<input type=hidden name=messagepd value='本次考试无问答题'>"
flagwd=0
%><tr>
<td align=center>本次考试无问答题
</td>
</tr>
<%else
for i=1 to wd
if maxtype3=0 then
response.write "<input type=hidden name=messagepd value='题库里暂无问答题'>"
flagwd=0
%><tr>
<td align=center>题库里暂无问答题
</td>
</tr>
<%else
'随机生成问答题
randomize
sid=int(maxtype3*rnd+1)
set rst=conn.execute("select * from wenda where id="&sid)
while rst.eof
randomize
sid=int((maxtype3+1)*rnd+1)
set rst=conn.execute("select * from wenda where id="&sid)
wend
%>
<tr>
<td> <%=i%>、<%=rst("question")%>
<input type=hidden name="tgwd<%=i%>" value="<%=rst("question")%>">
您的答案：<input type="text" name="T<%=i%>" size="20" class="line"></td>
<input type="hidden" name="wdda<%=i%>" value="<%=rst("answer")%>">
</tr>
<%
end if
next
end if %>
</table>
</center>
</div>
<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>
<br>
</td>
</tr>
</table>
</form>
</center>
</div>
</body>
<!--#include file="end.html"-->
</html>
<%end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -