2024年6月21日发(作者：)

＾）Ｊ　…　…　…　　ｆ　ｆ　ｆｆ　ｆ　、　ｆ　Ｊ　

实用第一　智慧密集　

…　Ｉ＿¨　　ｒ＇ｌ　…Ｈ　　Ｌ…　ｑ　Ｊ　一　　．

基于ＡＳＰ＋Ａｃｃｅｓｓ的在线考试系统设计与实现　

杨　东　

摘　要：讲述使用ＡＳＰ技术开发在线考试系统的方法。系统使用Ａｃｃｅｓｓ作为后台数据库．实现了　

对学生信息、试题信息的统一管理。学生可通过在线考试系统进行测试，交卷后系统可自动阅卷　

评分，从而方便学生对学习情况进行了解和总结。　

关键词：ＡＳＰ；Ａｃｃｅｓｓ；在线考试；自动阅卷　

表２　ｔｂＳｃｏｒｅ表结构　

字段名称　数据类型　

自动编号　

文本　

１　引语　

随着信息科技的不断发展，网络教学方式也逐渐融人到日　

常的教学活动巾。利用网络在线资源的优势，使用在线的考试　

系统进行日常的考试Ｔ作．也成为了现今教学发展中的一个趋　

势。在线考试系统需实现对试题的统一管理，并能够自动评阅　

客观题．从而大大地减轻了教师们在教学活动中的负担。　

ＩＤ　

ＳｔｕＩＤ　

主键　

是　

☆　

说明　

系统自动编号　

学乍学号　

ｌｓｃ。ｒｅ　

Ｉ　ｓｔＤａｔｅ　

数字　

日期／时问　

否　

甭　

测试得分　

测试日期　

２　系统模块　

２．１　管理员模块　

管理员担任信息维护的角色。根据需求，应能够对各类试题　

进行添加、删除和修改，对学生信息及学生考试成绩进行维护。　

ＩＤ　

ＳｔｕｌＤ　

ＳｔｕＮａｌａｌｅ　

ＳｔｕＰｗｄ　

ＳｌｕＳｅｘ　

表３　ｔｂＳｔｕｄｅｎｔ表结构　

字段名称　数据类型　

自动编号　

文本　

文本　

文本　

文本　

主键　

是　

否　

否　

否　

说明　

系统一动编号　

学牛学　

学牛姓名　

学生密码　

学牛性别　

２．２学生测试模块　

学生通过个人账号臀录系统后，进入考试页面，将看到单　

选题、多选题、判断题３类题型的客观题题目信息，通过选择　

对应的选项进行答题，答题完毕后，提交试卷时便可看到自己　

本次测试的分数。　

ＳｔｕＭａｉｏｒ　

ＳｔｕＧｒａｄｅ　

文本　

文本　否　

学牛所在弩业　

学牛所　：句：级　

３数据库　

根据考试系统的设计需求和实际应用需要，选择Ａｃｃｅｓｓ　

表４　ｔｂＴｅｓｔ表结构　

作为后台数据Ｊ车，便于日常的管理、开发和使用。数据库命名　

为“ｅｘａｍ．ｍｄｂ”．内含ｔｂＡｄｍｉｎ、ｔｂＳｃｏｒｅ、ｔｂＳｔｕｄｅｎｔ、ｔｂＴｅｓｔ　４　

字段名称　数据类型　主键　

ＩＤ　

ＴｅｓｔＴｉｔｌｅ　

说明　

系统自动编号　

试题题目　

张表。其中ｔｂＡｄｍｉｎ表中保存管理员（或教师）账号，ｔｂＳｃｏｒｅ　

表中保存学生测试的分数，ｔｂＳｔｕｄｅｎｔ表中保存学生的个人信　

息，ｔｂＴｅｓｔ表中存放试题信息。各表的定义如表１一表４所示。　

表１　ｔｂＡｄｍｉｎ表结构　

≠段名称　

Ｄ　

～ｄｍｉｎＩＤ　

￣ｄｍｉｎＮａｍｅ　

￣ｄｍｉｎＰｗｄ　

自动编号　是　

文本　否　

ＴｅｓｔＴｙｐｅ　数字　否　

否　

否　

试题类型。１一单选．２一多选，３～削断　

试题分值　

Ａ选项　

ＴｅｓｔＳｃｏｒｅ　数宁　

数据类型　

自动编号　

丈本　

文本　

文本　

主键　

是　

说明　

系统自动编号　

管理员账号　

Ａ　文本　

Ｂ　

Ｃ　

Ｄ　

文本　

文本　

文本　

否　

否　

Ｂ选项　

Ｃ选项　

Ｄ选项　

否　

甭　

管理员姓名　

管理员密码　

Ａｎｓｗｅｒ　文本　否　正确答案　

５４．　畦商２０翻１　２．疆１３圬与雏女；《；　

…　

ＮＥＴＷＯＲＫ＆Ｃ０啊啊ＵＨＩＣ盯ＩＯＮ………　………　～　………………”ｎ…　‘　…　……　ｍ　……　…ｌ¨　一　～…Ｉ　＿

４数据库操作文件　

当存在多个页面都需要连接数据库的情况时，可将数据库　

连接代码编写成公用文件，此方法将大大减少代码的繁杂度，增　

加代码的可修改性。本系统将数据库连接代码放入公用文件　

“

ｃｏｎｎ．ａｓｐ”中．在需要连接数据库的时候，在文件中添加包含＜！　

一－

＃ｉｎｃｌｕｄｅ　ｉｆｌｅ＝“ｃｏｎｎ．ａｓｐ”一＞即可。ｃｏｎｎ．ａｓｐ的代码如下：　

＜％　

数据库连接文件　

Ｄｉｍ　ｃｏｎｎ　

Ｓｅｔ　ｃｏｎｎ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ　）　

ｃｏｎｎ．Ｏｐｅｎ“Ｄｒｉｖｅｒ＝｛Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅ｝ｓｓ　Ｄｒｉｖｅｒ（　．ｍｄｂ）｝；Ｄｂｑ＝　

＆Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（“ｅｘａｍ．ｍｄｂ”）　

％＞　

５登录页面　

５．１　登录页面　

进入首页“ｉｎｄｅｘ．ａｓｐ”看到的是用户登录贞面。用户可凭　

账号进行登录．界面设计如图１所示。　

ｌｌ薪自萌　凶晒　？　ｖ　？　

４　欢迎鼗陆在翁考试系统　

｛　

４　嗣户鲁　

３　密　

ｌ　女学生　锛理璺　

＼　澳　ｌ　ｌ　

ｉ　

图１登录页面　

登录界面主要代码如下：　

＜ｈｔｍｌ＞　

＜ｂｏｄｙ＞　

＜ｈ２　ａｌｉｇｎ＝”ｃｅｎｔｅｒ”＞欢迎登陆在线考试系统＜／ｈ２＞　

＜ｆｏｒｍ　ｍｅｔｈｏｄ＝“ｐｏｓｔ“ａｃｔｉｏｎ＝“ＩｏｇｉｎＪｕｍｐ．ａｓｐ。’＞　

＜ｂｒ＞＜ｔａｂｌｅ　ａｌｉｇｎ＝　ｃｅｎｔｅｒ“＞　

＜ｔｒ＞　

＜ｔｄ＞用户名：＜／ｔｄ＞　

＜ｔｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｔｅｘｔ　ｎａｍｅ：”ｔｘｔＮａｍｅ“＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ＞密　码：＜／ｔｄ＞　

＜ｔｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｐａｓｓｗｏｒｄ“ｎａｍｅ＝”ｔｘｔＰｗｄ“＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ＞＜／ｔｄ＞　

＜ｔｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｒａｄｉｏ　ｎａｍｅ＝，ｒｄｏＴｙｐｅ”　

ｖａｌｕｅ＝　学生”ｃｈｅｃｋｅｄ＞学生　

＜ｉｎｐｕｔ　ｔｙｐｅ：“ｒａｄｉｏ”ｎａｍｅ＝”　

ｒｄｏＴｙｐｅ”ｖａｌｕｅ＝　管理员“＞管理员＜／ｔｄ＞　

＜ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ＞＜／ｔｄ＞　

＜ｔｄ＞＜ｂｒ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｓｕｂｍｉｔ”ｎａｍｅ＝”　

ｂｔｎＳｕｂｍｉｔ“ｖａｌｕｅ：“登录“ｓｔｙｌｅ＝“ｗｉｄｔｈ：５０ｐｘ：ｈｅｉｇｈｔ：２５ｐ×”＞　

＆ｎｂｓｐ＆ｎｂｓｐ　

＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｒｅｓｅｔ”ｎａｍｅ＝”　

ｂｔｎＲｅｓｅｔ“ｖａｌｕｅ＝“重置“ｓｔｙｌｅ＝“ｗ｛ｄｔｈ：５Ｏｐ×：ｈｅｉｇｈｔ：２５ｐ×”＞＜，ｔｄ＞　

＜／ｔｒ＞　

＜／ｆｏｒｍ＞　

＜／ｂｏｄｙ＞　

＜／ｈｔｍｌ＞　

５．２登录操作处理　

用户输入用户名和密码，选择身份类型后，点击登录，将　

转至“ｌｏｇｉｎＪｕｍｐ．ａｓｐ”贝面来处理登录操作，根据用户的类型　

在验证用户身份信息后跳转至不同的页面。代码如下：　

＜！一一＃ｉｎｃｌｕｄｅ　ｆｉｌｅ＝“ｃｏｎｎ．ａｓｐＩＩ　＞　

＜％　

ｕｓｅｒＮａｍｅ＝Ｒｅｑｕｅｓｔ．ｆＯｒｍ（“ｔｘｔＮａｍｅ“）　

ｕｓｅｒＰｗｄ＝Ｒｅｑｕｅｓｔ．ｆｏｒｍ（　ｔｘｔＰｗｄ”｝　

ＵＳｅｒＴｙｐｅ＝Ｒｅｑｕｅｓｔ．ｆ０ｒｍ（“ｒｄｏＴｙｐｅ　）　

Ｉｆ　ｕｓｅｒＮａｍｅ＝“”Ｏｒ　ｕｓｅｒＰｗｄ＝　Ｔｈｅｎ　

ｒｅｓｐｏｎｓｅ　Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　用户名或者密码不能为　

空，请重新登录！　）；ｌｏｃａｔｉｏｎ＝（　ｉｎｄｅｘ．ａｓｐ　）＜／ｓｃｒｉｐｔ＞　）　

Ｅｌｓｅ　

ｌｆ　ｕｓｅｒＴｙｐｅ＝　学生　Ｔｈｅｎ　

学生登录　

ｓｑｌ＝“ｓｅｌｅｃｔ　ｆｒ０ｍ　ｔｂＳｔｕｄｅｎｔ　ｗｈｅｒｅ　ＳｔｕｌＤ＝　

＆ｕｓｅｒＮａｍｅ＆”　ａｎｄ　ＳｔｕＰｗｄ＝　＆ｕｓｅｒＰｗｄ＆”　‘　

Ｓｅｔ　ｊｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ”）　

ｒｓ．ｏｐｅｎ　ｓｑｌ，ｃｏｎｎ，　１　

”Ｊｒ＿ｓ．ｅｏｆＴｈｅｎ　

ｒｅｓｐｏｎｓｅ，Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　用户名或者密码不　

正确，请重新登录！　）；ｌｏｃａｔｉｏｎ＝（　ｉｎｄｅｘ．ａｓｐ　）＜／ｓｃｒｉｐｔ＞”）　

Ｅｌｓｅ　

Ｓｅｓｓｉｏｎ（　ｎａｍｅ　）＝ｕｓｅｒＮａｍｅ　

Ｒｅｓｐｏｎｓｅ．ｒｅｄｉｒｅｃｔ“ｓｔｕｄｅｎｔ．ａｓｐ”　

ｆＥｎｄ　ｌｆ　

Ｅｌｓｅ　

管理员登录　

ｓａ｝＝”ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＡｄｍｉｎ　ｗｈｅｒｅ　ＡｄｍｌｎｌＤ＝　

＆ｕｓｅｒＮａｍｅ＆“　ａｎｄ　ＡｄｍｉｎＰｗｄ＝　‘＆ｕｓｅｒＰｗｄ＆…　

Ｓｅｔ　ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ“）　

Ｉ＇ｉｓ．ｏｐｅｎ　ｓｑｌ，ｃｏｎｎ，１，１　

Ｉｆ　ｒｓ．ｅｏｆ　Ｔｈｅｎ　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　用户名或者密码不　

正确，请重新登录｝　１０ｃａ　０ｎ＝（　ｉｎｄｅｘ．ａｓＰ　）＜／ｓｃｒｉｐｔ＞”）　

｛ＥＩｓｅ　

Ｓｅｓｓｉｏｎ（“ｎａｍｅ“）＝ｕｓｅｒＮａｍｅ　

Ｒｅｓｐｏｎｓｅ．ｒｅｄｉｒｅｃｔ“ａｄｍｉｎ．ａｓｐ”　

Ｅｎｄ　ｉｆ　

Ｅｎｄ＿ｆ　

Ｅｎｄ　Ｉｆ　

ｍ　ｕ　ｕ　ｌ　

　ｒＪ　

实用第一　智慧密集　

…　…　一　。　、　一　

ＣＯｎｎ．ＣＩＯＳｅ　

ｖａｒＦｉｅＩｄ：ＳｔｕＧｒａｄｅ“＞年级＜／ａ＞＜／ｔｈ＞　

＜ｔｈ　ｗｉｄｔｈ＝“１　Ｏ％”＞修改＜／ｔｈ＞　

Ｓｅｔ　ｃｏｒｍ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　ｒｓ＝Ｎｏｔｈｉｎｇ　

％＞　

＜ｔｈ　ｗｉｄｔｈ＝”１　０％”＞删除＜／ｔｈ＞　

＜／ｔｒ＞　

＜％　

６管理员页面　

管理员臀录后，可以维护学生信息和学牛测试成绩，对单　

选题、多选题和判断题进行分类的管理，可添加、修改和删除　

循环显示单个记录　

ＤＯ　Ｗｈｉｌｅ　Ｎｏｔ　ｒｓ．Ｅｏｆ　

％＞　

＜ｔｒ＞　

单条试题信息。　

６．１　学生信息页面　

“

ｓｔｕｌｎｆｏ．ａｓｐ”中以表格的形式显示了所有已存入的学生信　

息，并可按照不同的标题类型对信息进行排序。如图２所示。　

图２学生信息　

上要代码如下　

＜％　

Ｉｆ　Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（”ｖａｒＦｉｅｌｄ“）＝”“Ｔｈｅｎ　

ｓｔｒＦｉｅｌｄ＝“ＩＤ“　

Ｅｌｓｅ　

ｓｔｒＦｉｅＩｄ＝Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（“ｖａｒＦｉｅｌｄ　）　

Ｅｎｄ＿ｆ　

ｓｑＩ＝”ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＳｔｕｄｅｎｔ　Ｏｒｄｅｒ　Ｂｙ”＆ｓｔｒＦｉｅｌｄ＆“　

ＡＳＣ”　

Ｓｅｔ　ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ“）　

ｒｓ．ｏｐｅｎ　ｓｑｌ，ｃｏｎｎ，１，１　

ｉｎｄｅｘ＝１　

％＞　

＜ａ　ｈｒｅｆ＝”ａｄｄＳｔｕ．ａｓｐ”＞添加新学生信息＜／ａ＞　

＜ｔａｂｌｅ　ｂｏｒｄｅｒ＝”１＿＿ｗｉｄｔｈ＝”８０％”ａｌｉｇｎ＝“ｃｅｎｔｅｒ”ｂｏｒｄｅｒｃｏｌｏｒ＝“　

＃９９９９ＣＣ”ｃｅｌｌｓｐａｃｉｎｇ＝“０”＞　

＜ｔｒ　ｂｇｃｏｌｏｒ＝‘‘＃ＥＯＥＯＥ０’。＞　

＜ｔｈ　ｗｉｄｔｈ＝“１　０％“＞＆ｎｂｓｐ；＜ａ　ｈｒｅｆ＝　ｓｔｕｌｎｆｏ．ａｓｐ？　

ｖａｒＦｉｅｌｄ＝ｌＤ　＞序号＜／ａ＞＜，ｔｈ＞　

＜ｔｈ　ｗｉｄｔｈ＝“２０％　＞＆ｎｂｓｐ；＜ａ　ｈｒｅｆ：　ｓｔｕＩｎｆｏ．ａｓｐ？　

ｖａｒＦｉｅＩｄ＝ＳｔｕｌＤ“＞学号＜／ａ＞＜／ｔｈ＞　

＜ｔｈ　ｗｉｄｔｈ＝”１０％　＞＆ｎｂｓｐ；＜ａ　ｈｒｅｆ＝　ｓｔｕｌｎｆｏ．ａｓｐ？　

ｖａｒＦｉｅｌｄ＝ＳｔｕＮａｍｅ“＞姓名＜／ａ＞＜／ｔｈ＞　

＜ｔｈ　ｗｉｄｔｈ＝　１　Ｏ％”＞＆ｎｂｓｐ；＜ａ　ｈｒｅｆ＝”ｓｔｕｌｎｆｏ．ａｓｐ？　

ｖａｒＦｉｅＩｄ＝ＳｔｕＳｅｘ”＞性另Ｉ＜／ａ＞＜／ｔｈ＞　

＜ｔｈ　ｗｉｄｔｈ：”２０％“＞＆ｎｂｓｐ；＜８　ｈｒｅｆ＝“ｓｔｕＩｎｆｏ．ａｓｐ？　

ｖａｒＦｉｅｌｄ＝ＳｔｕＭａｊｏｒ”＞专业＜／ａ＞＜／ｔｈ＞　

＜ｔｈ　ｗｉｄｔｈ：“１　Ｏ％”＞＆ｎｂｓｐ；＜ａ　ｈｒｅｆ＝”ｓｔｕｌｎｆｏ．ａｓｐ？　

５６　建｜麟２０缡１趣２．疆１３西

与雅　｝　

＜ｔｄ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ“＞＆ｎｂｓｐ；＜％＝ｉｎｄｅｘ％＞＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ“＞＆ｎｂｓｐ：＜％＝ｒｓ（”ＳｔｕｌＤ“）％＞＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ“＞＆ｎｂｓｐ　＜％＝ｒｓ（“ＳｔｕＮａｍｅ“）％＞＜，ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ“＞＆ｎｂｓｐ：＜％＝ｒｓ（”ＳｔｕＳｅｘ　）％＞＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ“＞＆ｎｂｓｐ　＜％：ｒｓ（“ＳｔｕＭａｊｏｒ”）％＞＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ“＞＆ｎｂｓｐ：＜％：ｒｓ（“ＳｔｕＧ　ｒａｄｅ”）％＞＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ“＞＜ａ　ｈｒｅｆ＝“ｍｏｄｉｆｙＳｔｕ　ａｓｐ？　

ｌＤ＝＜％：ｒｓ（　ＩＤ“）％＞“＞修改＜／ａ＞＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ“＞＜ａ　ｈｒｅｆ＝“ｄｅＩＳｔｕ．ａｓｐ？ｌＤ＝＜％＝　

ｒｓ（”ＩＤ“）％＞“ｏｎＣｌｉｃｋ＝”ｒｅｔｕｒｎ　ｃｏｎｆｉｒｍ（　您确定要删除该条记录　

’＞删除＜／ａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜％　

指针后移一条记录　

ｒｓ．ＭｏｖｅＮｅｘｔ　

ｉｎｄｅｘ＝ｉｎｄｅｘ＋１　

Ｌｏｏｐ　

％＞　

６－２单选题页面　

“

ｒａｄｉｏ．ａｓｐ”页面内显示了所有已录入的　选题信息，包　

含了题号、题目内容、题目答案以及单个题日的分值，歼提供　

了添加、修改和删除单选题的功能。如图３所示。　

’　

一　…　…　

ｌｌ＿　≤　攀　

．　

ａａ　

－　；　

ｌ。　

．　

ｌ篱越　蒜赫蝣｜　Ｉ　

Ｌ　趣　螂ｋ　

－　　ｂＡ｝　；　ｂ　

，　

…　１＊　

－　

｜　ｒ‰　

　。４　ｔ　

ｂ　＇　｜。　

ｍ　ｎ　ｌ　

。　＂　“　啦　

ｌ　…　日　

｛　稀　ｄ　

图３单选题页面　

６－２．１添加单选题　

在“ａｄｄＲａｄｉｏ．ａｓｐ”贝面巾．输入题目信息以及选项内容，　

选题好正确答案的所在选项以及试题所占的分值，点　【　“添　

加”按钮后将转至“ｉｎｓＲａｄｉｏ．ａｓｐ”的处理页面。添加单选题贞　

面如图４所示。　

其中“ｉｎｓＲａｄｉｏ．ａｓｐ”处理页面的主要代码如下：　

＜！－－＃ｉｎｃｌｕｄｅ　ｆｉｌｅ＝　ｃｏｎｎ．ａｓｐＩｌｍｍ＞　

……　

Ｈ盯ＷＯＲＫ＆ＣＯＭＭＵＮＩＣ盯ＩＯＮ一…　…………　－…　……一……………一……　…　…　…一　…　…　……　

＜％　

Ｉｆ　Ｒｅｑｕｅｓｔ．ｆｏｒｍ（。＇ｔｘｔＴｉｔｌｅ＇。）＜＞”　＇Ｔｈｅｎ　

ｓｑｌ＝　＇ｉｎｓｅｒｔ　ｉｎｔｏ　ｔｂＴｅｓｔ　ＩＴｅｓｔＴｉｔｌｅ，ＴｅｓｔＴｙｐｅ，ＴｅｓｔＳｃｏｒｅ，Ａ，　

Ｂ，Ｃ，Ｄ，Ａｎｓｗｅｒ）ｖａｌｕｅｓ（　＇＆Ｒｅｑｕｅｓｔ．ｆｏｒｍ（　ｔｘｔＴｉｔｌｅ＇’）８￡ｌ　『，　１　，　＆Ｒｅ　

ｑｕｅｓｔ．ｆｏｒｍ《’＇ｓｋＳｃｏｒｅ＇‘）＆“　，　＇＆Ｒｅｑｕｅｓｔ．ｆ０ｒｍ（”ｔｘｔＡ“）＆”　，　＆Ｒｅｑｕｅ　

ｓｔ．ｆｏｒｍ（　ｔｘｔＢ”）＆　，　＇＆Ｒｅｑｕｅｓｔｆｏｒｍ（‘＇ｔｘｔＣ”）＆”，　＆Ｒｅｑｕｅｓｔ．ｆｏｒｍＣ“　

ｔｘｔＤ”）＆”　，　＇＆Ｒｅｑｕｅｓｔ．ｆｏｒｍ（‘＇ｒｄｏＡｎｓ”）＆”）“　

ｃｏｎｎ．Ｅｘｅｃｕｔｅ（ｓｑ１）　

更新成功，跳转至单选题信息页面　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（＇‘＜ｓｃｒｉｌｏｔ＞ａｌｅｒｔ（　单选题信息添加成功ｌ　

ｌｏｃａｔｉｏｎ＝（＂ｒａｄｉｏ　ａｓｐ　）＜／ｓｃｒｉｐｔ＞”）　

Ｅｌｓｅ　

返回　

ｒｅｓｐｏｎｓｅ．ＷｒｉｔｅＣ“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　题目信息不能为空！，）　：

Ｉｏｃａｔｉｏｎ＝（　＇ａｄｄＲａｄｉｏ．ａｓｐ　）＜／ｓｃｒｉｐｔ＞“）　

Ｅｎｄ　ｉｆ　

％＞　

图４添加单选题　

６＿２．２修改单选题信息　

“

ｍｏｄｉｆｙＲａｄｉｏ．ａｓｐ”页面实现了单选题信息的读取以及修改　

的功能。管理员在单选题页面点击修改进入页面后，修改页面　

内显示了所选试题的信息，包括题目、选项内容以及正确答　

案，根据数据库中所存答案信息，判定答案Ａ、Ｂ、Ｃ、Ｄ　４个　

单选按钮应选中哪一个。核心代码如下：　

＜％　

ＩＤ＝Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（”ＩＤ“）　

ｓｑｌ＝　＇ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＩＤ＝“＆ＩＤ　

Ｄｊｍ　ｒｓ　

Ｓｅｔ　ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（＇Ａ＇ＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ＂）　

ｒｓ．Ｏｐｅｎ　ｓｑｌ，ｃｏｎｎ，１，２　

％＞　

＜ｆｏｒｍ　ｍｅｔｈｏｄ＝”ｐｏｓｔ＇‘ａｃｔｉｏｎ＝“ｕｐ￣Ｒａｄｉｏ．ａｓＤ？ｌＤ：＜％＝ｒｓ（“ＩＤ“）％　

＞”＞　

＜ｔａｂｌｅ　ａｌｉｇｎ＝“￣ｅｎｔｅｒ＇　ｂｏｒｄｅｒ＝“Ｏ　ｗｉｄｔｈ＝　６０％“＞　

＜ｂｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝“＇ｔｏｐ”＞题目：＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝“ｔｘｔＴｉｔｌｅ“ｒｏｗｓ：“ｄ”　

ｃｏｌｓ＝”４０“＞＜％＝ｒｓ（“ＴｅｓｔＴｉｔｌｅ＇＇）％＞＜／ｔｅｘｔａｒｅａｂ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝“＇ｔｏｐ”＞Ａ．＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝＂ｔｘｔＡ“ｒｏｗｓ＝“３”ｃｏｌｓ＝“　

４０＇。＞＜％＝ｒｓ（”Ａ”）％＞＜，ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝”＇ｔｏｐ“＞Ｂ．＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝＂ｔｘｔＢ”　ｒｏｗｓ＝　３“ｃｏｌｓ＝“　

４０＂。＞＜％＝ｒｓ（”Ｂ“ｌ％＞＜，ｔｅｘｔａｒｅａ＞＜，ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝”＇ｔｏｐ“＞Ｃ．＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝”ｔｘｔＣ　

ｒｏｗｓ：“３“ｃｏｌｓ：“　

４０＇　＞＜％＝ｒｓ（＿ＩＣ”）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝”＇ｔｏｐ“＞Ｄ．＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ：＂ｔｘｔＤ‘　‘

ｒｏｗｓ＝”３”ｃｏｌｓ＝“　

４０＇‘＞＜％＝ｒｓ（”Ｄ”）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ＞＜ｂｒ＞答案：＜／ｔｄ＞　

＜ｔｄ＞＜ｂｒ＞　

＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｒａｄｉｏ＇。ｎａｍｅ＝”　

ｒｄｏＡｎｓ”ｖａｌｕｅ＝”Ａ“＜％Ｉｆ　ｒｓ（”Ａ　，ｒｎｓｗｅｒ“）＝”Ａ“ｔｈｅｎ％＞　

ｃｈｅｃｋｅｄ＜％Ｅｎｄ’ｉｆ％＞＞Ａ　

＜ｉｎｐｕｔ　ｔｙｐｅ＝’　ｒａｄｉ＂ｏ’ｎａｍｅ＝。’　

ｒｄｏＡｎｓ“ｖａｌｕｅ＝“Ｂ“＜％ｌｆ　ｒｓ　（　Ａｉ，ｎｓｗｅｒ”）＝”Ｂ”ｔｈｅｎ％＞　

ｃｈｅｃｋｅｄ＜％Ｅｎｄ　ｉｆ％＞＞Ｂ　

＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｒａｄｉｏ＇。ｎａｍｅ＝”　

ｒｄｏＡ￣ｎｓ　ｖａｌｕｅ＝”Ｃ“＜％Ｉｆ　ｒｓ（“Ａｉ，ｎｓｗｅｒ“）＝”Ｃ“ｔｈｅｎ％＞　

ｃｈｅｃｋｅｄ＜％Ｅｎｄ　ｉｆ％＞＞Ｃ　

＜ｉｎｐｕｔ　ｔｙｐｅ　“ｒａｄｉｏ＇　ｎａｍｅ＝“　

ｒｄｏＡｎｓ“ｖａｌｕｅ＝“Ｄ”＜％Ｉｆ　ｒｓ（”Ａ，ｎｓｗｅｒ＂）＝“Ｄ　ｔｈｅｎ％＞　

ｃｈｅｃｋｅｄ＜％Ｅｎｄ　ｉｆ％＞＞Ｄ　

＆ｎｂ￣ｓｐ；＆ｎｂｓｐ；分值：＜ｓｅｌｅｃｔ　ｓｉｚｅ＝”１”ｎａｍｅ＝”ｓｌｔＳｃｏｒｅ“＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝”１“＜％Ｉｆ　ｒｓ（“＇ＴｅｓｔＳｃｏｒｅ“）＝“１“ｔｈｅｎ％＞　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞１分＜／Ｏｐｔｉｏｎ＞　

＜ＯＤｔｉ０ｎ　ｖａｌｕｅ＝“２“＜％ｌｆ　ｒｓ（　＇ＴｅｓｔＳｃｏｒｅ＂）＝”２“ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｊｆ％＞＞２分＜，Ｃ，ｌｏｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝”３“＜％Ｉｆ　ｒｓ（‘＇ＴｅｓｔＳｃｏｒｅ＂　ｌ－”３”ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞３分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“４　＜％ｌｆ　ｒｓ（“Ｔｅ￣ｓｔＳｃｏｒｅ”）＝“４”ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞４分＜／ｏｐｔｉｏｎ￣　

＜Ｏｐｔｉｏｎ　ｖａｌｕｅ＝”５”＜％ｌｆ　ｒｓ（　＇ＴｅｓｔＳｃｏｒｅ“）＝　５“ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞５分＜／ｏｐｔｉｏｎ￣　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“６“＜％Ｉｆ　ｒｓ（　＇ＴｅｓｔＳｃｏｒｅ”）：”６“ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞６分＜／ｏ　Ｄ１：ｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝　８”＜％ｌｆ　ｒｓ（＇ＴｅｓｔＳｃｏｒｅ＂）＝”８　ｔｈｅｎ％　

＞ｓｅｌｅｃｔ，ｅｄ＜％Ｅｎｄ　ｊｆ％＞＞８分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉＯｎ　ｖａ］ｌｆｕｅ＝“１　Ｏ”＜％ｌｆ　ｒｓ（’＇ＴｅｓｔＳｃｏｒｅ”）＝　１　０”ｔｈｅｎ％＞　

鳓　

０　

实用第　

智慧密集　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞１０分＜／ｃＩｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝”１　５“＜％Ｉｆ　ｒｓ（“ＴｅｓｔＳｃｏｒｅ　）＝“１　５”　

ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ＿ｆ％＞＞１　５分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ：“２０”＜％ｌｆ　ｒｓ（”ＴｅｓｔＳｃｏｒｅ”）：“２０”　

ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ＿ｆ％＞＞２０分＜／ｏｐｔｉｏｎ＞　

＜，ｔｄ＞　

＜Ｉｔｒ＞　

＜ｔｒ＞　

＜ｔｄ＞＆ｎｂｓｐ；＜／ｔｄ＞　

＜ｔｄ＞＜ｂｒ＞＆ｎｂｓｐ；＜ｉｎｐｕｔ　ｔｙｐｅ：“ｓｕｂｍｉｔ”ｎａｍｅ＝“　

ｂｔｎＳｕｂｍｉｔ”ｖａｌｕｅ＝“保存“ｓｔｙｌｅ＝”ｗｉｄｔｈ：５Ｏｐｘ；ｈｅｉｇｈｔ：２５ｐｘ　＞　

＆ｎｂｓｐ；＜ａ　ｈｒｅｆ＝“ｒａｄｉｏ．ａｓｐ　＞返回＜／ａ＞＜ｔｄ＞　

＜／ｔａｂｌｅ＞　

＜／ｆｏｒｍ＞　

６．３多选题页面　

“

ｃｈｅｃｋ．ａｓｐ”页面内显示了所有已录入的多选题信息，包　

含了题号、题目内容、题目答案（多项，以逗号隔开）以及单　

个题目的分值，并提供了添加、修改和删除多选题的功能。如　

图５所示．　．

ｔ　

Ｉ　磊ｓ　一ｌＩ　鼍　ｌ　ｓ　

＾　－　ｔ　

。　。　

－　

｛　　。

＊＊　Ｉ　

鬻　器　诣　｛　

８　　。１　。　《　

ｍ　｛　一　＾ｌ　ｌ。　。　㈣　ｋ　

ｎｔ　ｋ＊　∞ｍ　　Ｊ

＊￡　臻　

…＾　…　　。

　ｊ…蝴　ｎ　ｈ　一　

图５多选题页面　

其中“ｍｏｄｉｆｙＣｈｅｃｋ．ａｓｐ”页面实现了多选题信息的读取和　

修改的功能。修改页面内根据数据库中所存答案信息，判定答　

案Ａ、Ｂ、Ｃ、Ｄ　４个ｃｈｅｃｋｂｏｘ中有几个是已经选择的。核心代　

码如下：　

＜％　

ＩＤ＝Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（“ＩＤ“）　

ｓｑｌ＝“ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＩＤ＝”＆ＩＤ　

Ｄｉｍ　ｒｓ　

Ｓｅｔ　ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ“）　

ｒｓ　Ｏｐｅｎ　ｓｑｌ，ｃｏｎｎ，１，２　

％＞　

＜ｆｏｒｍ　ｍｅｔｈｏｄ＝　ｐｏｓｔ”ａｃｔｉｏｎ＝”ｕｐＣｈｅｃｋ．ａｓｐ？ＩＤ＝《％＝ｒｓ　ｆＩ－　

ＩＤ”）％＞”＞　

＜ｔａｂｌｅ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ“ｂｏｒｄｅｒ＝”０”ｗｉｄｔｈ＝“６Ｏ％　＞　

＜ｂｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝“ｔｏｐ”＞题目：＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ：”ｔＸｔＴｉｔｌｅ“ｒｏｗｓ＝…４　

ＣＯＩＳ＝”４０”＞＜％＝ｒｓ（”ＴｅｓｔＴｉｔｌｅ　）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

电　品与　瓷　｜　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝“ｔｏｐ“＞Ａ．＜，ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝”ｔｘｔＡ“　ｒｏｗｓ＝“３“ｃｏｌｓ＝　’　

４０“＞＜％＝ｒｓ（”Ａ“）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｌｌｊ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｉｌｇｎ＝”ｔｏｐ“＞Ｂ＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝”ｔｘｔＢ“　

ｒｏｗｓ＝　３”ｃｏｌｓ＝“　

４０　＞＜％＝ｒｓ（”Ｂ　）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝”ｔｏｐ“＞Ｃ　＜／ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝”ｔｘｔＣ。　。

ｒｏｗｓ＝”３”ｃｏｌｓ＝。’　

４０　＞＜％：ｒｓ（”Ｃ“）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｖａｌｉｇｎ＝“ｔｏｐ　＞Ｄ．＜，ｔｄ＞　

＜ｔｄ＞＜ｔｅｘｔａｒｅａ　ｎａｍｅ＝”ｔｘｔＤ“　

ｒｏｗｓ＝…３　ｃｏｌｓ＝”　

４０”＞＜％＝ｒｓ（“Ｄ”）％＞＜／ｔｅｘｔａｒｅａ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ＞＜ｂｒ＞答案：＜／ｔｄ＞　

＜ｔｄ＞＜ｂｒ＞　

＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｃｈｅｃｋｂｏｘ”ｎａｍｅ＝　ｃｈｋＡｎｓ”ｖａｌｕｅ＝”Ａ”＜％ｌｆ　ＩｎＳｔｒ　

（１，ｒｓ（“Ａｎｓｗｅｒ“）．“Ａ”）＜＞０　ｔｈｅｎ％＞ｃｈｅｃｋｅｄ＜％Ｅｎｄ　ｉｆ％＞＞Ａ　

＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｃｈｅｃｋｂｏｘ　ｎａｍｅ＝　ｃｈｋＡｎｓ“ｖａｌｕｅ＝”Ｂ”＜％ｌｆ　ｌｎＳｔｒ　

（１，ｒｓ（“Ａｎｓｗｅｒ“），　Ｂ”）＜＞０　ｔｈｅｎ％＞ｃｈｅｃｋｅｄ＜％Ｅｎｄ　ｉｆ％＞＞Ｂ　

＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｃｈｅｃｋｂｏｘ“ｎａｍｅ＝”ｃｈｋＡｎｓ“ｖａｌｕｅ＝”Ｃ“＜％ｌｆ　ＩｎＳｔｒ　

（１，ｒｓ（“Ａｎｓｗｅｒ”），”Ｃ“）＜＞０　ｔｈｅｎ％＞ｃｈｅｃｋｅｄ＜％Ｅｎｄ　Ｉｆ％＞＞Ｃ　

＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｃｈｅｃｋｂｏｘ”ｎａｍｅ＝‘‘ｃｈｋＡｎｓ’‘ｖａｌｕｅ＝‘‘Ｄ。　‘

＜％Ｉｆ　ＩｎＳｔｒ（１．ｒｓ（”Ａｎｓｗｅｒ“），　Ｄ“）＜＞０　ｔｈｅｎ％＞ｃｈｅｃｋｅｄ＜％Ｅｎｄ　

ｌｆ％＞＞Ｄ　

＆ｎｂｓｐ；＆ｎｂｓｐ；分值：＜ｓｅｌｅｃｔ　ｎａｍｅ＝”ｓｌｔＳｃｏｒｅ”＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“　＜％Ｉｆ　ｒｓ（”ＴｅｓｔＳｃｏｒｅ　）＝“１”ｔｈｅｎ％＞　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　Ｉｆ％＞＞１分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝…２＜％ｌｆ　ｒｓ（”ＴｅｓｔＳｃｏｒｅ“）＝…２　ｔｈｅｎ％＞　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞２分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“３“＜％Ｉｆ　ｒｓ（“ＴｅｓｔＳｃｏｒｅ”）：　３“ｔｈｅｎ％＞　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ．ｆ％＞＞３分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“４”＜％Ｉｆ　ｒｓ（　ＴｅｓｔＳｃｏｒｅ”）＝…４　ｔｈｅｎ％＞　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　ｉｆ％＞＞４分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝…５＜％Ｉｆ　ｒｓ（”ＴｅｓｔＳｃｏｒｅ　）：“５”ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ．ｆ％＞＞５分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“６“＜％Ｉｆ　ｒｓ（”ＴｅｓｔＳｃｏｒｅ”）＝…６‘ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ｜ｆ％＞＞６分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“８”＜％Ｉｆ　ｒｓ（¨ＴｅｓｔＳｃｏｒｅ“）＝…８　ｔｈｅｎ％　

＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ．ｆ％＞＞８分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝”１０“＜％Ｉｆ　ｒｓ（”ＴｅｓｔＳｃｏｒｅ“）＝”１０　ｔｈｅｎ％＞　

ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ计％＞＞１Ｏ分＜／ｏｐｔｉｏｎ＞　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝“１　５”＜％Ｉｆ　ｒｓ（“ＴｅｓｔＳｃｏｒｅ“）＝”１　５　

ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ　Ｉｆ％＞＞１　５分＜／ｏｐｔｉｏｎ＞　

……　

ＨＥ咖ＲＫ＆Ｃ０ＭＭＵＮＩＣ盯ＩＯＮ……………………………………………………………………………　………　

＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝　２０”＜％｝ｆ　ｒｓ（“ＴｅｓｔＳｃｏｒｅ”）＝＂２０”　

ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％Ｅｎｄ．ｆ％＞＞２０分＜／ｃ｝ｐｔｉｏｎ＞　

＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｆ＞　

＜ｔｄ＞＆ｎｂｓｐ；＜／ｔｄ＞　

＜ｔｄ＞＜ｂｒ＞＆ｎｂｓｐ；＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｓｕｂｍｉｔ”ｎａｍｅ＝　

ｂｔｎＳｕｂｍｉｔ”ｖａｌｕｅ＝“保存　ｓｔｙｌｅ＝“ｗｉｄｔｈ：５０ｐｘ；ｈｅｉｇＩｈｔ：２５ｐｘＵ＞　

＆ｎｂｓｐ；＜ａ　ｈｒｅｆ＝“ｃｈｅｃｋ．ａｓＤＨ＞返回＜／ａ＞＜ｔｄ＞　

＜／ｔａｂｌｅ＞　

＜／ｆｏｒｍ＞　

６．４判断题页面　

“ｄｅｃｉｄｅ．ａｓｐ”页面显示了系统中的判断题。该部分主要编　

码思想与单选题相似。如图６所示。　

图６判断题页面　

６．５试题信息删除　

“ｄｅｌＴｅｓｔ．ａｓｐ”页面可对系统中的３类题型进行统一的删　

除，根据删除页面载人时所获取的查询参数（Ｒｅｑｕｅｓｔ．　

ＱｕｅｒｙＳｔｒｉｎｇ（”ｔｅｓｔＴｙｐｅ”））执行不同的删除操作。代码如下：　

＜！－－＃ｉｎｃｌｕｄｅ　ｆｉｌｅ＝“ｃｏｎｎ．ａｓｐ＂－－－＞　

＜％　

ＩＤ＝Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（”ＩＤ　）　

ｔｐ＝Ｒｅ￣ｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（　ｔｅｓｔＴｙｐｅ　）　

ｄｅｌｓｑｌ＝　ｄｅｌｅｔｅ　ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ｌＤ＝“＆ＩＤ　

ｃｏｎｎ．Ｅｘｅｃｕｔｅ（ｄｅｌｓｑ１）　

ｓｑｌ＝“ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ｌＤ＝　＆ＩＤ　

Ｓｅｔ　ｄｅｌｒｓ＝ｃｏｎｎ．Ｅｘｅｃｕｔｅ（ｓｑ１）　

Ｉｆ　ｄｅｌｒｓ．ｅｏｆ　Ｔｈｅｎ　

Ｉｆｔｐ＝１　ｔｈｅｎ　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　删除该试题信息成　

功！　）；ｌｏｃａｔｉｏｎ：（　ｒａｄｉｏ．ａｓｐ　）＜／ｓｃｒｉｐｔ＞”）　

Ｅｌｓｅｌｆ　ｔｐ＝２　Ｔｈｅｎ　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（”＜ＳＣｒｉｐｔ＞ａｌｅｒｔ（　删除该试题信息成　

功！　）；ｌｏｃａｔｉｏｎ＝（　ｃｈｅｃｋ，ａｓｐ，）＜／ｓｃｒｉｐｔ＞＂）　

Ｅｌｓｅ　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　删除该试题信息成　

功ｆ　）；ｌｏｃａｔｉｏｎ＝（　ｄｅｃｉｄｅ．ａｓｐ＂）＜／ｓｃｒｉｐｔ＞”）　

ｅｎｄ　Ｉｆ　

Ｅｌｓｅ　

Ｉｆ　ｔｐ＝１　ｔｈｅｎ　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（”＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　删除该试题信息失　

败Ｉ，）：ｌｏｃａｔｉｏｎ＝（　ｒａｄｉｏ．ａｓｐ３＜／ｓｃｒｉｐｔ＞“）　

Ｅｌｓｅｌｆ　ｔｐ＝２　Ｔｈｅｎ　

ｒｅｓ；ｐｏｎｓｅ．Ｗｒｉｔｅ《”＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　删除该试题信息失　

败！＂）；ｌｏｃａｔｉｏｎ＝（￣ｈｅｃｋ．ａｓｐ　＜／ｓｃｒｉｐｔ＞”）　

ＥＩｓｅ　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（　＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　删除该试题信息失　

败！　Ｉｏｃａｔｉｏｎ＝（　ｄｅｃｉｄｅ．ａｓｐ　）＜／ｓｃｒｉｐｔ＞“）　

ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

ｃｏｎｎ．ｃｌｏｓｅ　

％＞　

７学生测试页面　

学生凭学号登录后，进入“ｓｔｕｄｅｎｔ．ａｓｐ”的考试页面。在　

答题完毕并提交测试答案之后，系统转入“ｓｃｏｒｅ．ａｓｐ”页面进　

行处理，计算得分，并进行单次测试成绩的存储。对于已经进　

行过测试的同学，新的成绩将不计人数据库，以防止学生重复　

地刷新分数。　

７．１　学生测试主页面　

“

ｓｔｕｄｅｎｔ．ａｓｐ”页面显示了当前登人系统的学生学号．按照　

单选题、多选题、判断题的顺序将系统的试题分条显示．学生　

可直接进行答案的选择。如图７所示。　

图７学生测试主页面　

代码如下：　

＜｝－－＃ｉｎｃｉＵｄｅ　ｆｉｌｅ＝”ｃｏｎｎ．ａｓｐｎ　＞　

＜％　

Ｄｉｍ　ｉｎｄｅｘ　

ｉｎｄｅｘ＝　

ｓｑ！Ｒａｄｉｏ；“ｓｅｌｅｃｔ　ｆｒｏｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＴｅｓｔＴｙｐｅ＝ｌ　Ｏｒｄｅｒ　Ｂｙ　

ＩＤＡＳＣ　

ｓｑｔＣｈｅｃｋ＝＂ｓｅｌｅｃｔ　ｆｒｏｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＴｅｓｔＴｙｐｅ＝２　Ｏｒｄｅｒ　Ｂｙ　

ＩＤＡＳＣ＂　

ｓｑＩＤｅｃｉｄｅ＝＂ｓｅｌｅｃｔ　ｆｒｏｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＴｅｓｔＴｙｐｅ＝３　Ｏｒｄｅｒ　

Ｂｙ　ｆＤＡＳＣ＂　

实用第　一　

慧密集　

Ｄｉｍ　ｒｓＲａｄｉｏ，ｒｓＣｈｅｃｋ，ｒｓＤｅｃｉｄｅ　

Ｓｅｔ　ｒｓＲａｄｉｏ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ“）　

Ｓｅｔ　ｒｓＣｈｅｃｋ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ”）　

Ｓｅｔ　ｒｓＤｅｃｉｄｅ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ”）　

ｒｓＲａｄｉｏ．Ｏｐｅｎ　ｓｑＩＲａｄｉｏ，ｃｏｎｎ．１．１　

ｒｓＣｈｅｃｋ．Ｏｐｅｎ　ｓｑｌＣｈｅｃｋ，ｃｏｎｎ，１，１　

ｒｓＤｅｃｉｄｅ．Ｏｐｅｎ　ｓｑＩＤｅｃｉｄｅ，ｃｏｎｎ．１，１　

各项题目的总分　

Ｄｉｍ　ｓｕｍＲａｄｉｏ，ｓｕｍＣｈｅｃｋ，ｓｕｍＤｅｃｉｄｅ　

ｓｕｍＲａｄｉｏ＝ｃｏｎｎ．Ｅｘｅｃｕｔｅ（　ｓｅｌｅｃｔ　ｓｕｍ《ＴｅｓｔＳｃｏｒｅ）ａｓ　ｓｕｍＲ　

ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＴｅｓｔＴｙｐｅ＝１“）　

ｓｕｍＣｈｅｃｋ＝ｃｏｎｎ．Ｅｘｅｃｕｔｅ（”ｓｅｌｅｃｔ　ｓｕｍ（ＴｅｓｔＳｃｏｒｅ）ａｓ　ｓｕｍＣ　

ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＴｅｓｔＴｙｐｅ＝２”）　

ｓｕｍＤｅｃｉｄｅ＝ｃｏｎｎ　Ｅｘｅｃｕｔｅ（“ｓｅｌｅｃｔ　ｓｕｍ（ＴｅｓｔＳｃｏｒｅ）ａｓ　ｓｕｍＤ　

ｆｒＯｍ　ｔｂＴｅｓｔ　ｗｈｅｒｅ　ＴｅｓｔＴｙｐｅ＝３”）　

％＞　

＜ｈｔｍｌ＞　

＜ｂｏｄｙ＞　

＜ｆｏｒｍ　ｍｅｔｈｏｄ＝”ＰＯＳＴ　ａｃｔｉｏｎ＝　ｓｃｏｒｅ　ａｓｐ“＞　

＜ｔａｂｌｅ　ｗｉｄｔｈ＝‘　８０％”ａｌｉｇｎ＝。‘ｃｅｎｔｅｒ‘’＞　

＜ｔｒ＞　

＜ｔｄ　ｓｔｙｌｅ＝。。ｃｏｌｏｒ：＃８８８０００。　’＞＜ｆｏｎｔ　

ｓｉｚｅ＝”６”＞＜ｂｒ＞＜％＝Ｓｅｓｓｉｏｎ（“ｎａｍｅ“）％＞欢迎您！（本次测试满　

分为　＜％＝ｓｕｍＲａｄｉｏ《“ｓｕｍ　ＲｌＩ）＋ｓｕｍＣｈｅｃｋ（“ｓｕｍＣ”）＋　

ｓｕｍＤｅｃｉｄｅ（”ｓｕｍＤ”）％＞分）＜／ｔｄ＞　

＜ｔｄ　ａｌｉｇｎ＝”ｒｉｇｈｔ“ｖａｌｉｇｎ＝”ｂｏｔｔｏｍ”＞＜ｉｎｐｕｔ　

ｔｙｐｅ＝“ｓｕｂｍｉｔ“ｎａｍｅ＝“ｂｔｎＳｕｂｍｉｔ“ｖａｌｕｅ＝”交卷“Ｓｔｙｌｅ＝“ｗｉｄｔｈ：　

６０ｐ×　ｈｅｉｇｈｔ：４Ｏｐｘ　＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ＞　

＜ｔｄ　ｃｏｌｓｐａｎ＝…２＞　

＜ｈｒ＞　

＜Ｄ　ｓｔｙｌｅ＝”ｃｏｌｏｒ：＃６２２６ＣＣ“＞一、单项选　

择题（在以下题目中，每题仅有一个选项正确）（共＜％：　

ｓｕｍＲａｄｉｏ（　ｓｕｍＲ”）％＞分）　

＜％　

循环显示单选题信息　

Ｄｏ　Ｗｈｉｌｅ　Ｎｏｔ　ｒｓＲａｄｉｏ．ｅｏｆ　

％＞　

＜Ｄ＞＜％＝ｉｎｄｅｘ％＞。＜％＝ｒｓＲａｄｉｏ（”　

ＴｅｓｔＴｉｔｌｅ“）％＞（＜％＝ｒｓＲａｄｉｏ（”ＴｅｓｔＳｃｏｒｅ“）％＞分）　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝。。ｒａｄｉｏ”ｎａｍｅ＝。　。

Ａｎｓ＜％：ｉｎｄｅｘ％＞”ｖａｌｕｅ＝“Ａ”＞Ａ．＜％＝ｒｓＲａｄｉｏ（“Ａ”）％＞　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝“ｒａｄｉｏ　ｎａｍｅ＝“　

Ａｎｓ＜％＝ｉｎｄｅｘ％＞“ｖａｌｕｅ＝“Ｂ“＞Ｂ　＜％＝ｒｓＲａｄｉｏ（”Ｂ“）％＞　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｒａｄｉｏ”ｎａｍｅ＝。　‘

Ａｎｓ＜％＝ｉｎｄｅｘ％＞“ｖａｌｕｅ＝“Ｃ”＞Ｃ．＜％＝ｒｓＲａｄｉｏ（”Ｃ“）％＞　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝。。ｒａｄｉｏ”ｎａｍｅ＝”　

Ａｎｓ＜％＝ｉｎｄｅｘ％＞“ｖａｌｕｅ＝”Ｄ”＞Ｄ．＜％＝ｒｓＲａｄｉｏ（　Ｄ“）％＞　

＜ｈｒ＞　

＜％　

指针后移一条记录　

ｉｎｄｅｘ＝ｉｎｄｅｘ＋１　

ｒｓＲａｄｉｏ．ＭｏｖｅＮｅｘｔ　

Ｌｏｏｐ　

％＞　

＜ｐ　ｓｔｙｌｅ＝“ｃｏ｝ｏｒ：＃６２２６ＣＣ“＞二、多项选　

择题（在以下题目中，每题至少有两个选项正确）（共＜％＝　

ｓｕｍＣｈｅｃｋ（”ｓｕｍＣ“）％＞分）　

＜％　

循环显示单选题信息　

Ｄｏ　Ｗｈｉｌｅ　Ｎｏｔ　ｒｓＣｈｅｃｋ．ｅｏｆ　

％＞　

＜ｐ＞＜％＝ｉｎｄｅｘ％＞．＜％＝ｒｓＣｈｅｃｋ（“　

ＴｅｓｔＴｉｔｌｅ“）％＞（＜％＝ｒｓＣｈｅｃｋ（“ＴｅｓｔＳｃｏｒｅ”）％＞分）　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝。　ｃｈｅｃｋｂｏｘ“ｎａｍｅ＝‘’　

Ａｎｓ＜％＝ｉｎｄｅｘ％＞”ｖａｌｕｅ＝“Ａ”＞Ａ．＜％＝ｒｓＣｈｅｃｋ（“Ａ”）％＞　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝　ｃｈｅｃｋｂｏｘ　ｎａｍｅ＝“　

Ａｎｓ＜％＝ｉｎｄｅｘ％＞“ｖａｌｕｅ＝“Ｂ“＞Ｂ．＜％＝ｒｓＣｈｅｃｋ（”Ｂ　）％＞　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ：“ｃｈｅｃｋｂｏｘ”ｎａｍｅ＝”　

Ａｎｓ＜％＝ｉｎｄｅｘ％＞“ｖａｌｕｅ＝”Ｃ”＞Ｃ．＜％＝ｒｓＣｈｅｃｋ（“Ｃ“ｌ％＞　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｃｈｅｃｋｂｏｘ“ｎａｍｅ＝　‘　

Ａｎｓ＜％＝ｉｎｄｅｘ％＞”ｖａｌｕｅ＝“Ｄ“＞Ｄ＜％＝ｒｓＣｈｅｃｋ（”Ｄ“）％＞　

＜ｈｒ＞　

＜％　

指针后移一条记录　

ｉｎｄｅｘ＝ｉｎｄｅｘ＋１　

ｒｓＣｈｅｃｋ．ＭｏｖｅＮｅｘｔ　

Ｌｏｏｐ　

％＞　

＜ｐ　ｓｔｙｌｅ＝”ｃｏｌｏｒ：＃６２２６ＣＣ　＞三、判断题　

（判断题干信息是否正确）（共＜％＝ｓｕｍＤｅｃｉｄｅ（－．ｓｕｍＤ　）％＞　

分）　

＜％　

循环显示单选题信息　

Ｄｏ　Ｗｈｉｌｅ　Ｎｏｔ　ｒｓＤｅｃｉｄｅ．ｅｏｆ　

％＞　

＜ｐ＞＜％＝ｉｎｄｅｘ％＞．＜％＝ｒｓＤｅｃｉｄｅ（“　

ＴｅｓｔＴｉｔｌｅ“）％＞（＜％＝ｒｓＤｅｃｉｄｅ（　ＴｅｓｔＳｃｏｒｅ“）％＞分）　

＜Ｄ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝　ｒａｄｉｏ”ｎａｍｅ＝’　‘

Ａｎｓ＜％＝ｉｎｄｅｘ％＞”ｖａｌｕｅ＝“Ａ”＞Ａ，＜％＝ｒｓＤｅｃｉｄｅ（“Ａ”）％＞　

＜０＞＜ｉｎｐｕｔ　ｔｙｐｅ：“ｒａｄｉｏ“ｎａｍｅ：。　‘

Ａｎｓ＜％＝ｉｎｄｅｘ％＞”ｖａｌｕｅ＝“Ｂ”＞Ｂ。＜％＝ｒｓＤｅｃｉｄｅ（“Ｂ”）％＞　

＜ｈｒ＞　

＜％　

指针后移一条记录　

ｉｎｄｅｘ＝ｉｎｄｅｘ十１　

ｒｓＤｅｃｉｄｅ．ＭｏｖｅＮｅｘｔ　

Ｌｏｏｐ　

％＞　

＜／ｔｄ＞　

＜／ｔｒ＞　

＜／ｔａｂｌｅ＞　

＜％　

匾　

……　

ＮＥＴＷＯＲＫ＆ＣＯ啊ＭＵＮｉＣ盯ＩＯＮ　…一……………　…………………………　一　……　…………　………　

Ｃｏｒｌ『１．ＣｌＯＳｅ　

％＞　

＜／ｂｏｄｙ＞　

＜／ｈｔｍｌ＞　

７．２测试成绩统计　

“

Ｓｃｏｒｅ．ａｓｐ”对学生提交的答卷进行自动测评　

并输出测试　

得分以及答对的题目序号。如图８所示。　

图８测试结果　

主要代码如下：　

＜！－－＃ｉｎｃｌｕｄｅ　ｆｉｌｅ＝”ｃｏｎｎ　ａｓｐ“一一＞　

＜％　

ｓｑｌ＝”ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＴｅｓｔ　Ｏｒｄｅｒ　Ｂｙ　ＴｅｓｔＴｙｐｅ　ＡＳＣ。ＩＤ　ＡＳＣ“　

Ｄｉｍ　ｒｓ，ｉｎｄｅｘ，ｓｕｍ，ｔｅｓｔＴｉｍｅ，ｒｉｇＡｎｓ　

Ｓｅｔ　ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ”）　

ｒｓ．Ｏｐｅｎ　ｓｑ１　ｃｏｎｎ，１，１　

ｉｎｄｅｘ＝１　

ｓｕｍ＝０　

ｔｅｓｔＴｌｎｉｅ＝Ｄａｔｅ（１　

计算得分　

ＤＯ　Ｗｈｉｌｅ　ＮＯｔ　ｒｓ．ｅｏｆ　

Ｉｆ　Ｒｅｑｕｅｓｔ．ｆｏｒｍ（”Ａｎｓ“＆ｉｎｄｅｘ）＝ｒｓ（“Ａｎｓｗｅｒ“）Ｔｈｅｎ　

回答正确，分数累加　

ｓｕｍ＝ｓｕｍ＋ｒｓ（”ＴｅｓｔＳｃｏｒｅ”）　

ｒｉｇＡｎｓ＝ｒｉｇＡｎｓ＆＂　＆ｉｎｄｅｘ　

Ｅｎｄ－ｆ　

ｒｓ．ＭｏｗｅＮｅｘｔ　

ｉｎｄｅｘ：ｉｎｄｅｘ十１　

Ｌｏｏｐ　

记录考试成绩到数据库中　

ｓｑｌＥｘｉｓｔ＝　ｓｅｌｅｃｔ　ｆｒＯｍ　ｔｂＳｃｏｒｅ　ｗｈｅｒｅ　ＳｔｕｌＤ＝　‘＆Ｓｅｓｓｉｏｎ｛ｔｌ　

ｎａｍｅ“）＆　”　

Ｓｅｔ　ｒｓＥｘｉｓｔ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（　ＡＤＯＤＢ　Ｒｅｃｏｒｄｓｅｔ　】　

ｒｓＥｘｉｓｔ．Ｏｐｅｎ　ｓｑｌＥｘｉｓｔ，ｃｏｎｎ，１，１　

Ｉｆ　ｒｓＥｘｉｓｔ．ｅｏｆ　Ｔｈｅｎ　

数据库中不存在当前学生的考试记录　

ｉｎｓＳｑＩ＝”ｉｎｓｅｒｔ｛ｎｔｏ　ｔｂＳｃｏｒｅ（ＳｔｕｌＤ，Ｓｃｏｒｅ，ＴｅｓｔＤａｔｅ）　

ｖａｌｕｅｓ（　＆Ｓｅｓｓｉｏｎ（”ｎａｍｅ”）＆　，　＆ｓｕｍ＆”　，　‘＆ｔｅｓｔＴｉｍｅ＆＂　）ｌ　Ｉ

ｃｏｎｎ．Ｅ×ｅｃｕｔｅ（ｊｎｓＳｑＩ）　

Ｅｌｓｅ　

Ｒｅｓｐｏｎｓｅ　ｗｒｉｔｅ　＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（　您的测试记录已存在，本　

次记录将不保存！　）＜／ｓｃｒｉｐｔ＞”　

Ｅｎｄ　Ｉ｛　

％＞　

＜ｈｔｍｌ＞　

＜ｂｏｄｙ＞　

＜ｈｌ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ　＞＜ｂｒ＞＜ｆｏｎｔ　ｓｔｙｌｅ＝　ｃｏｌｏｒ：＃６２２６ＣＣ“＞＜％＝　

％

＞＜ｆｏｎ　ｔ　试　

。　

＜Ｄ＞答对的题号为：＜％＝ｒｉｇＡｎｓ％　

＜ｐ＞＜ａ　ｈｒｅｆ＝”ｉｎｄｅｘ．ａｓｐ“＞返回登录页＜，ａ＞　

＜／ｂｏｄｙ＞　

＜／ｈｔｍｌ＞　

８　结语　

文中所述的在线考试系统使用Ａｃｃｅｓｓ作为后台数据库，　

使用ＡＳＰ技术实现了试题的管理与试卷的自动评阅等功能。　

本系统满足普通测试的需要，可直接投入教学使用。对于需要　

加入主观题的测试需求来说，可在数据库中先存储学生主观题　

答题信息．然后让教师在管理页面中进行评阅以及评分即可实　

现全网络模式的考试与阅卷工作。　

参考文献　

［１】尚俊杰．网络程序设计（第３版）．北京：清华大学出版　

社，２００８．　

【２】郭常圳．ＡＳＰ网络开发例学与实践．北京：清华大学出　

版社．２００５．　

（收稿日期：２０１２—０４—２５）　

可以在数据传输及操作的过程中对代码进行加密．同时　

将加密后的代码传输至相应的接收者。使用ＣｏｄｅＭｅｔｅｒ　

技术对自动化软件进行加密，相应地．只有通过对应的　

许可才可对软件进行解密，从而对自动化软件实施保护。　

ＣｏｄｅＭｅｔｅｒ软件保护产品支持多种接口类型．软件生产　

商可根据其机器、设备的接口类型，选择相应的软件保　

护产品，如带有ＵＳＢ接口的ＣｍＤｏｎｇｌｅ、针对ＳＤ卡，　

迷你ＳＤ卡或者ＣＦ接口的ＣｍＣａｒｄ。将许可信息存入智　

能卡芯片当中　

籀　齄螭醺２缓０　１２　．１翠３　：：、　

Ｒ

Ｉ＇　

＃