作业提交系统界面设计.docx

作业提交系统界面设计1管理员添加用户的界面与编码代码：添加管理组成员 添加管理组成员   说明: 用户名： 请使用英文1-20 密码： 8-20位的密码 确认密码： 再输入一遍密码，以确认 教师名：   权限： 普通教师 系统管理员 当前系统设定权限后不可更改，请慎重 备注： 可以不填   2 用户管理界面代码：/确认窗口function ConfirmDel(id)url=show_detail_info.asp?action=del_manager&id=+idif(confirm(确定要删除该账号吗？删除将不能恢复！所有该教师布置的作业和学生上传的作业将删除！以及相关学生的注册信息。请慎重！？)location=url用户管理 用户名 姓名： 班级： 备注： 权限：操作： % if rs(purview)=2 then response.write 普通教师 elseif rs(purview)=3 thenresponse.write 系统管理员* end if % input name=modify type=button id=modifyonclick=window.location.href=show_detail_info.asp?action=update_manager&id= value=修改 input type=button name=is_lock value= onclick=window.location.href=show_detail_info.asp?action=lock_manager&id=&is_lock=  input name=del type=submit id=del value=删除 onclick=return ConfirmDel() 3 教师添加班级的界面与编码代码：2 thencall error(对不起，该系统目前该功能只对教师开放，如有需要，请自建一个教师帐号！-返回管理首页)call Iserror()response.endend if%网上作业提交系统 添加班级： 说明： 添加你教的班级： 如：计科0701班 注意： 1 在添加完成该操作后，系统会创建以此命名的文件夹，请不要随意改动（如更名，会大来大量的数据操作！），或者删除，学生的作业都将提交到该文件夹下面，一旦删除，则所有该班级的作业都将删除，无法恢复，请慎重！ 2 如果你教授多个班级，请一个添加完成后，继续添加 3 只用添加了班级才能布置作业给相应的班级 还有什么疑问，可以问系统管理员 5 当前系统班级文件夹建立后，不允许改名，下一版支持   4 教师布置作业的界面与编码代码：布置作业 布置作业：   说明 作业名称： 如：圆弧连接 当前是否允许上传作业： 允许上传 不允许上传 该功能可以用在限制时段交作业 面向的对象： 2 thenresponse.clearcall error(对不起该功能目前只对普通开放，系统管理员如有需要，请另建一教师账号，使用该功能！)call Iserror()response.endend ifdim sql_61sql_61=select eric_manager,class_e from eric_manager where eric_manager= & session(teacher) & and class_ecall opendb()set rs=conn.execute(sql_61)if rs.eof thencall closers()call closedb()response.clearcall error(当前该教师没有班级，不能布置作业！请先添加授课班级或请与系统管理员联系！)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 & array_class_e(i) & nextelseresponse.write & class_e & end ifend if% 按住ctrl选择多个班级 内容：   上传相关文件：     注意： 1 在添加完成该操作后，系统会创建以此命名的文件夹，请不要随意改动（如更名，会带来大量的数据操作！），或者删除，学生的作业都将提交到该文件夹下面，一旦删除，则所有该次作业都将删除，无法恢复，请慎重！ 2 如果你要布置多个作业，请一个添加完成后，再继续添加 3 只用添加了班级才能布置作业给相应的班级 还有什么疑问，可以问系统管理员 5 当前版本系统不允许更改作业名称！   5 教师下载及批改作业的界面与编码代码： grade=trim(request.form(grade)If grade=0 and grade =100 Then成绩为有效数字id=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_object=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 Iserror()End Ifresponse.redirect manage_homework.asp?action=homework_detail&homework_name=&homework_name&class_object=&class_object6 学生用户注册的界面与编码7 学生上传作业的界面与编码8 学生查看自己作业提交情况及得分的界面与编码代码：function openScript(url, width, height) var Win = window.open(url,openScript,width= + width + ,height= + height + ,resizable=0,scrollbars=yes,menubar=no,status=n0 );% dim sql_80 sql_80=select * from homework where object_class= & session(student_class) & and homework_name order by id desc使最近的一次作业排在最前,sql_81= select * from upload_info where class_e= & session(student_class) & and upload_username= & session(student) & 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.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 end if call closers() else call closers() call closedb()response.write 当前未有布置的作业！response.endend if call closedb()% 序号 作业名称： 授课教师 操作： 布置及上传时间 得分：备注： a title=点击查看该次作业内容！ href=javascript:openScript(detail.asp?id=,418,300) %if array_01(4,i)=true then是否允许上传response.write 上传elseif array_01(4,i)=false thenresponse.write 当前不允许上传该作业end if%    a hre