畢業(yè)設計—網上作業(yè)提交系統(tǒng)

1、目 錄引言31.問題定義及內容簡介41.1問題的定義41.2 內容簡介42.研究背景與研究意義42.1 研究背景42.2 研究意義43.開發(fā)平臺與語言簡介43.1 ASP 簡介43.2 Access簡介54.系統(tǒng)需求分析及可行性分析54.1 系統(tǒng)需求分析54.1.1 系統(tǒng)功能體系圖54.1.2 目標54.1.3 用戶的特點54.1.4 假定與約束64.1.5 基本功能64.1.6 對性能的規(guī)定64.1.7 限制條件64.2 系統(tǒng)難點分析65.總體設計75.1 數據庫設計75.1.1 數據表75.1.2 數據庫各表的描述說明85.2 主要功能的界面及編碼85.2.1 管理員添加用戶的界面與編碼8

2、5.2.2 用戶管理界面105.2.3 教師添加班級的界面與編碼135.2.4 教師布置作業(yè)的界面與編碼155.2.5 教師下載及批改作業(yè)的界面與編碼195.2.6 學生用戶注冊的界面與編碼205.2.7 學生上傳作業(yè)的界面與編碼205.2.8 學生查看自己作業(yè)提交情況及得分的界面與編碼206.結束語246.1本系統(tǒng)的優(yōu)點246.2本系統(tǒng)的不足之處及發(fā)展意見246.3在系統(tǒng)設計與實現(xiàn)過程中的收獲247.參考文獻24引言本作業(yè)提交系統(tǒng)是基于B/S結構，在IIS平臺上使用ASP與ACCESS開發(fā)的，主要目的是解決學校機房管理上機作業(yè)的問題。因為傳統(tǒng)的對學生作業(yè)管理是在服務器上建立一個FTP服務器，

3、然后對學生用戶設置一個專門的帳號，只允許對作業(yè)進行上傳，然后學生將作業(yè)上傳到服務器里對應的班級文件夾下面，傳統(tǒng)方式無法解決的問題有：不能防止學生亂上傳作業(yè)，不能防止學生找錯班級文件夾，不能對作業(yè)進行限制如大小，類型，上傳時間等，教師布置作業(yè)要通過黑板寫字，教師打分之后只能記在本子上，不能通過局域網發(fā)布出來讓學生看，教師下載作業(yè)必須到服務器上拷貝。而這套系統(tǒng)正是出于這個目的，為了解決上面的問題而設計的。系統(tǒng)對于復雜的問題都采用程序的方式解決了。系統(tǒng)分了管理員、教師、學生用戶，管理員須要的操作只是添加專業(yè)，添加班級，添加管理員或教師用戶都是通過網頁的形式展示出來。而教師無須向以前那樣，只需要發(fā)布作

4、業(yè)，對作業(yè)的要求進行限制，不必去服務器上建文件夾來存放你的作業(yè)，并且程序自動創(chuàng)建目錄。下載作業(yè)也只須要點一下就會將作業(yè)全部打包下載回來，在局域網內的任何一臺計算機都可以進行各種操作。學生則再也不會將作業(yè)上傳錯，上傳到別的班級中，也不允許上傳非法的文件，對一次未上傳完成的作業(yè)也可以先上傳后下節(jié)課再下載回來接著做。系統(tǒng)用程序的方式解決了那些非常復雜的操作，比如對文件夾的創(chuàng)建等，所有的角色只需要簡單的幾步操作就可以完成，非常簡單實用。1.概述1.1問題的定義解決傳統(tǒng)的FTP服務器不能夠滿足作業(yè)上傳的要求下：1教師發(fā)布作業(yè)必須到服務器上建立文件夾2教師發(fā)布作業(yè)由在黑板上寫的形式改為在網頁上寫再發(fā)布3教

5、師不能對作業(yè)進行限制如大小，類型，過期時間4教師下載作業(yè)的必須到服務器去下載改為在局域網內任何一臺計算機都可以下載5教師無法發(fā)布成績改為通過網頁發(fā)布成績6學生一次未完成的作業(yè)可以先上傳再下載，完成之后再上傳。7學生上傳作業(yè)只須點一個按鈕，無須選擇要上傳的目錄1.2 內容簡介通過網頁的形式來完成作業(yè)提交的管理。首先講述開發(fā)平臺的特點，和所使用的開發(fā)語言的簡介。再介紹研究的背景與意義并對系統(tǒng)進行需求分析與可行性分析，最后進行詳細的設計。通過此文檔，可以讓讀者了解作業(yè)上傳系統(tǒng)的大至流程，對于其中的功能也有一定的了解，知道作者的實現(xiàn)原理及使用的方法。2.研究背景與研究意義2.1 研究背景為學校老師提供

6、了一個可靠的軟件，更好的讓學生提交作業(yè)。傳統(tǒng)的手工操作方式，容易對自己身體疲勞，統(tǒng)計錯誤，且速度慢。這套系統(tǒng)可以提高管理效率和水平。2.2 研究意義 網絡化教育代表了教育改革的一個發(fā)展方向,已經成為現(xiàn)代教育的一個特征,并對教育的發(fā)展形成新的推動力。通過Internet/Intranet來實現(xiàn)網上作業(yè)提交，是現(xiàn)代教育技術的一個具體實現(xiàn)，具有很重要的現(xiàn)實意義。可以實現(xiàn)學生在線提交作業(yè)的無紙化管理，可以有效利用校園網的軟硬件資源，使其發(fā)揮最大效力，更好的為學校的教學、科研、管理服務，隨時隨地的可以讓學生聯(lián)機操作提交。3.開發(fā)平臺與語言簡介3.1 ASP 簡介ASP作為Microsoft的下一代面向對

7、象的語言產品能夠讓開發(fā)人員在IIS平臺上快速地建立大量的應用程序。按照微軟給出的定義，asp是一種源自于c和c+的簡單的、現(xiàn)代的、面向對象的和類型安全的程序設計語言。asp為程序員提供了開發(fā)飛速發(fā)展的Web應用程序所需的強大而靈活的功能。asp和Java的核心與c+比較有著相同的優(yōu)勢和局限，比起c+，asp將更容易被人們理解和接受，未來大量NET平臺的應用將由ASP開發(fā)。 3.2 Access簡介Microsoft Office Access（前名 Microsoft Access）是由微軟發(fā)布的關聯(lián)式數據庫管理系統(tǒng)。它結合了 Microsoft Jet Database Engine 和 圖

8、形用戶界面兩項特點，是 Microsoft Office的成員之一。其實Access 也是微軟公司另一個通訊程序的名字，想與 ProComm 以及其他類似程序來競爭。可是事后微軟證實這是個失敗計劃，并且將它中止。數年后他們把名字重新命名于數據庫軟件。4.系統(tǒng)需求分析及可行性分析4.1 系統(tǒng)需求分析4.1.1 系統(tǒng)功能體系圖作業(yè)提交系統(tǒng)注冊登錄密碼找回學生用戶登錄教師用戶登錄管理員用戶登錄查看成績打包下載作業(yè)發(fā)布修改作業(yè)添加用戶管理用戶數據庫管理上傳作業(yè)下載作業(yè)查看作業(yè)發(fā)布修改成績刪除作業(yè)系統(tǒng)設置通用模板修改密碼查看個人資料注銷系統(tǒng) 4.1.2 目標完成一套網上的作業(yè)提交系統(tǒng)，免費提供給學校機房

9、使用，將所有源代碼公開，方便別人學習，也希望更多的人參與本系統(tǒng)的開發(fā)。4.1.3 用戶的特點用戶是機房管理員，對計算機技術比較了解，學校教師專業(yè)教師能很快熟悉系統(tǒng)的使用方法，非專業(yè)教師也能很快掌握，學校學生能很快學會使用系統(tǒng)。4.1.4 假定與約束 1如果壓縮文件夾的功能不能解決，那么只有教師到服務器拷貝文件夾 2如果學校覺得系統(tǒng)不能滿足學生作業(yè)上傳的需要，那么將不能放在機房，供學生使用 3如果遇到一些技術問題無法解決，那么將會加大系統(tǒng)的開發(fā)周期 4如果此系統(tǒng)在離開學期之前都無法開發(fā)成功，那么也不能提供給機房使用。4.1.5 基本功能1學生注冊2學生、教師、管理員密碼找回功能3不同用戶登錄進入

10、不同的界面4學生作業(yè)的查看5學生作業(yè)成績的查看6學生作業(yè)上傳7教師布置作業(yè)8教師刪除作業(yè)9教師修改作業(yè) 10教師發(fā)布成績 11教師修改成績 12教師下載作業(yè) 13管理員添加教師用戶 14管理員添加管理員用戶 15管理員添加專業(yè) 16管理員添加班級 17個人資料的查看 18個人密碼的修改4.1.6 對性能的規(guī)定1要求系統(tǒng)支持ACCESS數據庫2要求必須安裝IIS4.1.7 限制條件1 學生不可以進行教師與管理員的頁面2 教師也不可以進入管理員頁面，還有學生頁面3 管理員也不可以進行學生和教師面頁4 每個學生登錄進入之后只能看到自己班級的作業(yè)，不可以看到別的班級的作業(yè)5 每個教師登錄只對自己發(fā)布的

11、作業(yè)進行管理，不可以對別的教師發(fā)布的作業(yè)進行管理6 當學生注冊時輸入的學號必需與選定的班級匹配。7 不同的用戶使用修改密碼都只能修改自己的密碼，無法修改他人的8 不同的用戶使用個人數據功能時，也是只可以看到自己的信息不可以看到他們的信息9 學生上傳作業(yè)的類型，大小，時間等，受到教師發(fā)布作業(yè)的約束4.2 系統(tǒng)難點分析本系統(tǒng)最大的難點是對作業(yè)的上傳，由于FileSystemObject的局限,所以ASP最大的難題就是文件上傳,大多解決法就是安裝第三方上傳組件。可第三方組件有很多問題,有的組件要注冊,有的組件要在表單中加上他的版權信息。還有的就是組件的兼容問題及很多虛擬主機不支持上傳組件?；碂o組件

12、上傳是全網絡首次提出的利用ado控件實現(xiàn)了上傳。本系統(tǒng)再上傳作業(yè)的源程序上就是引用了化境無組件上傳。5.總體設計5.1 數據庫設計5.1.1 數據表5.1.2 數據庫各表的描述說明config表存放的是本系統(tǒng)的相關配置參數。manager表存放的是管理員及教師的帳號與密碼等數據。member表存放的是學生用戶的帳號與密碼等數據。homework表存放的是教師布置的作業(yè)信息。upload_info表存放的是學生上傳的作業(yè)的相關信息。5.2 主要功能的界面及編碼5.2.1 管理員添加用戶的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE=&qu

13、ot;936"%><%const need_purview=3%><!-#include file="./localhost.asp"-><!-#include file="show_error.asp"-><!-#include file="./purview.asp"-><%response.expires=0%><!DOCTYPE HTML PUBLIC "-/W3C/DTD HTML 4.01 Transitional/EN"

14、 "/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>添加管理組成員</title><link href="./eric.css" rel="stylesheet" type="text/css"><

15、;/head><body><form name="add_manager" method="post" action="admin_check.asp?action=add_manager"> <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">

16、<tr> <td width="120" class="white_bold_blue">添加管理組成員</td> <td width="240" class="white_bold_blue">&nbsp;</td> <td width="212" class="white_bold_blue">說明:</td> </tr> <tr> <td>用戶

17、名：</td> <td><input name="username" type="text" class="input_text_01" id="username" size="20" maxlength="20"></td> <td>請使用英文1-20</td> </tr> <tr> <td>密碼：</td> <td><input nam

18、e="password" type="password" class="input_text_01" id="password" size="20" maxlength="20"></td> <td>8-20位的密碼</td> </tr> <tr> <td>確認密碼：</td> <td><input name="passwordq" type=&qu

19、ot;password" class="input_text_01" id="passwordq" size="20" maxlength="20"></td> <td>再輸入一遍密碼，以確認</td> </tr> <tr> <td>教師名：</td> <td><input name="teacher_name" type="text" class="

20、;input_text_01" id="teacher_name" size="20" maxlength="20"></td> <td>&nbsp;</td> </tr> <tr> <td>權限：</td> <td><select name="purview" id="purview"> <option value="2">普通教師

21、</option> <option value="3">系統(tǒng)管理員</option> </select></td> <td class="red_12pt_font">當前系統(tǒng)設定權限后不可更改，請慎重</td> </tr> <tr> <td>備注：</td> <td> <textarea name="remark" cols="30" rows="3&qu

22、ot; class="input_textarea_01" id="remark"></textarea></td> <td>可以不填</td> </tr> <tr> <td colspan="3" class="center"><input type="submit" name="Submit" value="提交">&nbsp; <inp

23、ut type="reset" name="Submit2" value="重置"></td> </tr> </table></form></body></html>5.2.2 用戶管理界面代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const need_purview=3%><!-#include file="./localhost.a

24、sp"-><!-#include file="conn.asp"-><!-#include file="./lockip.asp"-><!-#include file="show_error.asp"-><!-#include file="./purview.asp"-><%response.expires=0%><SCRIPT language=javascript>/確認窗口function ConfirmDel(id)ur

25、l="show_detail_info.asp?action=del_manager&id="+idif(confirm("確定要刪除該賬號嗎？刪除將不能恢復！所有該教師布置的作業(yè)和學生上傳的作業(yè)將刪除！以及相關學生的注冊信息。請慎重??？")location=url</SCRIPT><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title&

26、gt;用戶管理</title><link href="./eric.css" rel="stylesheet" type="text/css"><style type="text/css"><!-.style1 color: #FF0000-></style></head><body><table width="600" border="0" align="center&quo

27、t; cellpadding="4" cellspacing="1" id="table_01"> <tr> <td width="50" class="white_bold_blue">用戶名</td> <td width="50" class="white_bold_blue">姓名：</td> <td width="90" class="white_

28、bold_blue">班級：</td> <td width="70" class="white_bold_blue">備注：</td> <td width="90" class="white_bold_blue">權限：</td> <td width="90" class="white_bold_blue">操作：</td> </tr> <%dim sql_5

29、0sql_50="select * from eric_manager"call opendb()set rs=conn.execute (sql_50)do while not rs.eof%> <tr> <td width="50"><%=trim(rs("eric_manager")%></td> <td width="50"><%=trim(rs("teacher")%></td> <td w

30、idth="90"><%=trim(rs("class_e")%></td> <td width="70"><%=trim(rs("remark")%></td> <td width="90"> <% if rs("purview")=2 then response.write "普通教師" elseif rs("purview")=3 thenresp

31、onse.write "系統(tǒng)管理員<span class='style1'>* </span> " end if %></td> <td width="200" class="center"><input name="modify" type="button" id="modify" onclick="window.location.href='show_detail_info.as

32、p?action=update_manager&id=<%=rs("id")%>'" value="修改"> <input type="button" name="is_lock" value="<%dim actif rs("is_lock")=false thenact="鎖定"elseact="解鎖"end ifresponse.write act%>" onclick

33、="window.location.href='show_detail_info.asp?action=lock_manager&id=<%=rs("id")%>&is_lock=<%=act%>'">&nbsp; <input name="del" type="submit" id="del" value="刪除" onclick="return ConfirmDel(<%=rs(&

34、quot;id")%>)"></td> </tr> <%rs.movenextloopcall closers()call closedb()%></table></body></html>5.2.3 教師添加班級的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const need_purview=2%><!-#include file="./localhost.

35、asp"-><!-#include file="show_error.asp"-><!-#include file="./purview.asp"-><%response.expires=0if session("purview")>2 thencall error("對不起，該系統(tǒng)目前該功能只對教師開放，如有需要，請自建一個教師帳號！-><a href='control/admin_main.asp' target='_parent&#

36、39;>返回管理首頁</a>")call Iserror()response.endend if%><!DOCTYPE HTML PUBLIC "-/W3C/DTD HTML 4.01 Transitional/EN" "/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312&

37、quot;><title>網上作業(yè)提交系統(tǒng)</title><link href="./eric.css" rel="stylesheet" type="text/css"><style type="text/css"><!-.style3 color: #FFFFFF; font-weight: bold; font-size: 14px; -></style></head><body><form name=

38、"form1" method="post" action="admin_check.asp?action=add_class"> <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01"> <tr> <td width="181" clas

39、s="white_bold_blue">添加班級：</td> <td width="226" class="white_bold_blue"></td> <td width="165" class="white_bold_blue">說明：</td> </tr> <tr> <td>添加你教的班級：</td> <td><input name="class_e

40、r" type="text" class="input_text_01" id="class_er" size="20" maxlength="20"></td> <td>如：計科0701班</td> </tr> <tr> <td colspan="3"><span class="red_bold_14pt_font">注意：</span> &l

41、t;table width="500" border="0" align="center" cellpadding="4" cellspacing="1" id="table_02"> <tr> <td width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" clas

42、s="style3">1</td> <td width="464" class="red_12pt_font"> 在添加完成該操作后，系統(tǒng)會創(chuàng)建以此命名的文件夾，請不要隨意改動（如更名，會大來大量的數據操作！），或者刪除，學生的作業(yè)都將提交到該文件夾下面，一旦刪除，則所有該班級的作業(yè)都將刪除，無法恢復，請慎重！ </td> </tr> <tr> <td width="16" height="16" align="c

43、enter" valign="middle" bgcolor="#0099CC" class="style3">2</td> <td>如果你教授多個班級，請一個添加完成后，繼續(xù)添加</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style

44、3">3</td> <td>只用添加了班級才能布置作業(yè)給相應的班級</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3"></td> <td>還有什么疑問，可以問系統(tǒng)管理員</td> </tr> <tr> <

45、td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">5</td> <td class="red_12pt_font">當前系統(tǒng)班級文件夾建立后，不允許改名，下一版支持</td> </tr> </table> <br></td> </tr> <tr> <t

46、d colspan="3" class="center"><input type="submit" name="Submit" value="提交"> &nbsp; <input type="reset" name="Submit2" value="重置"></td> </tr> </table></form></body></htm

47、l>5.2.4 教師布置作業(yè)的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const need_purview=2%><!-#include file="./localhost.asp"-><!-#include file="conn.asp"-><!-#include file="show_error.asp"-><!-#include file="./purv

48、iew.asp"-><%response.buffer=true%><!DOCTYPE HTML PUBLIC "-/W3C/DTD HTML 4.01 Transitional/EN" "/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title&

49、gt;布置作業(yè)</title><link href="./eric.css" rel="stylesheet" type="text/css"><style type="text/css"><!-.style3 color: #FFFFFF; font-weight: bold; font-size: 14px; -></style></head><body><form name="form1" metho

50、d="post" action="admin_check.asp?action=add_homework"> <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01"> <tr> <td width="163" class="white_bold_b

51、lue">布置作業(yè)：</td> <td width="237" class="white_bold_blue">&nbsp;</td> <td width="172" class="white_bold_blue">說明</td> </tr> <tr> <td>作業(yè)名稱：</td> <td><input name="homework_name" t

52、ype="text" class="input_text_01" id="homework_name" size="20" maxlength="20"></td> <td>如：圓弧連接</td> </tr> <tr> <td>當前是否允許上傳作業(yè)：</td> <td><input name="is_upload" type="radio" valu

53、e="1" checked> 允許上傳 <input type="radio" name="is_upload" value="-1"> 不允許上傳</td> <td>該功能可以用在限制時段交作業(yè)</td> </tr> <tr> <td>面向的對象：</td> <td><select name="object_e" size="3" multiple cla

54、ss="select_01" id="object_e"> <%if session("purview")>2 thenresponse.clearcall error("對不起該功能目前只對普通開放，系統(tǒng)管理員如有需要，請另建一教師賬號，使用該功能！")call Iserror()response.endend ifdim sql_61sql_61="select eric_manager,class_e from eric_manager where eric_manager=

55、9;" & session("teacher") & "' and class_e<>''"call opendb()set rs=conn.execute(sql_61)if rs.eof thencall closers()call closedb()response.clearcall error("當前該教師沒有班級，不能布置作業(yè)！請先添加授課班級或請與系統(tǒng)管理員聯(lián)系！")call Iserror()response.endelsedim class_eclass_

56、e=rs("class_e")call closers()call closedb()if Instr(class_e,"|")>0 thenarray_class_e=split(class_e,"|")for i=0 to ubound(array_class_e)response.write "<option value='" & array_class_e(i) & "'>" & array_class_e(i) & &q

57、uot;</option>"nextelseresponse.write "<option value='" & class_e & "'>" & class_e & "</option>"end ifend if%> </select></td> <td>按住ctrl選擇多個班級</td> </tr> <tr> <td>內容：</td> &

58、lt;td><textarea name="content" cols="30" rows="8" class="input_textarea_01" id="content"></textarea></td> <td>&nbsp;</td> </tr> <tr> <td>上傳相關文件：</td> <td>&nbsp;</td> <td&

59、gt;&nbsp;</td> </tr> <tr> <td colspan="3"><span class="red_bold_14pt_font">注意：</span> <table width="500" border="0" align="center" cellpadding="4" cellspacing="1" id="table_02"&

60、gt; <tr> <td width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">1</td> <td width="464" class="red_12pt_font"> 在添加完成該操作后，系統(tǒng)會創(chuàng)建以此命名的文件夾，請不要隨意改動（如更名，會帶來大量的數據操作?。?/p>

61、者刪除，學生的作業(yè)都將提交到該文件夾下面，一旦刪除，則所有該次作業(yè)都將刪除，無法恢復，請慎重！ </td> </tr> <tr> <td width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">2</td> <td>如果你要布置多個作業(yè)，請一個添加完成后，再繼續(xù)添加</td>

62、</tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">3</td> <td>只用添加了班級才能布置作業(yè)給相應的班級</td> </tr> <tr> <td height="16" align="center" valign=&qu

63、ot;middle" bgcolor="#0099CC" class="style3"></td> <td>還有什么疑問，可以問系統(tǒng)管理員</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">5</td> <td

64、class="red_12pt_font">當前版本系統(tǒng)不允許更改作業(yè)名稱！</td> </tr> </table></td> </tr> <tr> <td colspan="3" class="center"><input type="submit" name="Submit" value="提交"> &nbsp; <input type="rese

65、t" name="Submit2" value="重置"></td> </tr> </table></form></body></html>5.2.5 教師下載及批改作業(yè)的界面與編碼代碼： grade=trim(request.form("grade")If grade>=0 and grade <=100 Then'成績?yōu)橛行底謎d=trim(request.querystring("id")'過

66、濾字符if id<>"" Thencall opendb()set rs=conn.execute("select * from upload_info where id=" & id)if rs.eof Thencall error("非法參數！")call Iserror()response.Endelsehomework_name=rs("upload_homework_name")class_object=rs("class_e")end Ifcall closers

67、()call closedb()end Ifcall opendb()conn.execute("update upload_info set grade='"& grade &"',edit_time='"&now()&"' where id="&id)call closedb()Elsecall error("輸入的成績無效！")call Iserror()End Ifresponse.redirect "manage_homew

68、ork.asp?action=homework_detail&homework_name="&homework_name&"&class_object="&class_object5.2.6 學生用戶注冊的界面與編碼5.2.7 學生上傳作業(yè)的界面與編碼5.2.8 學生查看自己作業(yè)提交情況及得分的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const need_purview=1%><!-#include

69、file="localhost.asp"-><!-#include file="conn.asp"-><!-#include file="lockip.asp"-><!-#include file="show_error.asp"-><!-#include file="purview.asp"-><html><head><meta http-equiv="Content-Type" conte

70、nt="text/html; charset=gb2312"><title></title><link href="eric.css" rel="stylesheet" type="text/css"><SCRIPT language=javascript>function openScript(url, width, height) var Win = window.open(url,"openScript",'width='

71、; + width + ',height=' + height + ',resizable=0,scrollbars=yes,menubar=no,status=n0' );</SCRIPT></head><body><% dim sql_80 sql_80="select * from homework where object_class='" & session("student_class") & "' and homework_n

72、ame<>'' order by id desc"'使最近的一次作業(yè)排在最前, sql_81= "select * from upload_info where class_e='" & session("student_class") & "' and upload_username='" & session("student") & "' order by id desc"'

73、使最后上傳的文件排在最前面 call opendb() set rs=conn.execute(sql_80) if not rs.eof then array_01=rs.getrows()'取得SElECTa Recordset的二維數組 rows_01=ubound(array_01,2)'取得array_01第二維的下界 'set rs=rs.NextRecordset '使用Nextrecordset激活下一個recordset call closers() set rs=conn.execute(sql_81) if not rs.eof then is_upfile=true array_02=rs.GetRows '再次取得第二個SElECTb Recordset的二維數組 rows_02=ubound(array_02,2)'取得array_02第二維的下界 else is_upfile=false