作业提交系统界面设计

上传人：s*** IP属地：上海上传时间：2022-03-04 格式：DOCX 页数：17 大小：353.03KB 积分：20 举报 版权申诉

已阅读5页，还剩12页未读，继续免费阅读

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、作业提交系统界面设计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"> </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> </td> </tr><tr> <td>权限：</td> <td><select name="purview&q

9、uot; id="purview"> <option value="2">普通教师</option> <option value="3">系统管理员</option> </select></td> <td class="red_12pt_font">当前系统设定权限后不可更改，请慎重</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="提交">  <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("确定要删除该账号吗？删除将不能恢复！所有该教师布置的作业和学生上传的作业将删除！以及相关学生的注册信息。请慎重！？")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">权限：</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 "系统管理员<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%>'">  <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("对不起，该系统目前该功能只对教师开放，如有需要，请自建一个教师帐号！-><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>网上作业提交系统</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"> 在添加完成该操作后，系统会创建以此命名的文件夹，请不要随意改动（如更名，会大来大量的数据操作！），或者删除，学生的作业都将提交到该文件夹下面，一旦删除，则所有该班级的作业都将删除，无法恢复，请慎重！ </td> </tr> <tr> <td

31、 width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">2</td> <td>如果你教授多个班级，请一个添加完成后，继续添加</td> </tr> <tr> <td height="16" align="center" valign="m

32、iddle" bgcolor="#0099CC" class="style3">3</td> <td>只用添加了班级才能布置作业给相应的班级</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3"></td> <td&

33、gt;还有什么疑问，可以问系统管理员</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">5</td> <td class="red_12pt_font">当前系统班级文件夹建立后，不允许改名，下一版支持</td> </tr> </tab

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

35、;/tr> </table></form></body></html>4 教师布置作业的界面与编码代码：<%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>布置作业</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">布置作业：</td> <td width="237" class="white_bold_blue"> </td> <td width="172" class="white_bold_blue">说明</td> </tr> <tr> <td>作业名称：</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>当前是否允许上传作业：</td> <td><input na

41、me="is_upload" type="radio" value="1" checked> 允许上传 <input type="radio" name="is_upload" value="-1"> 不允许上传</td> <td>该功能可以用在限制时段交作业</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("对不起该功能目前只对普通开放，系统管理员如有需要，请另建一教师账号，使用该功能！")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("当前该教师没有班级，不能布置作业！请先添加授课班级或请与系统管理员联系！&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>内容：</td> <td><textarea name="content" cols="30" rows="8" class="input_textarea_01" id="content"></textarea></td> <td> </td> </tr> <tr> <td>上传相关文件

47、：</td> <td> </td> <td> </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、在添加完成该操作后，系统会创建以此命名的文件夹，请不要随意改动（如更名，会带来大量的数据操作！），或者删除，学生的作业都将提交到该文件夹下面，一旦删除，则所有该次作业都将删除，无法恢复，请慎重！ </td> </tr> <tr> <td width="16" height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">2</td&

50、gt; <td>如果你要布置多个作业，请一个添加完成后，再继续添加</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC" class="style3">3</td> <td>只用添加了班级才能布置作业给相应的班级</td> </tr> <tr> <td height

51、="16" align="center" valign="middle" bgcolor="#0099CC"class="style3"></td> <td>还有什么疑问，可以问系统管理员</td> </tr> <tr> <td height="16" align="center" valign="middle" bgcolor="#0099CC"

52、; class="style3">5</td> <td class="red_12pt_font">当前版本系统不允许更改作业名称！</td> </tr> </table></td> </tr> <tr> <td colspan="3" class="center"><input type="submit" name="Submit" value="

53、;提交">   <input type="reset" name="Submit2" value="重置"></td> </tr> </table></form></body></html>5 教师下载及批改作业的界面与编码代码： grade=trim(request.form("grade")If grade>=0 and grade <=100 Then'成绩为有效数字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("非法参数！")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 学生上传作业的界面与编码8 学生查看自己作业提交情况及得分的界面与编码代码：<%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"'使最近的一次作业排在最前,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的二维数组 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的二维数组 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、置的作业！</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">作业名称：</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="点击查看该次作业

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

作业提交系统界面设计

文档简介

温馨提示

最新文档

评论

作业提交系统界面设计

文档简介

温馨提示

最新文档

评论

相关文档