盘数据基于单片机超声波测距

面。各种各样的学历考试、资格考试层出不穷。同时，Internet技术的发展使得考试的技术和载体发生了性的变化。Internet的开放性和分布性的特点以及基于Internet的巨大计算能力使得考Internet的考试系统正成为人们的研究热点之一。例如在英国，已经计算机应用迅猛发展，网络应用不断扩大，如教育和虚拟大学的出现等，使得基于Web的在线考试系统成为现实。基于Web的考试系统可以发挥网络的优势，建立大型、高效、共享的题库B/SBrowser/Web/DataBase3层体系结构。Browser/Server的系统中，用户可以通过浏览器。B/S结构简化了客户机的工作，客户机上只需配置Web浏览器即可。服务器将担负的工作，结果返回以及页生成等工作全部由WebServer完成Browser/Server三层体系结构下，表示层（presentatioon）、功能层（businesslogic）（dataservice）3功能，把运行结果提交给Web服务器。系统采用SQLServer2000数据库。Browser/Server1.1统B/S统B/S 统B/S SQLServer

Web应用

WindowsWeb服务Web服务

图1.2考试系统总体框架41.3 统统

图1.3type_2type_2test report学生考

图1.4管理员（教师）考试管理程序主要流程 图1.5学生考试前台管理程序流程43种类型题目。包括题目的题干、答案和加入日SQLServer2000SQLServer2000，打开企业管理器，新建一个数据库，将其命名为test。test数据库中包含的数据表及其相应功能如表1.1所示。表1.1表1.1数据

SQLServerWindows操作系统中，管理员（教师）管理员（教师）（adminpassword）两项基本信息。在已创建的SQLServer数据库test中，右击“表创建一个表，名为admin。向表中添加字段admin和adminpassword。其中，admin（）字段作为该表的主关键字（primarykey），惟一标识了一个管理员（教师）用户记录的信息。管理员（教师）信表字段表字段

学生信息表6个字段。其中，studentnumber（学生学号）1.3字段字段

（examinationid）（studentnumber）（score）日期 其中，examinationid（试卷编号）与studentnumber（学生学号）作为主关键字。pass（是否补考）默认0，makeup0，makeup（绩）04表1.4字段

和设置日期（setupdata）8个字段。其中，examinationid（试卷编号）作为主关键字。examinationid（试卷编号）标识为“是”，标识为“1”，标识增量为“1”。考试题型信息表结构如表1.5所示。字段字段

判断题信息表 标识为“1”，标识增量为“1”。判断题信息表结构如表1.6所示。字段名说字段名说明备注

4（selectid）、题目内容（question）1（result1）2（result2） 1.7字段字段 选项

选项

字字段 选项

填空题信息表（填空题编号）标识为“是”，标识为“1”，标识增量为“1”。填空题信息表结构如表1.8所示字段字段

examination表、test表、studentSQLServer1.6图1.6考试管理主窗理。单成绩理、生管、系管理实现系基本信管理试管理窗口如图1.7

图1.7考试管理主窗1.81.91.81.9保存到数据库中。添加判断题窗口如图1.10所示。图1.11所示。图图1.10

图1.11图1.12所示。

图1.12图1.14所示。填写完毕，单击“增加”按钮，保存试卷设置。1.13

1.14查找学生成绩。单击下拉菜单，选择考试批次，下方显示考生、分数、补考设置和补考成绩信息。 ，批准考生补考。成绩统计管理窗口如图1.15所示。

1.15显示学号、考生、、班号信息，以及是否删除信息，可以按照考生进行查询，单击“查找”按钮，如图1.16所示。填写账号 管理系统账号 ，如图1.17所示图1.16学生统计管理窗 图1.17系统管理窗学员窗 信息，如图1.18所示

图1.18学生窗 ，进入考试窗口界面，如图1.19所示

1.19成绩。如图1.20所示为考试窗口。图1.20IISSQLServerIISIIS是InternetInformationServer的缩写，是微软提供的Internet服务器软件，包括Web、FTP、MailWindows2000Web服务器的安装和设置方法。IISWindows2000服务器版和高级服务器版。Windows9x/MePWS（Web服务器）1个连接。WindowsXPIISIISWindowsIIS，则应手动安装。安装选择“添加或删除程序”窗口内“添加/Windows组件”选项，弹出“Windows组件向选中“Internet信息服务（IIS）”复选框，单击“下一步”按钮，执行操作。IIS安装完毕。 双击“Internet服务管理器”图标，进入“Internet单击“操作 ”命令，如图1.21所示图1.21新建虚 zxks1.22 ，如d:\software\zxks，单击“下一步”按钮，进入设置1.22图1.22设置权限窗删除映射的方法：打开“Internet信息服务”窗口，在虚拟 SQLServer打开SQLServer2000的“企业管理器”窗口。右击“数据库”分支，弹出右 ，如图1.24test图图1.231.24按照要求建好数据库后，需要建立页面与服务器的，页面名称为conn.asp。以后Setconn=Server.CreateObject("ADODB.Connection") '创建一个数据库对象conn，方便后面调用connstr="Provider=SQLOLEDB;DataSource=(local);InitialCatalog=test;UserID=sa;Password=yanyan;"'recordsetconn.Open

'用户登录页面主要是为用户提供登录的窗口，用户通过在页面内输入正确的用户名及，取得用户登录页面主要分为两个部分：顶部为“考试系统”的信息；中间左侧为用户登录框右侧为系统。它用firework创建系统文件，存为jpg 格式或gif格式，作为各动态页面顶部或页面中。主要由顶部页面（top.htm）和用户登录页面（login.asp）组成，页面如图 1.25顶部页顶部页面（top.htm）：为了使页面标准和美观，同时避免重复、节约代码，将顶部头文件制作成为模块，以后通过<!--#includefile="top.htm"-->命令直接调用。顶部页面如图1.26所示。创建新的页面，首先在页面上添加一个1×1的表格用来固定的位置，设置表格的各项属性包括边框属性、长度和宽度等，最后加入文件夹images下事先保存的。代码如下…<imgborder="0"src="images/2.gif"width="778"…注意：最好选用相对路径，这样可以防止因为文件夹位置变动而引起的路径丢失图1.26顶部页用户登录页面（login.asp）1.271.27创建新页面，在页面中添加一个1×1的表格a，在表格a内加入一个表单，给表单命名。在表单内插入一个1×3的表格b，在b的第三列单元格内加入，第二列单元格内插入一个3×5c最后在表格c内第二列单元内加入文本框两个，将按钮控件移至第二列单元格内。给两个studentpwd。pwdtypepassword设置表格、文本框的各项属性。定义“提交”按钮onclick：onclick="check()"ASPsession <%'conn.asp使用JavaScript语言，定义过程check()，判断用户名及其是否为空。为空则弹出错误“警示//使用javascript语言，创建函数check()，检测用户及是否为<scriptlanguage=javascript>functioncheck(){//如果student文本框内容为空，弹出“警示”框提醒“请输入用户名if(.form1.student.value=="returnfalse;}

//student//IE//如果pwd文本框内容为空，弹出“警示 if(.form1.pwd.value=="returnfalse;}

//pwd//IE//获取引 为ctype的值，直接给ctype赋值为}

//form1使用VBScript语言，如果用户名及不为空，查找表student，检验用户名及是否正确。代 ''ctypectypeaddsessioniftrim(request("ctype"))="add"thensession("student")=""session("classes")=""session("id")=""session("number")=""session("")=""sql="select*fromstudentwherestudentname&trim(request("student"))&andstudentpassword='"&trim(request("pwd"))&"'" 'sql语句定义查询条件set '执行sql'如果用户名或不正确，使用javascript语言,弹出“警示”ifrs.eof<script<%'使用vbscript语言，如果用户及正确，则赋值session变量、学号等信息%><scriptvarnow=new

//javascriptindex.asp//index.aspIEhistory<%endifendif%>……

<%'top.htm页面<tableborder="0"cellpadding="4"style="border-collapse:collapse"bordercolor="#111111"<td<tableborder="0"width="100%"…<formname=form1action="<inputtype="hidden"name="ctype"

<%'表格a属性<%'b属性<tableborder="0"cellpadding="5"cellspacing="0"style="border-collapse:collapse"="#111111"width="300"…

<%'表格c属性<inputtype="text"name="student"size="20"class="line"style="border-style:solid;border-px;padding:1px;…

<inputtype="password"name="pwd"size="20"class="line"style="height:22;border-style:border-width:…

<inputtype="buttonvalue="提交name="B1onclick="checkclass="linestyle="width60height22;border-style:solid;border-width:1px;background-color:#FFFFFF"><inputtype="reset"value="重置"name="B2"class="line"style="width:60;height:22;border-style:solid;border-width:1px;background-color:#FFFFFF"></td> <%'“提交”、“重置”按钮属性%>…<td><ahref="register.asp">新学生</a></td><%'单击“新学生”进入新学生页面……<td><imgborder="0"src="images/login.jpg"width="299"height="289"></td><%'位置… 顶部页顶部页面（top2.htm）与top的目的及做法类似，以后可以通过<!--#includefile="top2.htm"--1.28图1.28顶部页top.htmsrc=images/2.jpg"srcimages/7.jpg"用户页用户页面（register.asp）是一个静态页面。它的主要功能是新的学生用户，并对数据库进行更新，如图1.29所示。图1.29用户页1×1aa内加入一个表单，给表单命名。在表单内插入一个6×3的表格b，在单元格内添加文本框及文本，将按钮控件移至第二列单元格内。设用户页面ASP代用户页面ASP判断用户名是否输入完全；判断加入的学生是否已经过，避免重复 <%'conn.asp页面连接数据库JavaScriptcheck()<scriptlanguage=javascript>functioncheck(){if(.form1.student.value=="return}if(.form1.pwd.value=="returnfalse;}if(.form1.classes.value=="return}if(.form1.number.value=="return}

//判断学 //IE //IE//IE//避免提交失败，防止 //获取引 为ctype的值，直接给ctype赋值为 //form1}使用VBScript语言判断学生学号是否存在。如果存在，则使用JavaScript语言，弹出“警示”'ctypectypeadd，查询此学号的学生是否存在iftrim(request("ctype"))="add"thensqlfind="select*fromstudentwherestudentnumber&trim(request("number"))&sqlset '执行sqlifnotrsfind.eof 'student<script //javascriptVBScriptstudentJavaScript语言弹出“警示”框，进入用户登录login.asp页面。代码如下：sqlin="insertintostudent(studentname,studentpassword, ,class,studentnumber)values('"&trim(request("student"))&&trim(request("pwd"))&&trim(request(" "))&"','"&trim(request("classes"))&"','"&trim(request("number"))&"')" 'sql语言的插入语句在student表中插入新的学生信息数据set '执行sql'执行成功弹出“警示”框，进入用户登录login.asp页面<script

//javascriptendifendif… <%'top2.htm页面…<formname=form1action=""><%'表单属性设置<inputtype="hidden"…<inputtype="text"name="student"size="20"style="height:22;border-style:solid;border-1px"<tdwidth="200*必填…<selectname=""size="1"style="border:1pxsolid#000000"…<inputtype="password"name="pwd"size="20"style="height:22;border:1pxsolid#000000"<td 6位…<input name="classes" style="height: border: … …<inputtype="buttonvalue="提交name="B1onclick="checkstyle="height22width60;border-style:solid;border-width:1px;background-color:#FFFFFF"class="line"><inputtype="resetvalue="重置name="B2style="width60height22border-styleborder-width1pxbackground-colorFFFFFF"></td><%'按钮属性设置…1.30图1.30管理员登录页3×2的表格。在表格内插入文字ASP管理员页面通过ASP代码判断账号及是否填写，填写是否正确。若填写正确，则将用户信session <%'conn.asp页面连接数据库使用JavaScript语言，创建check()函数，判断账号及是否填写。代码如下<scriptlanguage=javascript>functioncheck(){if =="") //id{alert("请输入账号 //弹出“警示” //idreturn //IEif ="") //pwd{alert("请输入 //弹出“警示” //pwdreturn //IE.form1.ctype.value="types";//获取引藏为ctype的值，直接给ctype赋值为 //form1}VBScriptsession变量，进入管理员界面首页admin.asp页面。代码如下：ifrequest("ctype")="types"sqlfind="select*fromadminwhereadmin=&trim(request("id"))&andadminpassword=&trim(request("pwd"))&"'" 'sql语言的查询语句查询表adminsetrs=conn.execute '执行sqladminadmin.aspifrs.eof<scriptlanguage=javascript> //使用javascript语言

'保存登录用户<script 'admin.asp<%endif…<formname=form1action <inputtype=hiddenname=ctype…<inputtype="text"name="id"size="20"style="height:22;border-style:solid;border-……

<inputtype="text"name="pwd"size="20"style="height:22;border-style:solid;border-<inputtype="buttonvalue="提交"name="B1onclick="checkstyle="width60height22border-style:solid;border-width:1px;background-color:#FFFFFF"><inputtype="resetvalue=""name="B2style="width60height22border-styleborder-width1pxbackground-color ……<%endif管理员界面首页由3个页面组成：欢迎页面（ 查用户名页面制作成为模块，以后通过<!--#includefile="check.asp"-->命令直接调用。页面代码如下：<%'vbscriptiftrim(session("adminid 'sessionadminid<script //javascript<%endif 或。此处可以根据个人喜好及风格等随意制作，本系统中采用简单文本样式。首先创建新页面，在页面中插入一个1×1的表格，设定表格属性。然后在表格内插入文字。欢迎页面如图1.31所示。图1.31…<tableborder="0"cellpadding="10"cellspacing="0"style="border-collapse:collapse"width="500height="100"><%'表格属性<tdalign="center">欢迎进入考试管理系统</td><%'插入的文字…管理界面首页（admin.asp）管理程序全部在此页面上运行。它的页面主要分为3部分：顶为系统，左侧为工具条，右侧为嵌入式框架，页面如图1.32所示1.32创建新页面，首先在页面中插入一个1×1的表格a，在表格a内插入所选。然后在表格a下方插入1×2的表格bb10×1cc中插入文字。在表格b <%'check.asp检测登录用户是否为空…<tableborder="0cellpadding="0cellspacing="0style="border-collapsecollapsewidth="760id="AutoNumber1"height="45"> <%'表格a属性%><tdalign="center"<imgborder="0"src="images/7.jpg"width="778"height="100"></td><%'路径及属性…<tableborder="1cellpadding="4cellspacing="0style="border-collapsecollapsebordercolor="#111111"width="760"height="100"><%'表格b属性%>…<tableborder="1"cellpadding="4"cellspacing="0"style="border-collapse:collapse""#111111width="110 <%'表格c属性c<td 管理

<tdbgcolor="#EFEFF7""<tdbgcolor="#EFEFF7""<tdbgcolor="#EFEFF7""<tdbgcolor="#EFEFF7"<ahref="test.asp"target="right">试卷&;管理<tdbgcolor="#EFEFF7"<%'单击“成绩管理”字样，在右侧嵌入式框架内显示成绩管理页面（student.asp）<ahref="student.asp"target="right">成绩&;管理<tdbgcolor="#EFEFF7"<atarget="right"href="student_admin.asp">学生&;管理…<tdbgcolor="#EFEFF7"<atarget="righthref="system.asp">管理员信息<tdbgcolor="#EFEFF7""…<tdalign="center"<Iframeid=rightname=rightscrolling=autoframeborder=0 e.asp"height="500"></Iframe><%'嵌入式框架属性…等操作。共分为1.33图1.335×1aa内插入文字，55bb <%'conn.asp页面连接数据库 <%'check.asp页面检测登录用户名ASP<scriptLanguage="vbscript"> //vbscriptcheck()函数subcheck()c= //将form1表单内文本框page的值赋于变量ifc<>""then //cc值是否为数字，否则弹出ifnotIsNumeric(c //cmsgbox"页数只能输入数字"//弹出“警示”exit //

end exit //endend

//form1…<palign="center"><fontface="隶书size="6"></font><br><%'表头“” <div<tableborder="1cellpadding="5cellspacing="0style="border-collapsecollapsebordercolor="#111111"width="600"> VBScript<formmethod="getname=form2action=""><%'a的属性vbscriptkeywordifkeyword=""thenend

="所有题目<tdalign="center"colspan="5">以下是按关键字<fontcolor=red><%= %></font>的查询结果&;&;&;&;&;&;&;查找<inputtype="text"name="keyword"size="20">题目<inputtype="submitvalue="查找name="B1style="width60height22border-stylesolidborder-widthbackground-colorFFFFFF"></tdkeyword的属性及“查找”按钮属性vbscriptsetsql="select*fromrightorwrongwherequestionlike'%"&keyword&"%'orderbyrightorwrongid'sql语言的查询语句rs.opensql,conn,3,1,1 '每10条记录分页…<%'vbscript10条记录为一页分页显示查询记录。如果记录为空ifnot(rs.eofandrs.bof)Page=cint(Request.querystring("Page"))IfPage<1ThenPage=1IfPage>rs.PageCountThenPage=rs.PageCountshogesrs,Page<%<%endSubshoges(rs,Page)rs.AbsolutePage=Pagefori=0tors.pagesize- 'sql'2整除，则背景颜色为"#EFEFF7"，否则为ifjmod2=0end<tr<td<td ifrs("answer")=truethen'answertrue则显示“对”字样，否则显示“错”end

response.write<tdalign="center"><a<tdalign="center"><a Ifrs.EOFThenExit 'for<%End<tdcolspan="5"<palign="center"><form<%'b属性VBScriptresponse.writers.pagesize&"条一页&;&;"ifPage=1then 一页</A>"页</A>"

endIfPage<>1Response.Write"<AHREF=type_1.asp?keyword="&keyword&"&Page=1>第一页</A>"Response.WriteAHREF=type_1.asp?keyword="&keyword&"&Page="&1&上EndIfPage<>rs.PageCountResponse.WriteAHREF=type_1.asp?keyword="&keyword&"&Page&Page+1&Response.Write"<AHREF=type_1.asp?keyword="&keyword&"&Page="&&最后一页</A>"Endifpage=rs.PageCountthen end转到<font<inputmaxLength="8"size="4"name="page"<inputtype="hidden"value=<%=keyword%>页<spanlang="en-us<inputclass="buttonfacetype="buttonvalueGotoonclick=checkstyle="width60;height:22;border-style:solid;border-width:1px;background-color:#FFFFFF"></font><br> …图1.34所示。4×1 3列内，插入相应的表头，第二行第二列内插入文本框，第三列插入下拉框。将按钮移 <%'conn.asp页面连接数据库 <%'check.asp页面检测登录用户名

图1.34判断题增加页面通过ASP代码判断题库内是否已经存在插入试题。如果存在，则弹出“警示”ifrequest("ctype")="types" '如果引藏ctype的值为type， 'flag的值设为fori=1to 'sqlfor循环语句从'如果文本框"t"&i、"cate"&isqlrightorwrongiftrim(request("t"&i))<>""andtrim(request("cate"&i))<>""setrss=conn.execute("select*fromrightorwrongwherequestion=&trim(request("t"&i))&ifnotrss.eofthen <script //javascriptalert("已有此试题，请重新录入！");//弹出“警示” sql="insertintorightorwrongquestion,answer,setupdatavalues&trim(requestt"&i))&"','"&trim(request("cate"&i))&"','"&date()&"')" 'sql语言的插入语句setrs=conn.execute '执行sql 'flag变量设置为endifendif'如果flag变量的值为1，则弹出“警示”框，重新进入type_1_add.asp页ifflag=1<script

varnow=newDate();<script //javascript //endifendif…<formname=form1 <inputtype=hiddenname=ctype<tableborder="1"cellpadding="5"cellspacing="0"style="border-collapse:collapse"bordercolor="#111111"…<%fori=1to 'sql 将变量iifjmod20then'j2bg为"#EFEFF7"bg为"#ffffff"endif<tr <%'<tdalign="center"><%=i%></td><%'表格内显示编号<td><inputtype="text"name="T<%=i%>"size="65"<td<selectname="cate<%=i%>"size="1"style="background-color:#E6F2FF"<optionselectedvalue="1">对</option><%'如果选择“对”<optionvalue="0">错<tdcolspan="3"<inputtype="submit"value="提交"name="B1"style="width:60;height:22;border-style:solid;border-width:1px;background-color:#FFFFFF"> <%'“提交”按钮属性%><inputtype="reset"value="name="B2style="width60height22border-stylesolid;border-width:1px;background-color:#FFFFFF"></td><%'“重置”按钮属性%>… <%'conn.asp页面连接数据库 <%'check.asp页面检测用户名是否为空<%'vbscriptsql="deletefromrightorwrongwhererightorwrongid="&trim(request("idsqlset '执行sql<scriptlanguage=javascript>varnow=new

//javascript//弹出“警示”//now当前窗口返回与判断题增加页面完全一致，只有文本框及下拉框的名称不相同。页面如图1.35所示。图1.35<!--#includefile="conn.asp"--><%'conn.asp函数连接数据库<script //javascriptcheckASPP框，不存在则修数据库数据操作成功或败出“警示”，提示操作功或者失败代码如下：function{//如果表单form1内表格t1的值为空，则弹出“警示”框，焦点集中在文本框t1if(.form1.t1.value=="")returnfalse;} //表单form1的引藏ctype的值为 //form1}<%sql="select*fromrightorwrongwhererightorwrongid="&trim(request("idsqlsetrs=conn.execute ctype的值为types，则查询表rightorwrong内是否存在修改后的判断题目及答案，如果存在， ifrequest("ctype")="types"sqlfind="select*fromrightorwrongwherequestion=&trim(request("t1"))&andanswer&request("cate")&"'andrightorwrongid<>"&request("id") 'sql语言的查询语句setrss=conn.execute(sqlfind)ifnotrss.eofthen

<script

//javascript//else'vbscriptsqledit="updaterightorwrongsetquestion&trim(request("t1"))&answer&requestcate")&"',setupdata='"&date()&"'whererightorwrongid="&request("id") 'sql语言的修改语句set <scriptvarnow=newDate();

//javascript//now返回<%endifendif…<formname=form1action=""<inputtype="hiddenname="ctype <inputtype="hidden"name=id<tableborder="1"cellpadding="5"cellspacing="0"style="border-collapse:collapse"bordercolor="#111111"…<td<tdinputtype="textname="t1size="70class="line t1内显示单击的修改题目的内容<td<selectname="cate"size="1"style="background-color:<optionselectedvalue="1ifrs("answer")=1thenresponse.writeselected"%>>对<%'1，则显示“对”字样<optionvalue="0ifrs("answer")=0thenresponse.writeselected"%>>错</option

<tdcolspan="3"<inputtype="buttonvalue="提交name="B1onclick="checkstyle="width60height22border-solid;border-width1pxbackground-color:#FFFFFFinputtype="resetvalue=""name="B2"style="width:60;height:22;border-style:solid;border-width:1px;background-color:#FFFFFF"></td><%“提交、“重置”按钮属性…4（typ_.sp），选择的数据表由rightorwrong变为selecting，增加了4个选择项的内容。页面如图1.36所示。图1.36选择的数据表由rightorwrong变为selecting，增加4个选择项的内容。页面如图1.37所示。图1.37rightorwrongselecting选择的数据表由rightorwrong变为selecting，增加4个选择项的内容。页面如图1.38所示。图1.38rightorwrongfilling1.39图1.39rightorwrongfilling1.40图1.40选择的数据表由rightorwrong变为filling。filling1.41filling1.41图1.41试题管理页面（test.asp）1.421×8a1×1的表格b。在表格a内，第一行输入文字“考卷设置（一期的）”。将二、三、四、五、六pd，第二列添加文本框名为pds，第三列添加复选框名为C1。类似第五行第一列单元格内输入文字“选择题”，第二列单元格内添加文本框名为xz，第二列添加文本框名为xzs，第三列添加复选框名为C2。 制“增加”按钮，更名为“修改”。在表格b中输入图标、文字 第期（判断题道/分，选择道//分）”1.42 <%'conn.asp页面连接数据库<!--#includefile="check.asp"--><%'check.asp页面检测登录用户名btnadd()，如果单击“增加”按钮，页面跳转至试题增加页面（testadd.asp）。创建过程btnedit()，判断修改后提交各个文本框是否为空。代码如下：<scriptlanguage=javascript> //javascriptbtnadd()，btnedit()functionbtnadd(){window.navigate("testadd.asptestadd.asp}function{//如果表单内文本框值为空，则弹出“警示”框，焦点集中在文本框if .form1.pd.value=="")|| .form1.xz.value=="")|| returnfalse;}if .form1.pd.value!="" .form1.pds.value==""returnfalse;}if .form1.xz.value!="" .form1.xzs.value==""returnfalse;}if((.form1.tk.value!="")&&(.form1.tks.value==""return //表单form1ctype //form1} 'vbscript0sqlfind="select*fromtestorderbyexaminationid 'sqlset ifrss.eofthen 'flag1，题目显示“暂无”字样title="<fontcolor=red> 'setrs=conn.execute("select*fromtestorderbyexaminationiddesc")title="第<fontcolor=red>"&rs("examinationid")&"</font>期"endiftrim(request("ctype"))="edit 'ctype的值为'c1onflags1，执行修改语句，修改试卷判断题信息ifrequest("c1")="on"thensqledit="updatetestsetrightorwrongid="&trim(request("pd"))&",rightorwrongscore="&trim(request("pds"))&"whereexaminationid="&rs("examinationid")setrsedit=conn.execute(sqledit)endif'c2onflags1ifrequest("c2")="on"thensqledit="updatetestsetselectid="&trim(request("xz"))&",selectscore="&trim(request("xzs"))&"whereexaminationid="&rs("examinationid")setrsedit=conn.execute(sqledit)endif'c3onflags1ifrequest("c3")="on"thensqledit="updatetestsetfillingid="&trim(request("tk"))&",fillingscore="&trim(request("tks"))&"wheresetrsedit=conn.execute(sqledit)endififflags=1 '如果变量flags为1，则弹出“警示”框，页面跳转至test.asp页<script

alert修改成功！");now=newDate();<%else'否则弹出“警示”框<scriptalert<%endifendif…<formname=form1action=""><%'表单属性<inputtype="hidden"name="ctype"<tableborder="1cellpadding="5cellspacing="0style="border-collapsecollapsebordercolor#111111"width="400"><%'表格a属性%><tdalign="center"colspan="4"><%=title%>考卷设置（一期的…<%ifflag=1then如果试卷信息存在则显示试卷信息<tdalign=centercolspan="4"><fontcolor=red><tdalign="center"><inputtype="text"name="pd"size="5"class="line"value=<%=rs <%'判断题题数文本框属性<td<inputtype="text"name="pds"size="5"class="line"value=<%=rs("rightorwrongscore") <td<inputtype="checkbox"name="C1""<tdbgcolor="#EFEFF7"<inputtype="text"name="xz"size="5"class="line"value=<%=rs("selectid")%>></td> <tdalign="center"<inputtype="text"name="xzs"size="5"class="line"<tdalign="center"<inputtype="checkbox"name="C2"<td<inputtype="text"name="tk"size="5"class="line"value="<%=rs("fillingid")%>"></td> <td<inputtype="text"name="tks"size="5"class="line"value=<%=rs("fillingscore")%>></td><td<inputtype="checkbox"name="C3"…<%endif<tdcolspan="4"<inputtype="buttonvalue="name="B1onclick="btnaddstyle="width60heightborder-style:solid;border-width:1px;background-color:<%ifflag=0<inputtype="buttonvalue="name="B1"onclick="btneditstyle="width60heightborder-style:solid;border-width:1px;background-color:<inputtype="resetvalue=""name="B2style="width:60height22border-styleborder-width1pxbackground-colorFFFFFF按钮属性<%endif…<%whilenot '循环输出每期试卷题型及分数信息<td <%=rss("examinationid")%>期（判断题<%=rss("rightorwrongid")%> 道/<%=rss 分，选择题<%=rss("selectid")%>道/<%=rss("selectscore")%>分，填空题<%=rss("fillingid")%>道/ 分<%rss.movenext'指针下移一个记录…与试题管理页面布局、控件基本类似，在此不再赘述，页面如图 <%'conn.asp连接数据库 <%'check.asp检测用户名是否为空btnadd()，如果单击“增加”按钮，判断提交各个文本框是否为空，为空则弹出“警示”对话框，焦点集中在空文本框。创建过程btngiveup()，页面跳转至试题管理页面（test.asp）。代码如下：图1.43<script //javascriptfunction{if .form1.pd.value!="")&& returnfalse;}if .form1.xz.value!="")&& .form1.xzs.value=="returnfalse;}if((.form1.tk.value!="")&&(.form1.tks.value=="returnfalse;} //将表单变量ctype //}function{varnow=new //now //}<%'vbscriptsetrs=conn.execute("select*fromtestorderbyexaminationiddesc")flag=0'flag赋值为ifrequest("ctype")="add '如果变量ctype'如果文本框tk的值为空或者文本框xz的值为空或者文本框pd的值为空，则弹出“警示”框，页iftrim(request("tk"))="" trim(request("xz"))="" trim(request("pd"))=""<script //testsqlin="insertintotestequest("tk"))&","&trim(request("tks"))&")"'sql语言的插入语句setrss=conn.execute(sqlin)'<script//采用javascript语言，弹出“警示”框，变量now赋值为当前日期，页面跳转至test.asp页varnow=newDate();<%endifendif%>…<formname=form1action <inputtype="hidden"name="ctype"<tableborder="1"cellpadding="5"cellspacing="0"style="border-collapse:collapse"="#111111width="400"><%'表格属性…<tdalign="center"><inputtype="text"name="pd"size="5"class="line"<td<inputtype="text"name="pds"size="5"class="line""<tdbgcolor="#EFEFF7"<inputtype="text"name="xz"size="5"<tdalign="center"<inputtype="text"name="xzs"size="5"<tdalign="center"><inputtype="text"name="tk"size="5"<td<inputtype="text"name="tks"size="5"…<tdcolspan="3"<inputtype="buttonvalue=""name="B1onclick="btnaddstyle="width60heightborder-style:solid;border-width:1px;background-color:<inputtype="buttonvalue="放弃name="B3onclick="btngiveupstyle="width60heightborder-style:solid;border-width:1px;background-color:<inputtype="resetvalue=""name="B2style="width60height22border-stylesolid;border-width:1px;background-color:#FFFFFF"></td><%'按钮属性%></table>…<%whilenot 'vbscript语言，whiletest表记录不为空，插入试卷数据<td <%=rs("examinationid")%>期（判断题<%=rs("rightorwrongid")%> 道/<%=rs 分，选择题<%=rs("selectid")%>道/<%=rs("selectscore")%>分，填空题<%=rs("fillingid")%>道/ …成绩管理页面（report.asp）1.441.44aa ：班号：学号：”，“（参加过期考试，最高分，最低分，次不及格）”。在表格a内输入一个2×3的表格b，表格b第一行第一列单元格内输入文字“期数”， 请输入考生 <%'conn.asp页面连接数据库<!--#includefile="check.asp"--><%'check.asp页面检测登录用户名<%sql="selectstudent.*fromstudentwherestudent.studentnumber="&request("studentnumber") 'sql语set 'setrs1=conn.execute("select*fromexaminationwherestudentnumber="&request("studentnumber"))setrs2=conn.execute("select*fromexaminationwhere'rs20ifnotrs2.eofthensql3="selectcount(studentnumber)asci,max(score)ashf,max(makeup)ashbf,min(score)aslf,min(makeup)aslbffromexaminationwherestudentnumber="&request("studentnumber")&"groupbysetrs3=conn.execute(sql3)ifrs3("hf")>rs3("hbf")thenendifrs3("lf")>rs3("lbf")thenendsql4="selectcount*asbjgfromexaminationwherestudentnumber="&request("studentnumber")&"andscore<60ormakeup<60groupbystudentnumber" 'sql语言的查询语句setrs4=conn.execute(sql4) end

…<tdalign="center"colspan="3"><fontcolor=red><%=rs("studentname")%></font>各期考试统计<p>学生 ：<%=rs("")%>班号：<%=rs("class")%><p>（参加过<fontcolor=red><%=ci%></font>期考试，最高<fontcolor=red><%=hf%></font> 低<fontcolor=red><%=lf%></font>分，<fontcolor=red><%=bjg%></font>次不及格）</td>…<%whilenotrs1.eofsqls="select*fromexaminationwherestudentnumber="&request("studentnumber")&"andset 'ifrss.eof 'fen、bfen赋值为“未参加setrsss=conn.execute("select*fromtestwhereexaminationid="&rss("examinationid"))ifrss("score")>=cint(zf*6/10)thenfen="<fontcolor=red>"&rss("score")&"分endifrss("pass")=1thenIFrss("makeup")=0endif

endifendifbfen="未参加<tdalign="center"><ahref="test.asp"><%=rs1("examinationid")%>期<tdalign="center"><td<tdcolspan="3"<%keyword=trim(request("keyword"))'限定查询条件是否为所有考生ifkeyword=""thenend

="所有考生查找其他考生&;请输入考生<inputtype="text"name="keyword" <inputtype="submitvalue="查找…学生管理页面（student.asp）1.451.45aa插入下拉菜单。随后插入表单a，在表单a内输入文字“以下为为 插入文本框。接着插入一个3×4的表格b。在表格b中，第一行第一列内单元格输入文字“考生”，格b后插入表单b，表单b内插入文字、文本框。最后设置控件属性。代码如下： <%'conn.asp页面连接数据库 <%'check.asp页面检测登录用户名check<scriptLanguage="vbscript"> 'vbscriptcheck()subcheck()c= '赋值变量c为表单'如果c不为空，则检测c是否为数字，如果不为数字则弹出“警示”框，退出函数。否则结束if语ifc<>""ifnotIsNumeric(c)msgbox"页数只能输入数字exit

endendifendsub

exit<%flag1=0'赋值变量set *from 'sqlset 'titles文字变为“暂无成绩信息”，flag11ifrss.eofthen

'reportidreportidexaminationid，flag2赋值为1ifreportid=""then 'reportid不为空，reportidendifsetrs1=conn.execute("select*fromexaminationwhereexaminationid="&reportid&title=""&rs1("examinationid")&"期考试统计ifflag2=1thentitle=title&"<fontcolor=red>（一期）</font>"//如果flage2值为1，则title文字显setrs2=conn.execute("select*fromtestwhereexaminationid="&rs1("examinationid")& endif…<selectname="cate"size="1"style="background-color:#EFEFF7"onchange="javascript:self.location=setrs3=conn.execute("selectdistinctexaminationidfromexaminationorderbyexaminationiddesc") whilenot 'while循环语句直到记录不为空<optionvalue="student.asp?reportid=<%=rs3("examinationid")%>"<%ifcint(request"))"<% 'keywordkeyword内输入关键字，<formmethod="getname=form2action=""><%'表单属性 ifkeyword=""thenend名

="所有考生<p>以下为为<font type="text"name="keyword"size="20"class="line">&;<inputtype="submit"value="查找"style="width:60;height:22;border-style:solid;border-width:1px;background-color:…ifflag1=1 'flag1不为1101sql="selectstudent.*,examination.*fromstudent,examinationwherestudent.studentnamelike'%"&keyword&"%'andexamination.studentnumber=student.studentnumberandexamination.examinationid="&rs1("examinationid")&"orderbystudent.studentnumberdesc"rs.opensql,conn,3,1,1ifnot(rs.eofandrs.bof)Page=cint(Request.querystring("Page"))IfPage<1ThenPage=1IfPage>rs.PageCountThenPage=rs.PageCountshogesrs,Page endSubshoges(rs,Page)rs.AbsolutePage=Pagefori=0tors.pagesize-1ifjmod2=0要”

endififrs("score")>=cint(zf*6/10then'60，则为“不需要”考试，否则为“

fen="<fontcolot=red>"&rs("score")&"分href=test_again.asp?studentnumber="&rs("studentnumber")&"&reportid="&reportid&">批准补考</a>"'单击“批准补考”字样，调用页面test_again.asp，批准补考'makeup0判断是否还为补考，如果补考依据成绩是ifrs("pass")=Truethenifrs("makeup")=0end

endifendifend

<tr<tdalign="center"><ahref="student.asp?id=<%=rs("studentnumber")%>"><%=rs("studentname")%></a></td><tdalign="center"><td<td EndSubendif%>

Ifrs.EOFThenExitform1

<tdcolspan="4"response.writers.pagesize&"条一页&;&;"ifPage=1then endifIfPage1Then'1，则显示“第一页”、“上一页”、“下一页”、“最后一页”字样Response.WriteAHREF=student.asp?keyword="&keyword&"&reportid="&reportid&"&Page=1>第一页</A>Response.WriteAHREF=student.asp?keyword="&keyword&"&reportid="&reportid&"&Page=&1&上一页</A>"endIfPage<>rs.PageCountThenResponse.Write"<AHREF=student.asp?keyword="&keyword&"&reportid="&reportid&"&Page=&Page+1&下一页</A>Response.WriteHREF=student.asp?keyword="&keyword&"&reportid="&reportid&"&Page=&rs.PageCount&最后一页</A>"endIfifpage=rs.PageCountthen end转到<font<inputmaxLength="8"size="4"name="page"<inputtype="hidden"value=<%=keyword%><inputtype="hidden"value=<%=reportid%>页<spanlang="en-us<inputclass="buttonface"type="button"value="Goto"onclick=check()style="width:60;height:22;border-style:solid;border-width:1px;background-color:#FFFFFF"></font><br>… <%'conn.asp页面连接数据库 <%'check.asp页面检测登录用户名…<%setrs=conn.execute("updateexaminationsetpass=1wherestudentnumber="&request("studentnumber")&"andexaminationid="&request("reportid")&"")'修改为批准考试%><scriptlanguage=javascript>varnow=newDate();管理员信息页面（system.asp）对管理员的进行修改，页面如图1.46所示3×2 <%'conn.asp页面连接数据库 <%'check.asp页面检测登录用户名<%'vbscriptsessionadm