利用ASP.NET构建网上考试系统

随着计算机 网络的普及,基于数据库的B/S网上考试系统得到广泛地应用,现以ASP.net(C#)+SQL server(或ACCESS)为例说明开发网上考试系统的实现方法。
  
    一、数据库的设计: 
  
    建立数据库netexam,在库中添加考生信息表StuInfo,分别建立以下字段:考号ExamId(c)(主键)、考生姓名Name(c)、是否登录考试LogYn(c)、得分Score(c)、随机生成的试题答案mca(c) (注:此处以多选题为例,单选题、判断题同理)。添加多选题题库表mc,建立以下字段:题目question(c)、四个选choice1(c)、choice2(c)、choice3(c)、choice4(c)、答案answer(c)(注:多选题答案用0表示未选,1表示选择,如选择ABD就用1101表示)。
  
    二、考生登录:
  
    在此处将考生信息插入表StuInfo,此处要防止考生重复登录!给指定唯一的考号,并将考号字段ExamId(c)设为主键,当重复登录时,用Catch捕获错误,给出相应提示,部分代码如下(login.aspx):
  
  private void ButOk_Click(object sender, System.EventArgs e)
  {
   ...
   SqlConnection StuConn=new SqlConnection("Data Source=localhost;Integrated Security=SSPI;
   Initial Catalog=netexam");
   SqlCommand LoginCmd=StuConn.CreateCommand(); //可根据不同情况选择不同的数据库连接
   ...
   LoginCmd.CommandText="Insert into StuInfo(ExamId,Name)  values('"+TxtId.Text.Trim()+"','"+TxtName.Text.Trim()+"')";
   //将考号、姓名插入相应字段,其中TxtId,TxtName分别是输入考号和姓名的文本框
   try
   {
    ...
    Session["Id"]=TxtId.Text.Trim();
    StuConn.Open();
    LoginCmd.ExecuteReader();
    Response.Redirect("test.aspx");
   }
   catch(Exception) //捕获相应错误
   {
    Response.Write("<script language=/"javascript/">"+"/n");
    Response.Write("alert(/"不能重复登录,或考号、姓名、密码是否有误!/")"+"/n</script>");
   }
   ...
  }
    三、试题生成:
  
    1、防止考生刷新页面:
  
    由于加载试题页面时将从数据库中随机抽取试题,所以应防止考生刷新面页(刷新页面会重新生成新的试题)。方法是将表StuInfo中的LogYn字段默认值设为0,加载试题后设为1,交卷评分后设为2,加载试题页面时进行相应检查,以防止页面的刷新,代码如下(test.aspx):
  
  private void Page_Load(object sender, System.EventArgs e)
  {
   if(!IsPostBack)
   {
    ...
    QuestCmd.CommandText="select LogYn from StuInfo where ExamId= '"+ Session["Id"].ToString()+"'";
    QuestConn.Open();
    SqlDataReader QuestRd=QuestCmd.ExecuteReader();
    QuestRd.Read();
    if(QuestRd["LogYn"].ToString().Trim().Equals("1")||QuestRd["LogYn"].ToString().Trim().Equals("2"))
    //判断是否已加载试题或是否已评分
    {
     ...
     Response.Write("<script language=/"javascript/">"+"/n");
     Response.Write("alert(/"不能刷新!请与管理员联系,重新登录。/")"+"/n</script>");
     ...
    }
    else
    {
     ...
     QuestCmd.CommandText="update StuInfo set LogYn='1'"; //已成功加载试题
     QuestCmd.ExecuteReader();
     ...
    }
   }
   ...
  }
  
    2、随机生成试题:
  
    网上考试系统的关键是试题的随机生成,即对于不同的计算机访问系统时将从题库中随机地抽取不同的试题。
  
    在此我们可使用SQL语句"select top n * from mc order by newid()"从题库中随机抽取n条记录,其中newid()生成 uniqueidentifier 值(若是ACCESS数据库则用"select top n * from mc order by rnd(id)",其中id为自动编号字段)。
  
    在test.aspx页面上放置一个Panel容器控件,以便动态生成绑定到试题的控件,并将从表mc中随机生成的试题答案写入表StuInfo表中的mca字段,代码如下(test.aspx):
  
  private void Page_Load(object sender, System.EventArgs e)
  {
   if(!IsPostBack)
   {
    ...
    QuestCmd.CommandText="select top 10 * from mc order by newid()";//以随机生成10道题为例
    QuestConn.Open();
    QuestRd=QuestCmd.ExecuteReader();
    while(QuestRd.Read())
    {
     Literal LitTxt=new Literal();
     Literal LitBl=new Literal();
     CheckBoxList ChkMc=new CheckBoxList();
     ChkMc.ID="ChkMc"+i.ToString();
     LitTxt.Text=i.ToString()+"、 "+Server.HtmlEncode(QuestRd["Question"].ToString())+"<BR><Blockquote>";
     LitBl.Text="</Blockquote>";
     ChkMc.Font.Size=11;
     for(int j=1;j<=4;j++)
     {
      ChkMc.Items.Add(Server.HtmlEncode(QuestRd["Choice"+j.ToString()].ToString()));
      ChkMc.Items[j-1].Value=j.ToString();
     }
     mcStr+=QuestRd["Answer"].ToString().Trim(); //mcStr是存储随机生成试题答案的字符串变量
     MyPanel.Controls.Add(LitTxt);
     MyPanel.Controls.Add(ChkMc);
     MyPanel.Controls.Add(LitBl);
     i++;
    }
    ...
    QuestCmd.CommandText="update StuInfo set Mca='"+mcStr+"' where ExamId= '" +Session["Id"].ToString()+"'";   //将随机生成试题答案写入数据表
    QuestConn.Open();
    QuestRd=QuestCmd.ExecuteReader();
    ...
   }
   ...
  }
    四、交卷评分:
  
    当用户点击交卷按钮后,应将用户的答题结果与试题答案进行比对,并给出相应的分值写入数据表,最后将表StuInfo中的LogYn字段设置为2,显示考试得分,代码如下(test.aspx):
  
  private void ButSend_Click(object sender, System.EventArgs e)
  {
   ...
   for(int i=1;i<=10;i++) //由于随机生成了10道题,所以循环10次
   {
    for(int j=0;j<4;j++)
     if(Request.Form["ChkMc"+i.ToString()+":"+j.ToString()]!=null)
      mcs+="1"; //mcs是存储考生所选答案的字符串变量,已选用"1"表示,未选用"0"表示
     else
      mcs+="0";
   }
   ...
   QuestCmd.CommandText="select mca from StuInfo where ExamId= '" +Session["Id"].ToString()+"'";
   QuestConn.Open();
   SqlDataReader QuestRd=QuestCmd.ExecuteReader();
   QuestRd.Read();
   int StuScore=0; //存储得分的变量
   for(i=0;i<10;i+=4)
   {
    if(QuestRd["mca"].ToString().Substring(i,4).Equals(mcs.Substring(i,4)))
     StuScore+=2; //从字段mca和mcs中每次取四个字符进行比对,如相等则加上2分
   }
   ...
   QuestCmd.CommandText="update StuInfo set score="+StuScore.ToString()+",LogYn='2' where ExamId= '" + Session["Id"].ToString()+"'and LogYn='1'"; //设置已评分标志
   QuestRd=QuestCmd.ExecuteReader();
   ...
   Response.Redirect("score.aspx"); //显示考试得分页面
   ...
  }
  
    限于篇幅,在此只列出了实现网上考试系统的几个要点,读者可根据自已的需要进一步完善相应的数据验证、后台管理及界面设计。
   
  
在线考试系统 Sub submit_click(ByVal sender As Object, ByVal e As EventArgs) Dim grade As Integer '单选 If RadioButtonList1.SelectedIndex = "2" Then grade = grade + 10 Else a.Visible = True Image1.Visible = True End If If RadioButtonList2.SelectedIndex = "2" Then grade = grade + 10 Else b.Visible = True Image2.Visible = True End If If RadioButtonList3.SelectedIndex = "2" Then grade = grade + 10 Else c.Visible = True Image3.Visible = True End If If RadioButtonList4.SelectedIndex = "2" Then grade = grade + 10 Else d.Visible = True Image4.Visible = True End If If RadioButtonList5.SelectedIndex = "2" Then grade = grade + 10 Else f.Visible = True Image5.Visible = True End If '多选 If CheckBoxList1.Items(0).Selected = False And CheckBoxList1.Items(1).Selected = True And CheckBoxList1.Items(2).Selected = True And CheckBoxList1.Items(3).Selected = True Then grade = grade + 10 Else g.Visible = True Image6.Visible = True End If If CheckBoxList2.Items(0).Selected = False And CheckBoxList2.Items(1).Selected = False And CheckBoxList2.Items(2).Selected = True And CheckBoxList2.Items(3).Selected = False And CheckBoxList2.Items(4).Selected = True And CheckBoxList2.Items(5).Selected = True And CheckBoxList2.Items(6).Selected = True Then grade = grade + 10 Else h.Visible = True Image7.Visible = True End If If CheckBoxList3.Items(0).Selected = True And CheckBoxList3.Items(1).Selected = True And CheckBoxList3.Items(2).Selected = True And CheckBoxList3.Items(3).Selected = False Then grade = grade + 10 Else i.Visible = True Image8.Visible = True End If If CheckBoxList4.Items(0).Selected = True And CheckBoxList4.Items(1).Selected = True And CheckBoxList4.Items(2).Selected = False And CheckBoxList4.Items(3).Selected = True And CheckBoxList4.Items(4).Selected = True Then grade = grade + 10 Else j.Visible = True Image9.Visible = True End If If CheckBoxList5.Items(0).Selected = True And CheckBoxList5.Items(1).Selected = True And CheckBoxList5.Items(2).Selected = False And CheckBoxList5.Items(3).Selected = True Then grade = grade + 10 Else k.Visible = True Image10.Visible = True End If Dim objLabel As New Label objLabel.ID = "message" objLabel.Text = "您的得分为:" & grade & "分 !" '动态产生控件的应用样式的改变? 'objLabel.Style = "background-color:#ffffff;border-width:1;border-style:solid" Page.Controls.Add(objLabel) If grade = 100 Then MsgBox("哦啊!您真了不起,得了满分耶!", 1, "恭喜( ^_^ )") End If submit.Enabled = False reset.Enabled = False End Sub Sub reset_click(ByVal sender As Object, ByVal e As EventArgs) End Sub 在线考试 在线考试 一、单选(每小题十分,共50分) 1、 Do you have a preference _____ a particular food?      A.with B.at C.for D.in 正确答案为:C 2、 By now most freshmen have grown so used to university life that they have forgotten all those ______ about the university they originally had. A.concerns B.worry C.dreams D.ambition 正确答案为:C 3、 Many people want to buy it because,____ , the price is reasonable; ____ , it's rather durable.  A.on one side, on the other side B.for one thing, for another C.on the one hand, on the other hand D.in one part, in the other part 正确答案为:C 4、 The proposal ____ we start doing the experiment two days earlier has been agreed upon by all.  A.which B.what C.that D.of which 正确答案为:C 5、 ____ , we may look forward to better weather. A.comes B.has come C.to be coming D.having come 正确答案为:C 二、多选(每小题十分,共50分) 1.中国三大国粹; 瓷器 中国画 京剧 中医 正确答案为:中国画、京剧、中医 2.四大民间传说: 窦娥冤 西厢记 牛郎织女 牡丹亭 梁山伯与祝英台 白蛇传 孟姜女 正确答案为:牛郎织女、梁山伯与祝英台、白蛇传、孟姜女 3. 建安七子中有三曹: 曹操 曹丕 曹植 曹冲 正确答案为:曹操、曹丕、曹植 4.四大大名楼: 湖南岳阳岳阳楼 江西南昌滕王阁 山西永济鹳雀楼 湖北武汉黄鹤楼 云南昆明大观楼 正确答案为:湖南岳阳楼、江西滕王阁、湖北黄鹤楼、昆明大观楼 5.以下是古代名医的是: 扁鹊 张仲景 贾思勰 淳于意 正确答案为:扁鹊、张仲景、淳于意                 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值