三、试题生成：
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();
...
}
...
} |
|
|
