randomuserresult.asp

网上在线考试系统,方便快捷, 界面美观大方, visual basic 语言实现, 下载后直接解压缩就可以了

if not base.eof then                           
	dts=dts+1                           
	select case dts                           
	case 1 %> 
		<font face="楷体_GB2312" color="#ff0000"><strong></p><h2>一、多项选择题</strong></font> </h2>                           
	<%case 2 %>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>二、多项选择题</strong></font> </h2>                           
	<%
	end select                           
end if                           

do while not base.eof                           
	kk=kk+1%>                           
	<table border="0" width="100%">                           
	<tr>                           
	<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>                           
	</tr>                           
	</table>                           

	<table border="0" width="100%">                           
	<tr>                           
	<td width="52%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3></td>                           
	<td width="48%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3></td>                           
	</tr>                           
	</table>                           
	
	<table border="0" width="100%">                           
	<tr>
	<td width="48%" height="5%"><% Response.Write base("答案") %></td>                           
	<td width="4%" height="5%"></td>                           
	<td width="48%" height="5%"><%                           
			if not base.eof  then                           
				Response.Write base("用户答案")                           
				Response.Write "<br>"                           
				base.movenext                           
			end if                           
			
		%>                           
	</td>                           
	</tr>                           
	</table>                           
	
	<table border="0" width="100%" cellpadding="3">                           
	<tr><td width="100%"><img src="../Images/sail.gif" alt="sail.gif (725 bytes)" width="813" height="30"></td></tr>                           
	</table>                           
<%loop%>                           

<table border="0" width="100%" cellpadding="3">                           
<tr><td width="100%"><img src="../Images/30.gif" alt="30.gif (725 bytes)" width="811" height="12"></td></tr>                           
</table>                           
<%
sql="select * from "& session("user") & session("tab") &" where 试题题型='判断'"                           
set  base=conn.execute(sql)                           
kk=0                           
if not base.eof then                           
	dts=dts+1                           
	select case dts                           
	case 1                           
	%>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>一、判断题</strong></font> </h2>                         
	<%case 2 %>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>二、判断题</strong></font> </h2>                         
	<%case 3 %>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>三、判断题</strong></font> </h2>                         
	<%end select                           
end if                           

do while not base.eof                           
	kk=kk+1%>                           
	<table border="0" width="100%">                           
	<tr>                           
	<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>                           
	</tr>                           
	</table>                           
	
	<table border="0" width="100%">                           
	<tr>
	<td width="52%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3></td>
	<td width="48%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3></td>                           
	</tr>                           
	</table>                           
	
	<table border="0" width="100%">                           
	<% if base("答案")=1 then %>
	<tr><td width="48%" height="5%">正确</td>                           
	<%else%>
	<tr><td width="48%" height="5%">错误</td>                           
	<%end if%>
	<td width="4%" height="5%"></td>                           
	<td width="48%" height="5%"><%                           
		for i=1 to base("附加参数")                           
			Response.Write i & ":"                           
			if not base.eof  then                           
				Response.Write base("用户答案")                           
				Response.Write "<br>"                           
			else                           
				exit for                            
			end if                           
			
			if base.eof then                           
				exit for                           
			else                           
				base.movenext                           
			end if                           
		next                           
	%>                           
	</td>                           
	</tr>                           
	</table>                           

	<table border="0" width="100%" cellpadding="3">                           
	<tr><td width="100%"><img src="../Images/sail.gif" alt="sail.gif (725 bytes)" width="813" height="30"></td></tr>                           
	</table>                           
<%loop%>                           
<table border="0" width="100%" cellpadding="3">                           
<tr><td width="100%"><img src="../Images/30.gif" alt="30.gif (725 bytes)" width="813" height="12"></td></tr>                           
</table>                           


<%
sql="select * from "& session("user") & session("tab") &" where 试题题型='排序'"                           
set  base=conn.execute(sql)
kk=0                           
if not base.eof then                           
	dts=dts+1                           
	select case dts                           
	case 1                           
	%>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>一、排序题</strong></font> </h2>                           
	<%case 2 %>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>二、排序题</strong></font> </h2>                           
	<%case 3 %>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>三、排序题</strong></font> </h2>                           
	<%case 4 %>                           
		<font face="楷体_GB2312" color="#ff0000"><strong><h2>四、排序题</strong></font> </h2>                           
	<%end select                           
end if                           
do while not base.eof                           
	kk=kk+1%>                           
	<table border="0" width="100%">                           
	<tr>                           
	<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>                           
	</tr>                           
	</table>                           
	
	<table border="0" width="100%">                           
	<tr><td width="52%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3></td>                           
	<td width="48%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3></td></tr>                           
	</table>                           

	<table border="0" width="100%">                           
	<tr><td width="48%" height="5%"><% Response.Write base("答案") %></td>                           
	<td width="4%" height="5%"></td>                           
	<td width="48%" height="5%"><%                           
		for i=1 to base("附加参数")                           
			Response.Write i & ":"                           
			if not base.eof  then                           
				Response.Write base("用户答案")                           
				Response.Write "<br>"                           
			else                           
				exit for                            
			end if                           
			
			if base.eof then                           
				exit for                           
			else                           
				base.movenext                           
			end if                           
		next                           
	%>                           
	</td>                           
	</tr>                           
	</table>                           
	<table border="0" width="100%" cellpadding="3">                           
	<tr>                           
	<td width="100%"><img src="../Images/sail.gif" alt="sail.gif (725 bytes)" width="811" height="30"></td>                           
	</tr>                           
	</table>                           
<%loop%>                           
<table border="0" width="100%" cellpadding="3">                           
<tr><td width="100%"><img src="../Images/30.gif" alt="30.gif (725 bytes)" width="811" height="12"></td></tr>                           
</table>                           
                       
                
<div align="center">
<h2 align=center><font color=red><%response.write "本试卷，你的总分为"&score%></font></h2>
<h2><font color=red><a href="nosave.asp">不保存返回</a></font></h2>
<h2><font color=red><a href="savepaper.asp">保存试卷并返回</a></font></h2>
</div>                         
</form>
</body>                         
</html>