showexaminetrsequet.asp

一个网上的考试系统

<!--#include file ="../include.asp"-->
<% 
	StartPage "考试结果显示页",2
%>

<%
	Subject = Request.Form ("Subject")
	Response.Write "<center>"+Subject+"模拟考试答案</center>"
	
	TableName = Subject + "题目表"
%>
<form action ="" method ="post" name ="Next">
<table  width=100%  border=1>
<tr>
	<td  align=center>题目序号</td>
	<td  align=center>正确答案</td>
	<td  align=center>您的答案</td>
	<td  align=center>正确与否</td>
</tr>
<%
	set conn = Server.CreateObject ("adodb.connection")
	conn.Open "NetExamine","sa",""
	set userconn = Server.CreateObject ("adodb.recordset")	
	sqlstr = "select * from "+TableName
	userconn.Open sqlstr,conn
	
	Count = 1
	
	AllSorce = 0
	while not userconn.EOF
		Number = Rtrim(userconn.Fields ("题目名")) +"个数"
		SmallNumber = Rtrim(userconn.Fields ("题目名")) +"小题得分"
		
		Sorce = cint(Request.Form (SmallNumber))
		SumSorce = 0
		'Response.Write (Request.Form (Number))
		select case Count
		case 1
			Response.Write "<tr><td colspan=4>"
			Response.Write "一：" + Rtrim(userconn.Fields ("题目名"))
			Response.Write "(每小题"+cstr(Sorce)+")"
			Response.Write "</td></tr>"
		case 2
			Response.Write "<tr><td colspan=4>"
			Response.Write "二：" + Rtrim(userconn.Fields ("题目名"))
			Response.Write "(每小题"+cstr(Sorce)+")"
			Response.Write "</td></tr>"
		case 3
			Response.Write "<tr><td colspan=4>"
			Response.Write "三：" + Rtrim(userconn.Fields ("题目名"))
			Response.Write "(每小题"+cstr(Sorce)+")"
			Response.Write "</td></tr>"
		case 4
			Response.Write "<tr><td colspan=4>"
			Response.Write "四：" + Rtrim(userconn.Fields ("题目名"))
			Response.Write "(每小题"+cstr(Sorce)+")"
			Response.Write "</td></tr>"
		case 5
			Response.Write "<tr><td colspan=4>"
			Response.Write "五：" + Rtrim(userconn.Fields ("题目名"))
			Response.Write "(每小题"+cstr(Sorce)+")"
			Response.Write "</td></tr>"
		end select
		
		for cycle = 1 to cint(Request.Form (Number))
			Response.Write "<tr>"
			Response.Write "<td>"
			Response.Write (cstr(cycle))
			Response.Write "</td>"
			Response.Write "<td>"
			SelectName = Rtrim(userconn.Fields ("题目名")) + "答案" + cstr(cycle)
			Response.Write (Request.Form (SelectName))
			TransferType = Request.Form (SelectName)
			if Rtrim(userconn.Fields ("题目名"))="单选题"then
				select case Request.Form (SelectName)
				case "1"
					TransferType = "A"
				case "2"
					TransferType = "B"
				case "3"
					TransferType = "C"
				case "4"
					TransferType = "D"
				end select
			end if
			Response.Write "</td>"
			Response.Write "<td>"
			Answer = Rtrim(userconn.Fields ("题目名")) + cstr(cycle)
			Response.Write (Request.Form (Answer))
			Response.Write "</td>"
			Response.Write "<td>"
			if TransferType = Request.Form (Answer) then
				Response.Write "对"
				SumSorce = SumSorce + Sorce
			else
				Response.Write "错"
			end if
			Response.Write "</td>"
			Response.Write "</tr>"
		next
		Response.Write "<tr><td colspan=4 align=center>"
		Response.Write "本题得分：" + cstr(SumSorce)
		Response.Write "</td></tr>"
		AllSorce = AllSorce + SumSorce
		userconn.MoveNext ()
		Count = Count + 1
	wend
	
	Response.Write "<tr><td colspan=4 align=center>"
	Response.Write "本考卷最后得分：" + cstr(AllSorce)
	Response.Write "</td></tr>"
	userconn.Close ()
	set userconn = nothing
	conn.Close()
	set conn = nothing
%>

<tr>
	<td  colspan=4  align=center>
		<input type = "button" value = "返回首页" onclick ="go()">
	</td>
</tr>
</table>
</form>
<% 
	EndPage
%>
<script language="javascript">
	function go()
	{
		document.Next.action = "../Index.asp";
		document.Next .submit();
	}
</script>