利用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"); //显示考试得分页面
 ...
}

  限于篇幅,在此只列出了实现网上考试系统的几个要点,读者可根据自已的需要进一步完善相应的数据验证、后台管理及界面设计。
原文:
http://soft.yesky.com/SoftChannel/72342380468043776/20050426/1940896_2.shtml

转载于:https://www.cnblogs.com/dagon007/archive/2005/05/05/149767.html

在线考试系统 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、付费专栏及课程。

余额充值