
常用软件类: |
|杀毒安全 | |联络聊天 | |网络软件 | |多媒体类 | |系统工具 | |图形图像 | |系统工具 | |应用软件 | |行业软件 |
开发设计类: |
|动画制作 | |图像处理 | |3D设计 | |操作系统 | |站长学院 | |网络相关 | |WEB设计 | |数据库类 | |程序开发 |
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(); ... } ... } |
| 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"); //显示考试得分页面 ... } |