盤數(shù)據(jù)基于單片機超聲波測距

面。各種各樣的學歷考試、資格考試層出不窮。同時，Internet技術(shù)的發(fā)展使得考試的技術(shù)和載體發(fā)生了性的變化。Internet的開放性和分布性的特點以及基于Internet的巨大計算能力使得考Internet的考試系統(tǒng)正成為人們的研究熱點之一。例如在英國，已經(jīng)計算機應用迅猛發(fā)展，網(wǎng)絡應用不斷擴大，如教育和虛擬大學的出現(xiàn)等，使得基于Web的在線考試系統(tǒng)成為現(xiàn)實?；赪eb的考試系統(tǒng)可以發(fā)揮網(wǎng)絡的優(yōu)勢，建立大型、高效、共享的題庫B/SBrowser/Web/DataBase3層體系結(jié)構(gòu)。Browser/Server的系統(tǒng)中，用戶可以通過瀏覽器。B/S結(jié)構(gòu)簡化了客戶機的工作，客戶機上只需配置Web瀏覽器即可。服務器將擔負的工作，結(jié)果返回以及頁生成等工作全部由WebServer完成Browser/Server三層體系結(jié)構(gòu)下，表示層（presentatioon）、功能層（businesslogic）（dataservice）3功能，把運行結(jié)果提交給Web服務器。系統(tǒng)采用SQLServer2000數(shù)據(jù)庫。Browser/Server1.1統(tǒng)B/S統(tǒng)B/S 統(tǒng)B/S SQLServer

Web應用

WindowsWeb服務Web服務

圖1.2考試系統(tǒng)總體框架41.3 統(tǒng)統(tǒng)

圖1.3type_2type_2test report學生考

圖1.4管理員（教師）考試管理程序主要流程 圖1.5學生考試前臺管理程序流程43種類型題目。包括題目的題干、答案和加入日SQLServer2000SQLServer2000，打開企業(yè)管理器，新建一個數(shù)據(jù)庫，將其命名為test。test數(shù)據(jù)庫中包含的數(shù)據(jù)表及其相應功能如表1.1所示。表1.1表1.1數(shù)據(jù)

SQLServerWindows操作系統(tǒng)中，管理員（教師）管理員（教師）（adminpassword）兩項基本信息。在已創(chuàng)建的SQLServer數(shù)據(jù)庫test中，右擊“表創(chuàng)建一個表，名為admin。向表中添加字段admin和adminpassword。其中，admin（）字段作為該表的主關(guān)鍵字（primarykey），惟一標識了一個管理員（教師）用戶記錄的信息。管理員（教師）信表字段表字段

學生信息表6個字段。其中，studentnumber（學生學號）1.3字段字段

（examinationid）（studentnumber）（score）日期 其中，examinationid（試卷編號）與studentnumber（學生學號）作為主關(guān)鍵字。pass（是否補考）默認0，makeup0，makeup（績）04表1.4字段

和設置日期（setupdata）8個字段。其中，examinationid（試卷編號）作為主關(guān)鍵字。examinationid（試卷編號）標識為“是”，標識為“1”，標識增量為“1”?？荚囶}型信息表結(jié)構(gòu)如表1.5所示。字段字段

判斷題信息表 標識為“1”，標識增量為“1”。判斷題信息表結(jié)構(gòu)如表1.6所示。字段名說字段名說明備注

4（selectid）、題目內(nèi)容（question）1（result1）2（result2） 1.7字段字段 選項

選項

字字段 選項

填空題信息表（填空題編號）標識為“是”，標識為“1”，標識增量為“1”。填空題信息表結(jié)構(gòu)如表1.8所示字段字段

examination表、test表、studentSQLServer1.6圖1.6考試管理主窗理。單成績理、生管、系管理實現(xiàn)系基本信管理試管理窗口如圖1.7

圖1.7考試管理主窗1.81.91.81.9保存到數(shù)據(jù)庫中。添加判斷題窗口如圖1.10所示。圖1.11所示。圖圖1.10

圖1.11圖1.12所示。

圖1.12圖1.14所示。填寫完畢，單擊“增加”按鈕，保存試卷設置。1.13

1.14查找學生成績。單擊下拉菜單，選擇考試批次，下方顯示考生、分數(shù)、補考設置和補考成績信息。 ，批準考生補考。成績統(tǒng)計管理窗口如圖1.15所示。

1.15顯示學號、考生、、班號信息，以及是否刪除信息，可以按照考生進行查詢，單擊“查找”按鈕，如圖1.16所示。填寫賬號 管理系統(tǒng)賬號 ，如圖1.17所示圖1.16學生統(tǒng)計管理窗 圖1.17系統(tǒng)管理窗學員窗 信息，如圖1.18所示

圖1.18學生窗 ，進入考試窗口界面，如圖1.19所示

1.19成績。如圖1.20所示為考試窗口。圖1.20IISSQLServerIISIIS是InternetInformationServer的縮寫，是微軟提供的Internet服務器軟件，包括Web、FTP、MailWindows2000Web服務器的安裝和設置方法。IISWindows2000服務器版和高級服務器版。Windows9x/MePWS（Web服務器）1個連接。WindowsXPIISIISWindowsIIS，則應手動安裝。安裝選擇“添加或刪除程序”窗口內(nèi)“添加/Windows組件”選項，彈出“Windows組件向選中“Internet信息服務（IIS）”復選框，單擊“下一步”按鈕，執(zhí)行操作。IIS安裝完畢。 雙擊“Internet服務管理器”圖標，進入“Internet單擊“操作 ”命令，如圖1.21所示圖1.21新建虛 zxks1.22 ，如d:\software\zxks，單擊“下一步”按鈕，進入設置1.22圖1.22設置權(quán)限窗刪除映射的方法：打開“Internet信息服務”窗口，在虛擬 SQLServer打開SQLServer2000的“企業(yè)管理器”窗口。右擊“數(shù)據(jù)庫”分支，彈出右 ，如圖1.24test圖圖1.231.24按照要求建好數(shù)據(jù)庫后，需要建立頁面與服務器的，頁面名稱為conn.asp。以后Setconn=Server.CreateObject("ADODB.Connection") '創(chuàng)建一個數(shù)據(jù)庫對象conn，方便后面調(diào)用connstr="Provider=SQLOLEDB;DataSource=(local);InitialCatalog=test;UserID=sa;Password=yanyan;"'recordsetconn.Open

'用戶登錄頁面主要是為用戶提供登錄的窗口，用戶通過在頁面內(nèi)輸入正確的用戶名及，取得用戶登錄頁面主要分為兩個部分：頂部為“考試系統(tǒng)”的信息；中間左側(cè)為用戶登錄框右側(cè)為系統(tǒng)。它用firework創(chuàng)建系統(tǒng)文件，存為jpg 格式或gif格式，作為各動態(tài)頁面頂部或頁面中。主要由頂部頁面（top.htm）和用戶登錄頁面（login.asp）組成，頁面如圖 1.25頂部頁頂部頁面（top.htm）：為了使頁面標準和美觀，同時避免重復、節(jié)約代碼，將頂部頭文件制作成為模塊，以后通過<!--#includefile="top.htm"-->命令直接調(diào)用。頂部頁面如圖1.26所示。創(chuàng)建新的頁面，首先在頁面上添加一個1×1的表格用來固定的位置，設置表格的各項屬性包括邊框?qū)傩?、長度和寬度等，最后加入文件夾images下事先保存的。代碼如下…<imgborder="0"src="images/2.gif"width="778"…注意：最好選用相對路徑，這樣可以防止因為文件夾位置變動而引起的路徑丟失圖1.26頂部頁用戶登錄頁面（login.asp）1.271.27創(chuàng)建新頁面，在頁面中添加一個1×1的表格a，在表格a內(nèi)加入一個表單，給表單命名。在表單內(nèi)插入一個1×3的表格b，在b的第三列單元格內(nèi)加入，第二列單元格內(nèi)插入一個3×5c最后在表格c內(nèi)第二列單元內(nèi)加入文本框兩個，將按鈕控件移至第二列單元格內(nèi)。給兩個studentpwd。pwdtypepassword設置表格、文本框的各項屬性。定義“提交”按鈕onclick：onclick="check()"ASPsession <%'conn.asp使用JavaScript語言，定義過程check()，判斷用戶名及其是否為空。為空則彈出錯誤“警示//使用javascript語言，創(chuàng)建函數(shù)check()，檢測用戶及是否為<scriptlanguage=javascript>functioncheck(){//如果student文本框內(nèi)容為空，彈出“警示”框提醒“請輸入用戶名if(.form1.student.value=="returnfalse;}

//student//IE//如果pwd文本框內(nèi)容為空，彈出“警示 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 '執(zhí)行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）是一個靜態(tài)頁面。它的主要功能是新的學生用戶，并對數(shù)據(jù)庫進行更新，如圖1.29所示。圖1.29用戶頁1×1aa內(nèi)加入一個表單，給表單命名。在表單內(nèi)插入一個6×3的表格b，在單元格內(nèi)添加文本框及文本，將按鈕控件移至第二列單元格內(nèi)。設用戶頁面ASP代用戶頁面ASP判斷用戶名是否輸入完全；判斷加入的學生是否已經(jīng)過，避免重復 <%'conn.asp頁面連接數(shù)據(jù)庫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 '執(zhí)行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表中插入新的學生信息數(shù)據(jù)set '執(zhí)行sql'執(zhí)行成功彈出“警示”框，進入用戶登錄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的表格。在表格內(nèi)插入文字ASP管理員頁面通過ASP代碼判斷賬號及是否填寫，填寫是否正確。若填寫正確，則將用戶信session <%'conn.asp頁面連接數(shù)據(jù)庫使用JavaScript語言，創(chuàng)建check()函數(shù)，判斷賬號及是否填寫。代碼如下<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 '執(zhí)行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"-->命令直接調(diào)用。頁面代碼如下：<%'vbscriptiftrim(session("adminid 'sessionadminid<script //javascript<%endif 或。此處可以根據(jù)個人喜好及風格等隨意制作，本系統(tǒng)中采用簡單文本樣式。首先創(chuàng)建新頁面，在頁面中插入一個1×1的表格，設定表格屬性。然后在表格內(nèi)插入文字。歡迎頁面如圖1.31所示。圖1.31…<tableborder="0"cellpadding="10"cellspacing="0"style="border-collapse:collapse"width="500height="100"><%'表格屬性<tdalign="center">歡迎進入考試管理系統(tǒng)</td><%'插入的文字…管理界面首頁（admin.asp）管理程序全部在此頁面上運行。它的頁面主要分為3部分：頂為系統(tǒng)，左側(cè)為工具條，右側(cè)為嵌入式框架，頁面如圖1.32所示1.32創(chuàng)建新頁面，首先在頁面中插入一個1×1的表格a，在表格a內(nèi)插入所選。然后在表格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"<%'單擊“成績管理”字樣，在右側(cè)嵌入式框架內(nèi)顯示成績管理頁面（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內(nèi)插入文字，55bb <%'conn.asp頁面連接數(shù)據(jù)庫 <%'check.asp頁面檢測登錄用戶名ASP<scriptLanguage="vbscript"> //vbscriptcheck()函數(shù)subcheck()c= //將form1表單內(nèi)文本框page的值賦于變量ifc<>""then //cc值是否為數(shù)字，否則彈出ifnotIsNumeric(c //cmsgbox"頁數(shù)只能輸入數(shù)字"http://彈出“警示”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">以下是按關(guān)鍵字<fontcolor=red><%= %></font>的查詢結(jié)果&;&;&;&;&;&;&;查找<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轉(zhuǎn)到<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列內(nèi)，插入相應的表頭，第二行第二列內(nèi)插入文本框，第三列插入下拉框。將按鈕移 <%'conn.asp頁面連接數(shù)據(jù)庫 <%'check.asp頁面檢測登錄用戶名

圖1.34判斷題增加頁面通過ASP代碼判斷題庫內(nèi)是否已經(jīng)存在插入試題。如果存在，則彈出“警示”ifrequest("ctype")="types" '如果引藏ctype的值為type， 'flag的值設為fori=1to 'sqlfor循環(huán)語句從'如果文本框"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 '執(zhí)行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><%'表格內(nèi)顯示編號<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頁面連接數(shù)據(jù)庫 <%'check.asp頁面檢測用戶名是否為空<%'vbscriptsql="deletefromrightorwrongwhererightorwrongid="&trim(request("idsqlset '執(zhí)行sql<scriptlanguage=javascript>varnow=new

//javascript//彈出“警示”//now當前窗口返回與判斷題增加頁面完全一致，只有文本框及下拉框的名稱不相同。頁面如圖1.35所示。圖1.35<!--#includefile="conn.asp"--><%'conn.asp函數(shù)連接數(shù)據(jù)庫<script //javascriptcheckASPP框，不存在則修數(shù)據(jù)庫數(shù)據(jù)操作成功或敗出“警示”，提示操作功或者失敗代碼如下：function{//如果表單form1內(nèi)表格t1的值為空，則彈出“警示”框，焦點集中在文本框t1if(.form1.t1.value=="")returnfalse;} //表單form1的引藏ctype的值為 //form1}<%sql="select*fromrightorwrongwhererightorwrongid="&trim(request("idsqlsetrs=conn.execute ctype的值為types，則查詢表rightorwrong內(nèi)是否存在修改后的判斷題目及答案，如果存在， 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內(nèi)顯示單擊的修改題目的內(nèi)容<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），選擇的數(shù)據(jù)表由rightorwrong變?yōu)閟electing，增加了4個選擇項的內(nèi)容。頁面如圖1.36所示。圖1.36選擇的數(shù)據(jù)表由rightorwrong變?yōu)閟electing，增加4個選擇項的內(nèi)容。頁面如圖1.37所示。圖1.37rightorwrongselecting選擇的數(shù)據(jù)表由rightorwrong變?yōu)閟electing，增加4個選擇項的內(nèi)容。頁面如圖1.38所示。圖1.38rightorwrongfilling1.39圖1.39rightorwrongfilling1.40圖1.40選擇的數(shù)據(jù)表由rightorwrong變?yōu)閒illing。filling1.41filling1.41圖1.41試題管理頁面（test.asp）1.421×8a1×1的表格b。在表格a內(nèi)，第一行輸入文字“考卷設置（一期的）”。將二、三、四、五、六pd，第二列添加文本框名為pds，第三列添加復選框名為C1。類似第五行第一列單元格內(nèi)輸入文字“選擇題”，第二列單元格內(nèi)添加文本框名為xz，第二列添加文本框名為xzs，第三列添加復選框名為C2。 制“增加”按鈕，更名為“修改”。在表格b中輸入圖標、文字 第期（判斷題道/分，選擇道//分）”1.42 <%'conn.asp頁面連接數(shù)據(jù)庫<!--#includefile="check.asp"--><%'check.asp頁面檢測登錄用戶名btnadd()，如果單擊“增加”按鈕，頁面跳轉(zhuǎn)至試題增加頁面（testadd.asp）。創(chuàng)建過程btnedit()，判斷修改后提交各個文本框是否為空。代碼如下：<scriptlanguage=javascript> //javascriptbtnadd()，btnedit()functionbtnadd(){window.navigate("testadd.asptestadd.asp}function{//如果表單內(nèi)文本框值為空，則彈出“警示”框，焦點集中在文本框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，執(zhí)行修改語句，修改試卷判斷題信息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，則彈出“警示”框，頁面跳轉(zhuǎn)至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 <%'判斷題題數(shù)文本框?qū)傩?lt;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 '循環(huán)輸出每期試卷題型及分數(shù)信息<td <%=rss("examinationid")%>期（判斷題<%=rss("rightorwrongid")%> 道/<%=rss 分，選擇題<%=rss("selectid")%>道/<%=rss("selectscore")%>分，填空題<%=rss("fillingid")%>道/ 分<%rss.movenext'指針下移一個記錄…與試題管理頁面布局、控件基本類似，在此不再贅述，頁面如圖 <%'conn.asp連接數(shù)據(jù)庫 <%'check.asp檢測用戶名是否為空btnadd()，如果單擊“增加”按鈕，判斷提交各個文本框是否為空，為空則彈出“警示”對話框，焦點集中在空文本框。創(chuàng)建過程btngiveup()，頁面跳轉(zhuǎn)至試題管理頁面（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賦值為當前日期，頁面跳轉(zhuǎn)至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表記錄不為空，插入試卷數(shù)據(jù)<td <%=rs("examinationid")%>期（判斷題<%=rs("rightorwrongid")%> 道/<%=rs 分，選擇題<%=rs("selectid")%>道/<%=rs("selectscore")%>分，填空題<%=rs("fillingid")%>道/ …成績管理頁面（report.asp）1.441.44aa ：班號：學號：”，“（參加過期考試，最高分，最低分，次不及格）”。在表格a內(nèi)輸入一個2×3的表格b，表格b第一行第一列單元格內(nèi)輸入文字“期數(shù)”， 請輸入考生 <%'conn.asp頁面連接數(shù)據(jù)庫<!--#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>各期考試統(tǒng)計<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內(nèi)輸入文字“以下為為 插入文本框。接著插入一個3×4的表格b。在表格b中，第一行第一列內(nèi)單元格輸入文字“考生”，格b后插入表單b，表單b內(nèi)插入文字、文本框。最后設置控件屬性。代碼如下： <%'conn.asp頁面連接數(shù)據(jù)庫 <%'check.asp頁面檢測登錄用戶名check<scriptLanguage="vbscript"> 'vbscriptcheck()subcheck()c= '賦值變量c為表單'如果c不為空，則檢測c是否為數(shù)字，如果不為數(shù)字則彈出“警示”框，退出函數(shù)。否則結(jié)束if語ifc<>""ifnotIsNumeric(c)msgbox"頁數(shù)只能輸入數(shù)字exit

endendifendsub

exit<%flag1=0'賦值變量set *from 'sqlset 'titles文字變?yōu)椤皶簾o成績信息”，flag11ifrss.eofthen

'reportidreportidexaminationid，flag2賦值為1ifreportid=""then 'reportid不為空，reportidendifsetrs1=conn.execute("select*fromexaminationwhereexaminationid="&reportid&title=""&rs1("examinationid")&"期考試統(tǒng)計ifflag2=1thentitle=title&"<fontcolor=red>（一期）</font>"http://如果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循環(huán)語句直到記錄不為空<optionvalue="student.asp?reportid=<%=rs3("examinationid")%>"<%ifcint(request"))"<% 'keywordkeyword內(nèi)輸入關(guān)鍵字，<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>"'單擊“批準補考”字樣，調(diào)用頁面test_again.asp，批準補考'makeup0判斷是否還為補考，如果補考依據(jù)成績是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轉(zhuǎn)到<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頁面連接數(shù)據(jù)庫 <%'check.asp頁面檢測登錄用戶名…<%setrs=conn.execute("updateexaminationsetpass=1wherestudentnumber="&request("studentnumber")&"andexaminationid="&request("reportid")&"")'修改為批準考試%><scriptlanguage=javascript>varnow=newDate();管理員信息頁面（system.asp）對管理員的進行修改，頁面如圖1.46所示3×2 <%'conn.asp頁面連接數(shù)據(jù)庫 <%'check.asp頁面檢測登錄用戶名<%'vbscriptsessionadm