您现在的位置是：&>&&>& &
用ASP开发试题库与在线考试系统(6)
& 　　基本算法：{定义参数，获得整套试卷的共同限制参数，即包括输入必要条件得到必要参数和 输入任选条件得到任选参数}必要参数组合= A1 AND A2 ~~AND An；任选参数组合= B1 OR B2 ~~OR Bn；大题数dts =3 '默认为3道大题；小题数xts=0 '默认为50道小题；IF 无判断题 THEN dts=dts - 1 END IF '开始计算大题数IF 无单选题 THEN dts=dts - 1 END IFIF 无多选题 THEN dts=dts - 1 END IF 　　开始扫描相应科目的试题库，获得临时所有符合条件的试题预览，接着开始手工细选试题以生成试卷或计算机自动组卷。IF 符合必要参数组合 THEN　SELCECT 任选参数　　B1：显示符合必要参数+B1的试题编号及内容　　B2：显示符合必要参数+B2的试题编号及内容　　　　┋ ┋ ┋　　Bn：显示符合必要参数+Bn的试题编号及内容　END SELCECTEND IFIF dts＞= 1 THEN　IF 试题编号合法THEN xts=xts + 1　ELSE 请输入合法的试题编号！　END IF　IF dts＞xts THEN xts必须大于或等于dts！　ELSE 　　IF 某已存在的题型中小题数为0 THEN 该题型至少要有1道试题！　　END IF 　END IF　IF 判断题存在且分数＜= 0 OR分数＞100 THEN 请修改！　ELSE TOTALFEN= TOTALFEN +PDTF　END IF　IF 单选题存在且分数＜= 0 OR分数＞100 THEN 请修改！　ELSE TOTALFEN= TOTALFEN +DXTF　END IF　IF 多选题存在且分数＜= 0 OR分数＞100 THEN 请修改！　ELSE TOTALFEN= TOTALFEN +TSTF　END IF　IF TOTALFEN ＜= 0 OR TOTALFEN ＞ 100 THEN　　总分在1---100分之内！　END IFELSE 试卷大题数不得为0！　IF testtime＜= 0 OR testtime＞= 4 (hour) THEN　　考试时间必须满足0 ＜testtime＜ 4 (hour)！　END IFEND IF IF所有数据均合法 THEN 则将该试卷的相关信息存盘 END IF 　　主要有下面两个子模块：　　其一：手工组卷模块　　用户提交相关限制条件，由系统根据这些条件先从大的范围内调出试题，稍后再手工通过复选按钮细选以生成自己所需的试卷，即利用现有的试题库，可编制出多份试卷。在组卷时，可以对所选的每一试题进行增删，顺序进行调整，并可自行规定各大（小）题分数和试卷的考试时间（默认值前已述及）。总之，能作出用户完全满意的试卷，以供在线考试或测试使用。　　其好处关键在于---选题随机性强、成卷速度较快、试卷质量高；知识考核点分布均匀，且内容覆盖面容易控制。例如，期中考试时，只考前一半内容时，只要选取章节码小于或等于某个指定的值，则一定不会出现后一半内容的试题。　　其二：计算机自动卷模块　　完全由系统自动按照&易-中-难&顺序和根据用户选择的信息，灵活、随机的抽取试题库中的各类试题组成试卷，试卷内容会随着库中试题的改变而改变，试卷库中没有保存试卷的基本信息及相应的试题编号，不妨称之为活动的互动的试卷。不过，其试卷质量不高，难易程度把握不当，知识考核点分布不均，一般只作在线练习使用。　　4．3．4、进入在线考场模块　　进入在线考场是本系统非常重要的部分之一。因为一个系统如果涉及到现实的话，就必须考虑得十分周到、完善。考生登录后，只要输入已编辑好的试卷编号，就可以调出其试卷进行在线考试或测试，其答题信息通过单、复选按钮选择答案来反映。为了防止考生多次提交试卷和规范考场纪律，采取自愿交卷和到了规定的时间自动收卷两者有机结合的方式、限制考试时间和期限以及禁用鼠标等办法予以实现。但真正的无人监视的考试好象不能用软件实现，而且其安全性在系统设计中也很重要。因此，在设计过程中注意了以下几个问题：　　1、只有考生自己才能参加考试！2、考试时间到了将自动交卷！　　3、限制提交次数，暂只提供一次机会！4、禁止用户联网作弊！上图为此模块程序设计详细流程图　　4．3．5、在线练习模块　　计算机自动组卷模块组成的互动的试卷（卷库中没有保存此类试卷的任何信息！）是通过单复选按钮来反映用户的做题信息。它主要用于平时的在线练习等，让用户了解自身的不足，并有针对性地进行复习和训练。因此，用户做完后，只要点击&查看答案&，就可以与相应试题的标准答案对比，以便及时反馈情况，而没有提供成绩判定与分析和时间限制等。　　4．3．6、成绩分析与试卷评估模块　　考生每参加一次考试，系统根据已有的标准答案很快得出其分数，再根据不同的分数段给出相异的评语。一方面与其它同科考生进行横向对比，得出各个考生之间的差别；另一方面，也通过用户一段时期内参加同科考试的成绩来做纵向比较，用以说明其掌握该科目内容的实际程度，以便做出相应的决定。另外，管理员先给出一套完整试卷的预先评估，然后由系统自动根据同一试卷编号的所有用户成绩给出其实际的评估，并且都有一个难度
(责任编辑：下载王小编)
常用电脑软件下载
&2016 下载王软件教程学院 &
电子邮箱：当前位置：>>>>>>
编程开发ASP复习备考：ASP编程练习试题及答案
日期:作者：考试资料网阅读次数：63次
1练习试题答案2练习试题答案3练习试题答案4练习试题答案5练习试题答案6练习试题答案7练习试题答案8练习试题答案9练习试题答案10练习试题答案
二．填空题（每空1分，共15分） 1．&ASP的英文全称是__Active&Server&Page___。 2．6个内置ASP对象是_____Response&__、__Request&__、__Application&__、___Session&__、__Server&__、_ObjectContext&__。 3．Request对象的__BinaryRead()&_____集合可获取使用POST方法提交数据的表单中的表单元素值。 4．如果不想使用ASP的输出缓存，可以设置Response对象的____expires&____属性为False。 5．数据库最常用的四大基本操作：SELECT、__UPDATE&__、_INSERT&__和DELETE。 6．Application对象中的_____Lock()&____方法用于防止其他用户访问这些变量。 7．Session对象的___SessionID&___属性是只读属性，其中包含了唯一的用户会话标识符。 8．使用Connection对象BeginTrans方法、__committrans&__方法和___rollbacktrans&__方法管理事务。2
11．ASP可以通过一组称为ADO的对象模块来访问数据库。（&√&） 12．ADO对象模块只能访问Microsoft&Access和SQL&Server数据库。（&×&） 13．Access数据库可能由一个或多个表所构成。（&√&） 14．可以使用ADO中记录集对象的MaxRecords属性或SQL中的TOP关键字限制返回的记录数。（×&&） 15．我们可以在“数据源（ODBC）”中创建Access和SQL&Server的系统DSN。（&√&）3
6．在VBScript除非调用子程序，否则子程序不会自动执行。（&√&） 7．JavaScript中的prompt可以用来接收用户的输入数据。（√&&） 8．Application对象只能记录变量、字符串、日期等简单的数据类型。（&×&） 9．Session对象记录的是所有浏览器端共享的变量，而Application对象记录的则是个别浏览器端专用的变量。（&×&） 10．Global.asa文件应该和调用它的网页放在相同的文件夹中。（√&&）4
二．判断题（每空1分，共15分，请打√或×） 1．由于Netscape浏览器不支持VBScript，因此，我们不能使用Netscape浏览器来浏览用VBScript编写而成的ASP网页。（&×&） 2．浏览者只要从浏览器的菜单栏选取“查看/源文件”，就可以看到我们辛苦编写出来的ASP程序代码。（&×&） 3．ASP程序代码中的&%&Option&Explicit%&表示所使用的变量皆无需声明。（&×&） 4．VBScript的注释符号为“//”。（&√&） 5．在VBScript中，while是指条件为假就执行循环，until是条件为真则执行循环。（&×&）5
26．用来读取、插入、删除或更新表记录的是哪个ADO对象。（&B&） A．Command&&B．Recrodset&&C．Connection&&D．Field
27．若要移动到表的最后一条记录，可以使用哪个方法。（&C&） A．MoveMax&&B．MoveEnd&&C．MoveLast&&D．MoveOver
28．语句rs.Fields.Count&返回的值是____B_______。 A.&记录集的行数&&&&&&B.&记录集的列数&&&&C.&记录集的行数+1&&&&&&D.&记录集的列数-1
29．下列哪一个代表记录集的最后一条记录之后的位置。（&A&） A．EOF&&B．FOF&&C．BOF&&D．ROF
30．如果想让若干条SQL语句要么全做，要么一条也不做，应该采用哪种技术。（&A&） A．事务&&B．子过程&&C．函数&&D．表单验证6
21．Server对象的Execute方法和Transfer方法的区别是____A_______。
A. 前者执行完调用网页，继续执行当前页面，后者不是。
B. 前者执行完调用网页，不再继续执行当前页面，后者不是。
C. 前者转移到调用的网页，执行新的页面，后者不是。
D. 前者转移到调用的网页，不在执行当前的页面，后者不是。
22．在建立Application对象的时候会产生哪个事件。（ A ）
A．Application_OnStart& B．Application_OnCreate
C．Application_OnBegin& D．Application_OnNew
23．若要在完成目前的网页之后便结束Session对象，可以使用哪个方法。（D& ）
A．Clear& B．End& C．Timeout& D．Abandon
24．下列语句哪一个是错误的。（ B ）
A．Cookie的优点之一是存放在浏览器端，不会占用服务器端的空间
B．服务器端文件访问即使在数据量很大时，也不会影响到访问效率
C．数据库适合记录大量数据，可做读取、插入、删除、更新与查询
D．打开不同数据库，所使用的连接字符串是不同的
25．用来打开与关闭数据库连接的是哪个ADO对象。（ C ）
A．Command& B．Recrodset& C．Connection& D．Field7
16．要设置当浏览者将焦点自表单控件上移开后要执行的Script，可使用哪个事件。 ( A& )
A.onBlur& B.onChange& C.onDisable& D.onLost
17．若要将字符串进行编码，使它不会使浏览器解释为HTML语法，可使用哪个方法。（ A ）
A．HTMLEncode& B．URLEncode& C．MapEncode& D．ASPEncode
18．若要找出父目录的实际路径，可使用下列哪种语法。（ B ）
A. Server.MapPath(“/”)& B. Server.MapPath(“./”)
C. Server.MapPath(“../”)& D. Server.MapPath(“//”)
19．下面关于VBScript的命名规则的说法不正确的是_____A______。
A. 第一个字符必须是数字或字母。& B. 长度不能超过255个字符
C. 名字不能和关键字同名&&&&&&&&& D. 在声明的时候不能声明两次
20．使用______A_____语句可以立即从Sub过程中退出。
A. Exit Sub&&&& B. Exit&&&& C. &/Sub&&&&& D. Loop8
11．下列有关单行文本框的语句哪个是错误的。（& B）
A．不能响应onFocus事件& &B．&INPUT&标记的TYPE属性须设置为TEXT
C．TAB键顺序可以是1~999的数字&& D．若要显示默认文本，可设置VALUE属性
12．我们可以使用哪个ASP对象取得表单字段的值。（& C）
A．Response& B．Session& C．Request& D．Form
13．若要将表单数据以字符串的方式附加在网址后面返回服务器端，必须将&FORM&标记的METHOD属性设置为下列哪一个。（ C ）
A．POST& B．STRING& C．GET& D．QUERY
14．下列哪一个环境变量可以返回服务器端的IP地址。（ C ）
A．Path_Info& B．Local_Addr& C．Remote_Addr& D．URL
15．若要设置下拉式菜单的各个选项，可以使用哪个标记。（ A ）
A．&OPTION&& B．&LI&& C．&SELECT&& D．&OL&9
6．若要停止ASP程序的执行并将存在缓冲区的输出送至浏览器端，可使用哪个方法。（ C ）
A．Clear& B．Flush& C．End& D．Write
7．若要将浏览器端导向至其他网页，可使用哪个方法。（ A ）
A.Redirect& B.Location& C.Flush& D.AppendToLog
8．我们可以使用哪个属性设置放进缓存区的网页逾期时间长短。（ D ）
A.CacheControl& B.Buffer& C.TimeOver& D.Expires
9．下列哪一个是Cookie的缺点。（A &）
A．造成浏览器端有潜在的安全威胁& B．Cookie文件的内容不太容易看懂
C．Cookie可以记录对象、数组等复杂的数据类型& D．Cookie会自动消失
10．下列哪种表单字段适合作为单一的选择题使用。（ C ）
A．单行文本框& B．复选框& C．单选钮& D．下拉式菜单10
一．单项选择题（每题2分，共60分）
1．若要将ASP程序代码分行，必须在换行处加上哪个符号？（ A ）。
A．_（下划线）& B．.（小数点）& C．%& D．&
2．嵌入HTML文件的ASP程序代码必须放在哪两个符号之间？（ C ）
A．&!-- --&& B．’ &‘& C．&%& %&& D．&%=& %&
3．若要将数据由服务器传送至浏览器，可以使用哪个方法。（ C）
A、Output& B、Redirect &C、Response &D、Write
4．哪个ASP对象可用来决定何时或如何将输出由服务器端传送至浏览器。（ D ）
A.Request& B.Session& C.Application& D.Response
5．哪个ASP对象可用来记录个别浏览器端专用的变量。（ B ）
A.Server& B.Session& C.Application& D.Client
1ASP编程练习试题及答案10
二．填空题（每空1分，共15分） 1．&ASP的英文全称是__Active&Server&Page___。 2．6个内置ASP对象是_____Response&__、__Request&__、__Application&__、___Session&__、__Server&__、_ObjectContext&__。 3．Request对象的__BinaryRead()&_____集合可获取使用POST方法提交数据的表单中的表单元素值。 4．如果不想使用ASP的输出缓存，可以设置Response对象的____expires&____属性为False。 5．数据库最常用的四大基本操作：SELECT、__UPDATE&__、_INSERT&__和DELETE。 6．Application对象中的_____Lock()&____方法用于防止其他用户访问这些变量。 7．Session对象的___SessionID&___属性是只读属性，其中包含了唯一的用户会话标识符。 8．使用Connection对象BeginTrans方法、__committrans&__方法和___rollbacktrans&__方法管理事务。2ASP编程练习试题及答案9
11．ASP可以通过一组称为ADO的对象模块来访问数据库。（&√&） 12．ADO对象模块只能访问Microsoft&Access和SQL&Server数据库。（&×&） 13．Access数据库可能由一个或多个表所构成。（&√&） 14．可以使用ADO中记录集对象的MaxRecords属性或SQL中的TOP关键字限制返回的记录数。（×&&） 15．我们可以在“数据源（ODBC）”中创建Access和SQL&Server的系统DSN。（&√&）3ASP编程练习试题及答案8
6．在VBScript除非调用子程序，否则子程序不会自动执行。（&√&） 7．JavaScript中的prompt可以用来接收用户的输入数据。（√&&） 8．Application对象只能记录变量、字符串、日期等简单的数据类型。（&×&） 9．Session对象记录的是所有浏览器端共享的变量，而Application对象记录的则是个别浏览器端专用的变量。（&×&） 10．Global.asa文件应该和调用它的网页放在相同的文件夹中。（√&&）4ASP编程练习试题及答案7
二．判断题（每空1分，共15分，请打√或×） 1．由于Netscape浏览器不支持VBScript，因此，我们不能使用Netscape浏览器来浏览用VBScript编写而成的ASP网页。（&×&） 2．浏览者只要从浏览器的菜单栏选取“查看/源文件”，就可以看到我们辛苦编写出来的ASP程序代码。（&×&） 3．ASP程序代码中的&%&Option&Explicit%&表示所使用的变量皆无需声明。（&×&） 4．VBScript的注释符号为“//”。（&√&） 5．在VBScript中，while是指条件为假就执行循环，until是条件为真则执行循环。（&×&）5ASP编程练习试题及答案6
26．用来读取、插入、删除或更新表记录的是哪个ADO对象。（&B&） A．Command&&B．Recrodset&&C．Connection&&D．Field
27．若要移动到表的最后一条记录，可以使用哪个方法。（&C&） A．MoveMax&&B．MoveEnd&&C．MoveLast&&D．MoveOver
28．语句rs.Fields.Count&返回的值是____B_______。 A.&记录集的行数&&&&&&B.&记录集的列数&&&&C.&记录集的行数+1&&&&&&D.&记录集的列数-1
29．下列哪一个代表记录集的最后一条记录之后的位置。（&A&） A．EOF&&B．FOF&&C．BOF&&D．ROF
30．如果想让若干条SQL语句要么全做，要么一条也不做，应该采用哪种技术。（&A&） A．事务&&B．子过程&&C．函数&&D．表单验证6ASP编程练习试题及答案5
21．Server对象的Execute方法和Transfer方法的区别是____A_______。
A. 前者执行完调用网页，继续执行当前页面，后者不是。
B. 前者执行完调用网页，不再继续执行当前页面，后者不是。
C. 前者转移到调用的网页，执行新的页面，后者不是。
D. 前者转移到调用的网页，不在执行当前的页面，后者不是。
22．在建立Application对象的时候会产生哪个事件。（ A ）
A．Application_OnStart& B．Application_OnCreate
C．Application_OnBegin& D．Application_OnNew
23．若要在完成目前的网页之后便结束Session对象，可以使用哪个方法。（D& ）
A．Clear& B．End& C．Timeout& D．Abandon
24．下列语句哪一个是错误的。（ B ）
A．Cookie的优点之一是存放在浏览器端，不会占用服务器端的空间
B．服务器端文件访问即使在数据量很大时，也不会影响到访问效率
C．数据库适合记录大量数据，可做读取、插入、删除、更新与查询
D．打开不同数据库，所使用的连接字符串是不同的
25．用来打开与关闭数据库连接的是哪个ADO对象。（ C ）
A．Command& B．Recrodset& C．Connection& D．Field7ASP编程练习试题及答案4
16．要设置当浏览者将焦点自表单控件上移开后要执行的Script，可使用哪个事件。 ( A& )
A.onBlur& B.onChange& C.onDisable& D.onLost
17．若要将字符串进行编码，使它不会使浏览器解释为HTML语法，可使用哪个方法。（ A ）
A．HTMLEncode& B．URLEncode& C．MapEncode& D．ASPEncode
18．若要找出父目录的实际路径，可使用下列哪种语法。（ B ）
A. Server.MapPath(“/”)& B. Server.MapPath(“./”)
C. Server.MapPath(“../”)& D. Server.MapPath(“//”)
19．下面关于VBScript的命名规则的说法不正确的是_____A______。
A. 第一个字符必须是数字或字母。& B. 长度不能超过255个字符
C. 名字不能和关键字同名&&&&&&&&& D. 在声明的时候不能声明两次
20．使用______A_____语句可以立即从Sub过程中退出。
A. Exit Sub&&&& B. Exit&&&& C. &/Sub&&&&& D. Loop8ASP编程练习试题及答案3
11．下列有关单行文本框的语句哪个是错误的。（& B）
A．不能响应onFocus事件& &B．&INPUT&标记的TYPE属性须设置为TEXT
C．TAB键顺序可以是1~999的数字&& D．若要显示默认文本，可设置VALUE属性
12．我们可以使用哪个ASP对象取得表单字段的值。（& C）
A．Response& B．Session& C．Request& D．Form
13．若要将表单数据以字符串的方式附加在网址后面返回服务器端，必须将&FORM&标记的METHOD属性设置为下列哪一个。（ C ）
A．POST& B．STRING& C．GET& D．QUERY
14．下列哪一个环境变量可以返回服务器端的IP地址。（ C ）
A．Path_Info& B．Local_Addr& C．Remote_Addr& D．URL
15．若要设置下拉式菜单的各个选项，可以使用哪个标记。（ A ）
A．&OPTION&& B．&LI&& C．&SELECT&& D．&OL&9ASP编程练习试题及答案2
6．若要停止ASP程序的执行并将存在缓冲区的输出送至浏览器端，可使用哪个方法。（ C ）
A．Clear& B．Flush& C．End& D．Write
7．若要将浏览器端导向至其他网页，可使用哪个方法。（ A ）
A.Redirect& B.Location& C.Flush& D.AppendToLog
8．我们可以使用哪个属性设置放进缓存区的网页逾期时间长短。（ D ）
A.CacheControl& B.Buffer& C.TimeOver& D.Expires
9．下列哪一个是Cookie的缺点。（A &）
A．造成浏览器端有潜在的安全威胁& B．Cookie文件的内容不太容易看懂
C．Cookie可以记录对象、数组等复杂的数据类型& D．Cookie会自动消失
10．下列哪种表单字段适合作为单一的选择题使用。（ C ）
A．单行文本框& B．复选框& C．单选钮& D．下拉式菜单10ASP编程练习试题及答案1
一．单项选择题（每题2分，共60分）
1．若要将ASP程序代码分行，必须在换行处加上哪个符号？（ A ）。
A．_（下划线）& B．.（小数点）& C．%& D．&
2．嵌入HTML文件的ASP程序代码必须放在哪两个符号之间？（ C ）
A．&!-- --&& B．’ &‘& C．&%& %&& D．&%=& %&
3．若要将数据由服务器传送至浏览器，可以使用哪个方法。（ C）
A、Output& B、Redirect &C、Response &D、Write
4．哪个ASP对象可用来决定何时或如何将输出由服务器端传送至浏览器。（ D ）
A.Request& B.Session& C.Application& D.Response
5．哪个ASP对象可用来记录个别浏览器端专用的变量。（ B ）
A.Server& B.Session& C.Application& D.Client您现在的位置是：&>&&>& &
用ASP开发试题库与在线考试系统(5)
& 　　4．3．2、查询模块　　系统中的所有用户均可检索试题、试卷、用户及留言等信息。只是试题检索界面较复杂，但它已实现了多种条件的组合查询，非常适合于数量繁大的试题库。而后三者相对来说比较简单，&默认&或&空白&的情况下，则按该表中的系统默认的字段显示其全部信息。使用起来比较灵活、方便。　　4．3．3、修改模块　　用户除了只修改自己的部分资料（包括用户帐号、密码和E-Mail）外，还可修改试题及试卷，而留言则不许修改。只要用户选择科目和输入编号，即可进行修改。不过，对于各表中的主键不准修改，避免了造成系统中的数据混乱，或者覆盖其它有用数据的现象。如果用户执行了非法操作，则必须重新操作。　　4．3．4、组卷模块　　在组卷过程中，我们肯定会遇到有许多题目是关于同一个教学内容的，这里称之为关于同一考核点的试题。因此，在组装一份试卷时，对于同一考核点的试题只能出一道题。这里设计一种快速选题算法，该算法只需经一次比较，便可判定是否已选过该考核点的试题，且又可以有针对性地重点选取某个考核点的试题。即每一道题都设有一个相关码，对于同一章、同一节、同一考核点的题，则相关码相同，显然，前面章节的相关码都要小于后面章节的相关码。故在组卷时，同一试卷中不允许出现相关码相同的试题。所以，在选题过程中每选出一题，就要与已经选出的题的相关码逐一进行比较，若该题的相关码与已选各题的相关码均不相同，则可将该题加入到试卷中，否则，放弃该题，重新进行选题。　　下面，在只考虑最佳情况下，即每次选出的题都恰好是尚未选过的，每选一道题就要与已选出的各题逐一比较，假设已选出了M题，再选下一题时，则需比较M次，不妨设一份试卷的总题数为N，在最佳情况下，则总的比较次数为：　　　0，1， 2,…N-2，N-1 　　即时间复杂度为O（N），这样，就可保证下面算法中选择出来的试题编号都合法。&
(责任编辑：下载王小编)
常用电脑软件下载
&2016 下载王软件教程学院 &
电子邮箱：ASP考试复习资料_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
ASP考试复习资料
上传于||文档简介
&&ASP.NET考试复习资料,题和答案
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩4页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢用ASP开发试题库与在线考试系统(8)用ASP开发试题库与在线考试系统(8)　　七、附录：源程序列表　　由于源代码繁多，限于篇幅，无法一一列举，现只公布部分代码，具体以系统实物为准。下面是录入试题.asp文件：＜script language=&VBScript&＞＜!-- 'Written by HeKai 2001Function datacheck()'确保前台输入数据合法　dim errflag, msg　errflag = True　if Len(Trim(luru.xzsj.value)) = 0 Then　　focusto(1); errflag = msg=&请输入 '选自书籍名称'&　ElseIf Len(Trim(luru.stnr.value)) = 0 Then　　focusto(9); errflag = msg=& '试题内容' 呢&　ElseIf Len(Trim(luru.A.value)) = 0 Then　　focusto(10); errflag = msg=& '答案_A' 呢&　　　┋ ┋ ┋　ElseIf Len(Trim(luru.F.value)) = 0 Then　　focusto(15); errflag = msg=&请还原成默认值&　End if　If (errflag = false) then　　msg = msg & vbCRLF 　　MsgBox msg, 64, &提示&　　Exit Function　End if　　datacheck = luru.SubmitEnd FunctionSub focusto(x)'将鼠标定位在出错处document.luru.elements(x).focus()End Sub--＞＜/script＞ 　　以下是录入试题.inc文件：＜script Language=&VBScript& RunAt=&Server&＞　Function check_Pass()'检查库中是否已有此数据　　kmxxmc = Request.Form(&kmxxmc&)　　stbh = Request.Form(&stbh&) stnr = Request.Form(&stnr&)　　SQLstr = &select * from & & kmxxmc & & where stbh=& & &'& & stbh & &'& 　　SQLstr = SQLstr & & or tmnr=& & &'& & stnr & &'&　　set adocon=Server.CreateObject(&ADODB.Connection&)　　adocon.Open &zxtest&　　set sa1=adocon.Execute(SQLstr)　　If sa1.EOF Then 　　　check_Pass = False　　Else　　　check_Pass = True　　End If　　sa1.Close adocon.CloseEnd FunctionSub Add_Comment()'开始插入数据并显示出来　Dim kmxxmc,xzsj,tmlx,nycd,jxyq,stbh,stnr　Dim A,B,C,D,E,F,bzda,lrz,Picstr,SQLstr,lr_date,zhang,jie　kmxxmc = Request.Form(&kmxxmc&) xzsj = Request.Form(&xzsj&)　　┋ ┋ ┋　bzda = Request.Form(&bzda&) zhang = Request.form(&zhang&)　set adocon=Server.CreateObject(&ADODB.Connection&)　adocon.Open &zxtest&　SQLstr = &insert into & & kmxxmc & & (xzsj,tmlx,tmnd,jxyq,stbh,tmnr, 　bxda_a,&　SQLstr = SQLstr & &,jie,lrz) values (& & &'& & xzsj & &',& & &'& & tmlx & &',& 　　┋ ┋ ┋　SQLstr = SQLstr & &',& & &'& & date & &',& & &'& & zhang & &',& & &'& & jie & &',& SQLstr = SQLstr & &'& & lrz & &')&　set sa1 = adocon.Execute(SQLstr)　Picstr=&＜img src='/images/hekai.jpg'＞&　Response.Write &恭喜！此为＜i＞ & & lrz & &＜/i＞ 刚才录入的试题&　Response.Write Picstr & & 试题编号：& & stbh 　Response.Write &试题内容：& & stnr & &＜br＞&　Response.Write &答案_A：& & A & &＜br＞&　　┋ ┋ ┋　adocon.CloseEnd SubSub Register()　If check_Pass() Then '如果库中已有的话，则给出提示信息　　Show_Warning()　Else '否则添加进去　　Add_Comment()　End IfEnd SubSub Show_Warning()'给出提示信息的函数　Response.Write(&＜p＞&)　Response.Write(&＜center＞很抱歉＜p＞&)　Response.Write(&库中已有此试题编号或试题内容，请返回前页修改！&)　Response.Write(&＜/center＞&)　Response.Write(&Made by hekai himself in 2001&)End Sub＜/script＞此为&检索试题&的程序代码：＜script Language=&VBScript& RunAt=&Server&＞Function adjust_sql(adj_str)　'目的---转换查询字符串中的特殊字符至SQL指令　Dim final_str, i 'WRITE BY HEKAI2001　adj_str = Trim(adj_str)　final_str = && '每次从传进来的字符串中取出一个字符，并判断是否为下述三个字符之一： DOS的Filter符号&|&、左中括号&[&以及单引号&'&　If Len(adj_str) ＞ 0 Then　　For i = 1 To Len(adj_str)　　　Select Case Mid(adj_str, i, 1)　　　　　Case &[&: final_str = final_str & &[[]&　　　　　Case &|&: final_str = final_str & &[{-}]&　　　　　Case &'&: final_str = final_str & &[&-()&　　　　　Case Else: '以上皆非则什么事都不做！　　　　　final_str = final_str & Mid(adj_str, i, 1)　　　End Select　　Next　End If　adjust_sql = final_strEnd FunctionSub Output_shiti()　Dim kmxxmc,xzsj,stbh,zhang,jie,tmlx,nycd,jxyq,lrz,stnr,cond_count, Picstr　Dim SQLstr,mf,zhangfw,jiefw,stbhfw,nycdfw,lr_datefw,lr_date　'记录指定条件的栏位总数　cond_count = 10; mf = &%&　Picstr=&＜img src='/images/hk.gif'＞&　'取得表单栏位内容　kmxxmc = Request.Form(&kmxxmc&)　stbh = Request.Form(&stbh&)　　┋ ┋ ┋　stnr = Request.Form(&stnr&)　'调整SQL指令中的特定字元　kmxxmc = adjust_sql(kmxxmc)　stbh = adjust_sql(stbh)　　┋ ┋ ┋　stnr = adjust_sql(stnr)　If Len(xzsj) = 0 Then cond_count = cond_count - 1　　If Len(stbh) = 0 Then cond_count = cond_count - 1　　┋ ┋ ┋　　If Len(stnr) = 0 Then cond_count = cond_count - 1 　　　SQLstr = &select * from & & kmxxmc & & where &　　If Len(stbh) ＞ 0 Then　　　SQLstr = SQLstr & & stbh & & stbhfw & &'& & stbh & &'&　　If cond_count ＞ 1 Then　　　SQLstr = SQLstr & & and &　　　cond_count = cond_count - 1　　End If　End If　　┋ ┋ ┋　If Len(stnr) ＞ 0 Then　　SQLstr = SQLstr & & tmnr like & & &'& & mf & stnr & mf & &'&　　If cond_count ＞ 1 Then　　　SQLstr = SQLstr & & and &　　　cond_count = cond_count - 1　　End If　End If　SQLstr = SQLstr & & order by lr_date DESC &　set adocon=Server.CreateObject(&ADODB.Connection&)　adocon.Open &zxtest&　set sa1 = adocon.Execute(SQLstr)　If sa1.EOF Then　　Response.Write &＜br＞＜center＞＜h1＞&　　Response.Write &Sorry!＜p＞&　　Response.Write &没有找到试题，&　　esponse.Write &请重试一次！＜/center＞＜p＞&　　Response.Write &＜hr＞＜/h1＞&　Else　　i = 0　　Response.Write &＜h2＞&　　Response.Write &符合条件的试题相关内容如下:&　　Response.Write &＜/h2＞&　　While Not sa1.EOF　　　i = i + 1　　　Response.Write &第 ＜i＞& & i & &＜/i＞题 题编号：＜i＞& & sa1(&stbh&) & &＜/i＞＜br＞&　　　Response.Write &试题内容：& & sa1(&tmnr&) & &＜br＞&　　　　┋ ┋ ┋　　Response.Write &答案A：& & sa1(&bxda_a&) & &＜br＞&　　sa1.MoveNext　　WEnd　　adocon.Close　End IfEnd Sub＜/script＞＜% '&检索试卷&的查询方式源代码　mf=&%&　select case request(&findfs&)　　case &sjbh&　　　sqlstr=&SELECT * FROM tbsjxx WHERE & & & sjbh LIKE&　　　sqlstr=sqlstr & &'& & mf & request(&findfsz&) & mf & &'order by ksrq DESC&　　　┋ ┋ ┋　　case &lr_date&　　　sqlstr=&SELECT * FROM tbsjxx WHERE & & & lr_date LIKE&　　　sqlstr=sqlstr & &'& & mf & request(&findfsz&) & mf & &'order by ksrq DESC&　　case else　　　sqlstr=&SELECT * FROM tbsjxx order by ksrq DESC&end select %＞ 　　下面是考试的时间自动控制程序（便于演示只设了60秒钟，实际应用应以系统调出试卷的考试时间为准！）：＜SCRIPT language=JavaScript＞ ＜!-- Write by HEKAI for TestTimeContorlvar timerID =var timerRunning = falsevar stardate = new Date();var startime = gettotalsecond(stardate)var totaltime = 60;var facetime function Stepclock(){// hk made by himselfif(timerRunning) clearTimeout(timerID) timerRunning = false} function startclock(){Stepclock();showtime()} function gettotalsecond(getdate){var hours = getdate.getHours()var minutes = getdate.getMinutes();var seconds = getdate.getSeconds() var gettotalsecond = seconds + minutes * 60 + hours * 3600 return(gettotalsecond)} function showtime(){var now = new Date();var timeValue = gettotalsecond(now)document.clock.face.value = timeValue - startime facetime = document.clock.face.lasttime = totaltime - facetime document.clock.sytime.value = lasttime timerID = setTimeout(&showtime()&,1000) timerRunning = true if (lasttime == 20){for(i=1;i＜=3;i++){alert('考试时间只剩下最后20秒！')}} if (lasttime == 0){for(i=1;i＜=5;i++){alert('时间完毕！请迅速交卷！！')}} if (lasttime == -10){for(i=1;i＜=10;i++){alert('考试时间超过10秒，关闭此窗口！')}} }//--＞＜/SCRIPT＞&&　　八、后记　　此系统从研究设计到投入实际应用历时4个月之余，通过多次细致的测试及鉴定，证明系统完全具有可行性与可扩充性，就最近传来的消息，该系统获得了湖南省科技厅的普遍好评。另外，系统还有待于进一步升级，并将实现试卷的主观题部分和多媒体试卷。因此，仍有大量的工作需要开展。若有不详或不妥之处，请您以应用程序为准以及提出良好的意见与建议。&