作業(yè)提交系統(tǒng)界面設(shè)計_第1頁
作業(yè)提交系統(tǒng)界面設(shè)計_第2頁
作業(yè)提交系統(tǒng)界面設(shè)計_第3頁
作業(yè)提交系統(tǒng)界面設(shè)計_第4頁
作業(yè)提交系統(tǒng)界面設(shè)計_第5頁
已閱讀5頁，還剩12頁未讀， 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、作業(yè)提交系統(tǒng)界面設(shè)計1管理員添加用戶的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const need_purview=3%><!-#include file="./localhost.asp"-><!-#include file="show_error.asp"-><!-#include file="./purview.asp"-><%response.expires=0%&g

2、t;<!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>添加管理組成員</title><link href="./

3、eric.css" rel="stylesheet" type="text/css"></head><body><form name="add_manager" method="post"action="admin_check.asp?action=add_manager"> <table width="600" border="0" align="center" cellpad

4、ding="4" cellspacing="1" id="table_01"> <tr> <td width="120" class="white_bold_blue">添加管理組成員</td> <td width="240" class="white_bold_blue">&nbsp;</td> <td width="212" class="wh

5、ite_bold_blue">說明:</td> </tr> <tr> <td>用戶名：</td><td><input name="username" type="text" class="input_text_01" id="username" size="20" maxlength="20"></td> <td>請使用英文1-20</td>

6、 </tr> <tr> <td>密碼：</td> <td><input name="password" type="password" class="input_text_01" id="password" size="20" maxlength="20"></td> <td>8-20位的密碼</td> </tr> <tr><td>確

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

8、t;input name="teacher_name" type="text" class="input_text_01" id="teacher_name" size="20" maxlength="20"></td> <td>&nbsp;</td> </tr><tr> <td>權(quán)限：</td> <td><select name="purview&q

9、uot; id="purview"> <option value="2">普通教師</option> <option value="3">系統(tǒng)管理員</option> </select></td> <td class="red_12pt_font">當前系統(tǒng)設(shè)定權(quán)限后不可更改，請慎重</td> </tr> <tr> <td>備注：</td> <td> &l

10、t;textarea name="remark" cols="30" rows="3"class="input_textarea_01" id="remark"></textarea></td> <td>可以不填</td> </tr> <tr> <td colspan="3" class="center"><input type="submit&quo

11、t; name="Submit" value="提交">&nbsp; <input type="reset" name="Submit2" value="重置"></td> </tr> </table></form></body></html>2 用戶管理界面代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><

12、%const need_purview=3%><!-#include file="./localhost.asp"-><!-#include file="conn.asp"-><!-#include file="./lockip.asp"-><!-#include file="show_error.asp"-><!-#include file="./purview.asp"-><%response.expires=0%>

13、;<SCRIPT language=javascript>/確認窗口function ConfirmDel(id)url="show_detail_info.asp?action=del_manager&id="+idif(confirm("確定要刪除該賬號嗎？刪除將不能恢復(fù)！所有該教師布置的作業(yè)和學生上傳的作業(yè)將刪除！以及相關(guān)學生的注冊信息。請慎重！？")location=url</SCRIPT><html><head><meta http-equiv="Content-Type&

14、quot; content="text/html; charset=gb2312"><title>用戶管理</title><link href="./eric.css" rel="stylesheet" type="text/css"><style type="text/css"><!-.style1 color: #FF0000-></style></head><body><table

15、width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01"> <tr> <td width="50" class="white_bold_blue">用戶名</td> <td width="50" class="white_bold_blue"

16、>姓名：</td> <td width="90" class="white_bold_blue">班級：</td> <td width="70" class="white_bold_blue">備注：</td> <td width="90" class="white_bold_blue">權(quán)限：</td><td width="90" class="wh

17、ite_bold_blue">操作：</td> </tr> <%dim sql_50sql_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"

18、;><%=trim(rs("teacher")%></td><td width="90"><%=trim(rs("class_e")%></td> <td width="70"><%=trim(rs("remark")%></td> <td width="90"> <% if rs("purview")=2 then response.w

19、rite "普通教師" elseif rs("purview")=3 thenresponse.write "系統(tǒng)管理員<span class='style1'>* </span> " end if %></td> <td width="200" class="center"><input name="modify" type="button" id="modify&qu

20、ot;onclick="window.location.href='show_detail_info.asp?action=update_manager&id=<%=rs("id")%>'" value="修改"> <input type="button" name="is_lock" value="<%dim actif rs("is_lock")=false thenact="鎖定"els

21、eact="解鎖"end ifresponse.write act%>" onclick="window.location.href='show_detail_info.asp?action=lock_manager&id=<%=rs("id")%>&is_lock=<%=act%>'">&nbsp; <input name="del" type="submit" id="del" v

22、alue="刪除" onclick="return ConfirmDel(<%=rs("id")%>)"></td> </tr> <%rs.movenextloopcall closers()call closedb()%></table></body></html>3 教師添加班級的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const

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

24、ref='control/admin_main.asp' target='_parent'>返回管理首頁</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="C

25、ontent-Type" content="text/html; charset=gb2312"><title>網(wǎng)上作業(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;

26、-></style></head><body><form name="form1" method="post" action="admin_check.asp?action=add_class"> <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table

27、_01"><tr> <td width="181" class="white_bold_blue">添加班級：</td> <td width="226" class="white_bold_blue"></td> <td width="165" class="white_bold_blue">說明：</td> </tr> <tr> <td>添

28、加你教的班級：</td> <td><input name="class_er" type="text" class="input_text_01" id="class_er" size="20" maxlength="20"></td> <td>如：計科0701班</td> </tr> <tr> <td colspan="3"><span cl

29、ass="red_bold_14pt_font">注意：</span> <table width="500" border="0" align="center" cellpadding="4" cellspacing="1" id="table_02"> <tr> <td width="16" height="16" align="center" v

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

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

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

33、gt;還有什么疑問，可以問系統(tǒng)管理員</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">5</td> <td class="red_12pt_font">當前系統(tǒng)班級文件夾建立后，不允許改名，下一版支持</td> </tr> </tab

34、le> <br></td> </tr> <tr> <td colspan="3" class="center"><input type="submit" name="Submit" value="提交"> &nbsp; <input type="reset" name="Submit2" value="重置"></td> <

35、;/tr> </table></form></body></html>4 教師布置作業(yè)的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const need_purview=2%><!-#include file="./localhost.asp"-><!-#include file="conn.asp"-><!-#include file="show

36、_error.asp"-><!-#include file="./purview.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" conten

37、t="text/html; charset=gb2312"><title>布置作業(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

38、><body><form name="form1" method="post" action="admin_check.asp?action=add_homework"> <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01"> <tr>

39、<td width="163"class="white_bold_blue">布置作業(yè)：</td> <td width="237" class="white_bold_blue">&nbsp;</td> <td width="172" class="white_bold_blue">說明</td> </tr> <tr> <td>作業(yè)名稱：</td>

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

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

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

43、ger,class_e from eric_manager where eric_manager='" & 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)系！&q

44、uot;)call Iserror()response.endelsedim class_eclass_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) & &

45、quot;'>" & array_class_e(i) & "</option>"nextelseresponse.write "<option value='" & class_e & "'>" & class_e & "</option>"end ifend if%> </select></td> <td>按住ctrl選擇多個班級</td&g

46、t; </tr> <tr> <td>內(nèi)容：</td> <td><textarea name="content" cols="30" rows="8" class="input_textarea_01" id="content"></textarea></td> <td>&nbsp;</td> </tr> <tr> <td>上傳相關(guān)文件

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

48、;cellspacing="1" id="table_02"> <tr> <td width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">1</td> <td width="464" class="red_12pt_font">

49、 在添加完成該操作后，系統(tǒng)會創(chuàng)建以此命名的文件夾，請不要隨意改動（如更名，會帶來大量的數(shù)據(jù)操作?。?，或者刪除，學生的作業(yè)都將提交到該文件夾下面，一旦刪除，則所有該次作業(yè)都將刪除，無法恢復(fù)，請慎重！ </td> </tr> <tr> <td width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">2</td&

50、gt; <td>如果你要布置多個作業(yè)，請一個添加完成后，再繼續(xù)添加</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">3</td> <td>只用添加了班級才能布置作業(yè)給相應(yīng)的班級</td> </tr> <tr> <td height

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

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

53、;提交"> &nbsp; <input type="reset" name="Submit2" value="重置"></td> </tr> </table></form></body></html>5 教師下載及批改作業(yè)的界面與編碼代碼： grade=trim(request.form("grade")If grade>=0 and grade <=100 Then'成績?yōu)橛行?shù)字id=

54、trim(request.querystring("id")'過濾字符if id<>"" Thencall opendb()set rs=conn.execute("select * from upload_info where id=" & id)if rs.eof Thencall error("非法參數(shù)！")call Iserror()response.Endelsehomework_name=rs("upload_homework_name")class_ob

55、ject=rs("class_e")end Ifcall closers()call closedb()end Ifcall opendb()conn.execute("update upload_info set grade='"& grade &"',edit_time='"&now()&"' where id="&id)call closedb()Elsecall error("輸入的成績無效！")call Iserr

56、or()End Ifresponse.redirect "manage_homework.asp?action=homework_detail&homework_name="&homework_name&"&class_object="&class_object6 學生用戶注冊的界面與編碼7 學生上傳作業(yè)的界面與編碼8 學生查看自己作業(yè)提交情況及得分的界面與編碼代碼：<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%const

57、need_purview=1%><!-#include file="localhost.asp"-><!-#include file="conn.asp"-><!-#include file="lockip.asp"-><!-#include file="show_error.asp"-><!-#include file="purview.asp"-><html><head><meta http-eq

58、uiv="Content-Type" content="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,&quo

59、t;openScript",'width=' + 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"

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

61、' order by id desc"'使最后上傳的文件排在最前面 call opendb() set rs=conn.execute(sql_80) if not rs.eof then array_01=rs.getrows()'取得SElECTa Recordset的二維數(shù)組 rows_01=ubound(array_01,2)'取得array_01第二維的下界 'set rs=rs.NextRecordset '使用Nextrecordset激活下一個recordset call closers() set rs=conn.ex

62、ecute(sql_81) if not rs.eof then is_upfile=true array_02=rs.GetRows '再次取得第二個SElECTb Recordset的二維數(shù)組 rows_02=ubound(array_02,2)'取得array_02第二維的下界 else is_upfile=false end if call closers() else call closers() call closedb()response.write "<spanclass='red_bold_14pt_font'>當前未有布

63、置的作業(yè)！</span>"response.endend if 'call closedb()%> <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01"> <tr> <td width="39" class="white_bold_blue"&g

64、t;序號</td> <td width="157" class="white_bold_blue">作業(yè)名稱：</td> <td width="60" class="white_bold_blue">授課教師</td> <td width="158" class="white_bold_blue">操作：</td> <td width="105" class=&quo

65、t;white_bold_blue">布置及上傳時間</td> <td width="95" class="white_bold_blue">得分：</td><td width="95" class="white_bold_blue">備注：</td> </tr> <% for i=0 to rows_01 %><tr><td align="center" class="white_bold_blue"><%=i+1%></td><td><a title="點擊查看該次作業(yè)

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論