www.gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\test\backrandommain.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title>试卷</title>
</head>
<%@ Language=VBScript %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
name=session("user")
tab1=session("tab")
stzs=0
%>
<body background="../images/bgcolor.gif">
<table border="0" width="100%">
<tr><th width="100%" align="center"><h1><font color="#FF0000" face="楷体_GB2312"><%=tab1%></font></h1></th></tr>
</table>
<form action="randomuserresult.asp" id="FORM1" method="POST" name="FORM1" target="_top">
<%
sql1="select * from "& name & tab1 &"暂时 where 试题题型='单项选择'"
set rs1=conn.execute(sql1)
response.write "<p id='单项选择题'></p>"
response.write "<FONT color=red face=''>"
response.write "<p id='单项选择题'>一. 单项选择题</FONT></p>"
rs1.movefirst
z=1
do while not rs1.EOF
tm=rs1("试题")
fs=rs1("试题分数")
response.write "<p>" & z & "." & tm & "(" & fs & "分）"
response.write "<br><font color=blue>请选择：</font><br>"
if rs1("附加参数")<=0 then
rs1("附加参数")=1
end if
for i = 1 to rs1("附加参数")
stzs=stzs+1
next
dxanswer=rs1("用户答案")
dxanswer=trim(dxanswer)
if dxanswer="A" then
response.write "<input type=radio name=" & rs1("试题ID") & "a1 checked id=rs1('试题ID') value='A'> A"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='B'> B"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='C'> C"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='D'> D"
elseif dxanswer="B" then
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='A'> A"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 checked id=rs1('试题ID') value='B'> B"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='C'> C"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='D'> D"
elseif dxanswer="C" then
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='A'> A"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='B'> B"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 checked id=rs1('试题ID') value='C'> C"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='D'> D"
elseif dxanswer="D" then
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='A'> A"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='B'> B"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='C'> C"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 ichecked d=rs1('试题ID') value='D'> D"
else
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='A'> A"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='B'> B"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='C'> C"
response.write "<input type=radio name=" & rs1("试题ID") & "a1 id=rs1('试题ID') value='D'> D"
end if
z=z+1
rs1.movenext
loop
rs1.close
%>
<%
sql2="select * from "& name & tab1 &"暂时 where 试题题型='多项选择'"
set rs2=conn.execute(sql2 )
response.write "<p id='多项选择题'></p>"
response.write "<FONT color=red face=''>"
response.write "<p id='多项选择题'>二. 多项选择题</FONT></p>"
rs2.MoveFirst
z=1
do while not rs2.EOF
tm=rs2("试题")
fs=rs2("试题分数")
response.write "<p>" & z & "." & tm & "(" & fs & "分）"
response.write "<br><font color=blue>请选择：</font><br>"
if rs2("附加参数")<=0 then
rs2("附加参数")=1
end if
For i = 1 To rs2("附加参数")
stzs=stzs+1
Next
response.write "<input id=rs2('试题ID') name=" & rs2("试题ID") & "a1 type='checkbox' value='A' >A"
response.write "<font color=white>_________</font>"
response.write "<input id=rs2('试题ID') name=" & rs2("试题ID") & "a2 type='checkbox' VALUE='B' >B"
response.write "<font color=white>_________</font>"
response.write "<input id=rs2('试题ID') name=" & rs2("试题ID") & "a3 type='checkbox' value='C' >C"
response.write "<font color=white>_________</font>"
response.write "<input id=rs2('试题ID') name=" & rs2("试题ID") & "a4 type='checkbox' value='D' >D"
response.write "<font color=white>_________</font>"
z=z+1
rs2.movenext
x=x+1
loop
rs2.close
%>
<%
sql3="select * from "& name & tab1 &"暂时 where 试题题型='判断'"
set rs3 = conn.Execute( sql3 )
response.write "<p id='判断题'></p>"
response.write "<FONT color=red face=''>"
response.write "<p id='判断题'>三.判断题</FONT></p>"
rs3.MoveFirst
x=0
z=1
do while not rs3.EOF
tm=rs3("试题")
fs=rs3("试题分数")
response.write "<p>" & z & "." & tm & "(" & fs & "分）"
response.write "<br><font color=blue>请判断：</font><br>"
if rs3("附加参数")<=0 then
rs3("附加参数")=1
end if
For i = 1 To rs3("附加参数")
stzs=stzs+1
Next
usan=rs3("用户答案")
usan=trim(usan)
if usan="正确" then
response.write "<input type=radio name=" & rs3("试题ID") & "a1 checked id=rs3('试题ID') value='正确'> 正确"
response.write "<input type=radio name=" & rs3("试题ID") & "a1 id=rs3('试题ID') value='错误'> 错误"
elseif usan="错误" then
response.write "<input type=radio name=" & rs3("试题ID") & "a1 id=rs3('试题ID') value='正确'> 正确"
response.write "<input type=radio name=" & rs3("试题ID") & "a1 checked id=rs3('试题ID') value='错误'> 错误"
else
response.write "<input type=radio name=" & rs3("试题ID") & "a1 id=rs3('试题ID') value='正确'> 正确"
response.write "<input type=radio name=" & rs3("试题ID") & "a1 id=rs3('试题ID') value='错误'> 错误"
end if
z=z+1
rs3.movenext
loop
rs3.close
%>
<%
sql4="select * from "& name & tab1 &"暂时 where 试题题型='排序'"
set rs4 = conn.Execute( sql4 )
response.write "<p id='排序题'></p>"
response.write "<FONT color=red face=''>"
response.write "<p id='排序题'>四.排序题</FONT></p>"
response.write "<p><font color=red>请将答案紧凑的排列在一起，填入下面的框里，如不按要求，后果自负</font></P>"
m = 1
rs4.MoveFirst
z=1
do while not rs4.EOF
tm=rs4("试题")
fs=rs4("试题分数")
response.write "<p>" & z & "." & tm & "(" & fs & "分）"
response.write "<br><font color=blue>请输入答案：</font><br>"
if rs4("附加参数")<=0 then
rs4("附加参数")=1
end if
For i = 1 To rs4("附加参数")
response.write "[" & i & "]"& " "&"<input type='text' size='13' name=" & rs4("试题ID") & "a" & i &" value="& rs4("用户答案") &">"
stzs=stzs+1
Next
z=z+1
rs4.movenext
loop
rs4.close
session("stzs")=stzs
%>
</p>
<div id="warning" style="visibility:hidden; width:63%; height:30;margin-left:15;padding-top:5;padding-left:8;background-color:#ffdcdc">
<font face="楷体_gb2312" style="font-size:14pt; font-weight:bold;text-align:center;color:blue">
<p>交卷后，您不可以再对试卷做任何改动。所以请您在确认无误后点击下面按钮！
</p></font>
</div>
<div align="center">
<center><p>
<input type="button" value=" "
onmouseover="warning.style.visibility ='visible'"
onmouseout="warning.style.visibility ='hidden'"
onclick="VBScript:form1.submit()"
style="background-image: url('../images/交卷.jpg'); font-family: 宋体, 隶书; font-size: 14pt">
<input id="reset1" type="reset" value=" " style="background-image: url('../images/清空.jpg'); font-family: 宋体, 隶书; font-size: 14pt"></p>
</center></div><table>
</table>
</form>
</body>
<!--webbot bot="HTMLMarkup" startspan TAG="XBOT" -->
</SCRIPT>
<!--webbot bot="HTMLMarkup" endspan i-checksum="19948"-->
</html>