test.aspx

在线考试系统vb.net+asess开发的

<%@Page Language="VB" Debug=true%>
<%@Import Namespace="System.Web.UI.HtmlControls"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<Script runat="server">
    Dim i,j,p,a,b,c,d As Integer
    
Sub Page_Load(Sender As Object, E As EventArgs)
    If (Session("Name") is Nothing) Or (Session("Number") is Nothing) Then
	Response.Redirect("erro.htm")
    End If
    a=p=j=0
    b=5
    c=10
    d=15
    Dim str(4) As String
    Dim str2(19) As String
    Dim Conn As OleDbConnection =new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;"+"Data Source="+Server.MapPath("TEST.MDB"))
    Dim strSQL As String  = "Select * From "+Session("Course")+""
    Dim cmd As OleDbCommand  = new OleDbCommand(strSQL,Conn)
    conn.Open()                                      
	Dim dr As OleDbDataReader = cmd.ExecuteReader()         
    Do While dr.read()
    	str(p)=dr.item("题号")&"."&dr.item("题目")&"("&dr.item("类型")&","&dr.item("分数")&")" 
    	p+=1
    	str2(a)=dr.item("选项1")
    	a+=1
    	str2(b)=dr.item("选项2")
    	b+=1
    	str2(c)=dr.item("选项2")
    	c+=1
    	str2(d)=dr.item("选项2")
    	d+=1
    	 
    Loop
    Message1.InnerHtml =str(0)
    Message2.InnerHtml =str(1)
    Message3.InnerHtml =str(2)
    Message4.InnerHtml =str(3)
    Message5.InnerHtml =str(4) 
    
    answer1.InnerHtml = str2(0)
    answer2.InnerHtml = str2(1)
    answer3.InnerHtml = str2(2)
    answer4.InnerHtml = str2(3)
    answer5.InnerHtml = str2(4)
    answer6.InnerHtml = str2(5)
    answer7.InnerHtml = str2(6)
    answer8.InnerHtml = str2(7)
    answer9.InnerHtml = str2(8)
    answer10.InnerHtml = str2(9)
    answer11.InnerHtml = str2(10)
    answer12.InnerHtml = str2(11)
    answer13.InnerHtml = str2(12)
    answer14.InnerHtml = str2(13)
    answer15.InnerHtml = str2(14)
    answer16.InnerHtml = str2(15)
    answer17.InnerHtml = str2(16)
    answer18.InnerHtml = str2(17)
    answer19.InnerHtml = str2(18)
    answer20.InnerHtml = str2(19)
               
	conn.Close()
	 
End Sub
Sub Enter_Click(Sender As Object, E As EventArgs)
    Dim score(4) As String
    Dim answer(4) As String
    Dim totalscore As Integer
	Dim Conn As OleDbConnection =new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;"+"Data Source="+Server.MapPath("TEST.MDB"))
    Dim strSQL As String  = "Select 分数,解答 From "+Session("Course")+""
    Dim cmd As OleDbCommand  = new OleDbCommand(strSQL,Conn)
    conn.Open()                                      
	Dim dr As OleDbDataReader = cmd.ExecuteReader() 
	p=0        
	Do While dr.Read()
		score(p)=dr.Item("分数")
		answer(p)=dr.Item("解答")
		p+=1
	Loop
	
	For p=0 To 4
	    Message_2.InnerHtml=Message_2.InnerHtml+score(p)+","+answer(p)+"<br>"
	Next
    
    If answers1_answer1.checked="True" Then
		M1.InnerHtml="1"
	ElseIf answers1_answer2.checked="True" Then
		M1.InnerHtml="2"
	ElseIf answers1_answer3.checked="True" Then
		M1.InnerHtml="3"
	ElseIf answers1_answer4.checked="True" Then
		M1.InnerHtml="4"
	End If
	 
	If answers2_answer1.checked="True" Then
		M2.InnerHtml="1"
	ElseIf answers2_answer2.checked="True" Then
		M2.InnerHtml="2"
	ElseIf answers2_answer3.checked="True" Then
		M2.InnerHtml="3"
	ElseIf answers2_answer4.checked="True" Then
		M2.InnerHtml="4"
	End If
	    
	If answers3_answer1.checked="True" Then
		M3.InnerHtml="1"
	ElseIf answers3_answer2.checked="True" Then
		M3.InnerHtml="2"
	ElseIf answers3_answer3.checked="True" Then
		M3.InnerHtml="3"
	ElseIf answers3_answer4.checked="True" Then
		M3.InnerHtml="4"
	End If
	   
	If answers4_answer1.checked="True" Then
		M4.InnerHtml="1"
	ElseIf answers4_answer2.checked="True" Then
		M4.InnerHtml="2"
	ElseIf answers4_answer3.checked="True" Then
		M4.InnerHtml="3"
	ElseIf answers4_answer4.checked="True" Then
		M4.InnerHtml="4"
	End If
	   
	If answers5_answer1.checked="True" Then
		M5.InnerHtml="1"
	End If
	If answers5_answer1.checked="True" Then
		If answers5_answer2.checked="True" Then
			M5.InnerHtml=M5.InnerHtml+",2"
		End If
	ElseIf answers5_answer1.checked="False" Then
	    If answers5_answer2.checked="True" Then
			M5.InnerHtml=M5.InnerHtml+"2"
		End If
	End If
	If answers5_answer2.checked="True" Then
		If answers5_answer3.checked="True" Then
			M5.InnerHtml=M5.InnerHtml+",3"
		End If
	ElseIf answers5_answer2.checked="False" Then
	    If answers5_answer3.checked="True" Then
			M5.InnerHtml=M5.InnerHtml+"3"
		End If
	End If
	If answers5_answer3.checked="True" Then
		If answers5_answer4.checked="True" Then
			M5.InnerHtml=M5.InnerHtml+",4"
		End If
	ElseIf answers5_answer3.checked="False" Then
	    If answers5_answer4.checked="True" Then
			M5.InnerHtml=M5.InnerHtml+"4"
		End If
	End If
	
    If M1.InnerHtml=answer(0) Then
        Totalscore=score(0)
    End If
    If M2.InnerHtml=answer(1) Then
        Totalscore=Totalscore+score(1)
    End If
    If M3.InnerHtml=answer(2) Then
        Totalscore=Totalscore+score(2)
    End If
    If M4.InnerHtml=answer(3) Then
        Totalscore=Totalscore+score(3)
    End If
    If M5.InnerHtml=answer(4) Then
        Totalscore=Totalscore+score(4)
    End If 
       
	Conn.Close()
	
	Dim ex As Exception
    Dim Conn2 As OleDbConnection =new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;"+"Data Source="+Server.MapPath("TEST.MDB"))
    Dim strSQL2 As String  = "Update 成绩单 Set "+Session("Course")+"="+Convert.ToString(Totalscore)+" Where 姓名='"+Session("Name")+"'"
    Dim cmd2 As OleDbCommand  = new OleDbCommand(strSQL2,Conn2)
    Conn2.Open()
    try 
       cmd2.ExecuteNonQuery()
       Conn2.Close()
       Response.Redirect("score.aspx")
    catch ex   
       MM.InnerHtml="错误!"
       MM.Style("color")="red"
    End Try
          
    
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%= Session("Course") %></title>
</head>

<body bgcolor="#FFFFFF">

<p align="right"><font size="7"><br>在线考试系统</font></p>
<p align="left"><font size="5">考试科目 -- <%= Session("Course") %></font></p>
<hr>
<form id ="Form" runat="server">
<table cellspacing="0" border="0" style="width:100%;border-collapse:collapse;">
	<tr>
		<td>
		<span id=message1 runat="server"/>
		<br><input id=answers1_answer1 type=radio value=选项1 name=answers1  runat=server/><span id=answer1 runat="server"/>
		<br><input id=answers1_answer2 type=radio value=选项2 name=answers1  runat=server/><span id=answer2 runat="server"/>
		<br><input id=answers1_answer3 type=radio value=选项3 name=answers1  runat=server/><span id=answer3 runat="server"/>
		<br><input id=answers1_answer4 type=radio value=选项4 name=answers1  runat=server/><span id=answer4 runat="server"/>
		<br></td>
	</tr>
	<tr>
		<td>
		<span id=message2 runat="server"/>
		<br>
		<input id=answers2_answer1 type=radio value=选项1 name=answers2 runat=server/><span id=answer5 runat="server"/>
		<br><input id=answers2_answer2 type=radio value=选项2 name=answers2 runat=server/><span id=answer6 runat="server"/>
		<br><input id=answers2_answer3 type=radio value=选项3 name=answers2 runat=server/><span id=answer7 runat="server"/>
		<br><input id=answers2_answer4 type=radio value=选项4 name=answers2 runat=server/><span id=answer8 runat="server"/>
		<br></td>
	</tr><tr>
		<td>
		<span id=message3 runat="server"/>
		<br>
		<input id=answers3_answer1 type=radio value=选项1 name=answers3 runat=server/><span id=answer9 runat="server"/>
		<br><input id=answers3_answer2 type=radio value=选项2 name=answers3 runat=server/><span id=answer10 runat="server"/>
		<br><input id=answers3_answer3 type=radio value=选项3 name=answers3 runat=server/><span id=answer11 runat="server"/>
		<br><input id=answers3_answer4 type=radio value=选项4 name=answers3 runat=server/><span id=answer12 runat="server"/>
		<br></td>
	</tr><tr>
		<td>
		<span id=message4 runat="server"/>
		<br>
		<input id=answers4_answer1 type=radio value=选项1 name=answers4 runat=server/><span id=answer13 runat="server"/>
		<br><input id=answers4_answer2 type=radio value=选项2 name=answers4 runat=server/><span id=answer14 runat="server"/>
		<br><input id=answers4_answer3 type=radio value=选项3 name=answers4 runat=server/><span id=answer15 runat="server"/>
		<br><input id=answers4_answer4 type=radio value=选项4 name=answers4 runat=server/><span id=answer16 runat="server"/>
		<br></td>
	</tr><tr>
		<td>
		<span id=message5 runat="server"/>
		<br>
		<input id=answers5_answer1 type=checkbox value=选项1 name=answers5 runat=server/><span id=answer17 runat="server"/>
		<br><input id=answers5_answer2 type=checkbox value=选项2 name=answers5 runat=server/><span id=answer18 runat="server"/>
		<br><input id=answers5_answer3 type=checkbox value=选项3 name=answers5 runat=server/><span id=answer19 runat="server"/>
		<br><input id=answers5_answer4 type=checkbox value=选项4 name=answers5 runat=server/><span id=answer20 runat="server"/>
		<br></td>
	</tr>
</table>





<hr>
<input id="Click" type="submit" value=" 交 卷 " onServerClick="Enter_Click" runat="server">
<br>
<span id="Message_2" MaintainState="false" style="font: arial 11pt;" runat="server"/>
<br>
<span id="M1" MaintainState="false" style="font: arial 11pt;" runat="server"/> 
<br>
<span id="M2" MaintainState="false" style="font: arial 11pt;" runat="server"/> 
<br>
<span id="M3" MaintainState="false" style="font: arial 11pt;" runat="server"/> 
<br>
<span id="M4" MaintainState="false" style="font: arial 11pt;" runat="server"/> 
<br>
<span id="M5" MaintainState="false" style="font: arial 11pt;" runat="server"/>
<br>
<span id="MM" MaintainState="false" style="font: arial 11pt;" runat="server"/> 
 
</form> 		
</body>
</html>