基于asp计算机上机作业上传系统探究

《基于asp计算机上机作业上传系统探究》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、基于Asp计算机上机作业上传系统探究摘要：在计算机教学中，计算机上机作业是很重要的部分,然而，传统的上机作业上交方式都受到了一些软、硬件环境的限制或使用起来不方便、不通用。经过研究，利用无组件上传类-upload_5xsoft设计一种小型上机作业上传系统实现B/S模式上传方法，简单、通用，可提高教学效率和公正评价学生成绩。关键词：计算机教学；作业上传；B/S；Asp中图分类号:TP319文献标识码：A文章编号：1672-7800(2012)012-0119-020引言在计算机教学过程中，由于课程的特殊性，计算机经常需要

2、做上机作业或练习，并以此来评价本课程的成绩。上机作业的上交就成了计算机上机教学的一个必不可少的环节。已有的上机作业上交方式有以下几种：(1)文件夹共享方式。这种方式最简单，但经过教学实践发现这种方式有以下弊端：因为权限完全开放，学生可以直接复制其他同学的作业；由于共享文件夹一次只能同时提供10个连接，会导致其他学生无法打开共享文件夹。(2)FTP±传作业方式。建立FTP的方式比共享文件夹少了一些限制，然而因为权限的问题也使得作业管理上显得'‘不安全”，而且配置软件也显得繁琐。(1)邮件提交作业方式。学生直接将作业通过邮

3、件的方式发送给教师，这种方式最大的不便就是教师不得不一一下载，并按照班级、课程类别进行分类，存储在自己的硬盘或本地计算机中。(2)一些髙校虽然提出了一套作业上传系统，然而并没有普及。由于需要运行在服务器上并统一管理，同时教师在操作上也显得不方便。实践证明，传统的几种方式都有着一些缺点，本文通过搭建B/S模式的作业上传系统，小型、简便，适合一般教师机使用，以提高计算机上机的教学效率。1应用环境的配置为了使得作业上传系统更加简单、通用，首先想到采用B/S模式。B/S模式,是Browser/Server(浏览器/服务器)模式

4、的缩写，其特点在于结合通用浏览器来实现强大的功能，而不需要使用复杂专用软件，这样对于学生的作业环境要求降低了，使得客户端更加简化，并且可以减少系统维护和升级带来的成本。将教师机作为服务器，直接让学生通过局域网内的网站上传到教师机。所使用语言也为了能在各种教师机上都能支持，采用Asp语言。在教师机上安装和配置IIS显得多余而繁琐，我们采用NetBox。NetBox是一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，它是除了Apache和微软的IIS和PWS之外的第4个可以运行ASP的应用服务器，直接运行即可将自

5、己的电脑搭建成一个网络服务器。2系统功能模块本系统主要提供3个功能：资源下载列表、上传作业、已交作业列表。①资源下载列表：可提供上机作业练习所需要的资源，便于学生下载：如图片、视频、文本等；②上传作业：上传本次电子作业；③已交作业列表：可浏览已上传的作业名称，无下载功能，便于教师和学生查看，也可避免学生随意拷贝其他同学作业。3具体实现过程(1)网站只在机房内可访问，只面向本班学生，所以无需注册用户、登陆等环节。首页default,htm的主要实现三个链接如下：资源下载列表：点击进入上传作业：点击进入已交作业列表：点击进

6、入(2)在网站目录下建立两个文件夹:download和updata。download文件夹存放供学生下载的所有资源，updata文件夹用于存放学生上传的作业(一般要求学生的作业以自己的学号或者姓名命名，教师可直接从此处获得学生上交的作业）。通过Scripting.FileSystemObject读取文件夹下所有的文件并显示。资源下载列表页面download」ist.asp的主要代码如下：DimmyFileObject,myFolderSetmyFileObject二Server・CreateObject(”Script

7、ing.FileSystemObject”)SetmyFo1der=myFi1eObject.GetFolder(Server・MapPath(”download”))Response.Write“提供下载的资源：ForEachItemInmyFolder・FilesResponse.Write““&Item.name&“Next(1)将网上的无组件上传类-upload_5xsoft代码复制到文本文档，另存为upload,inco①学生上传作业的页面saveannounce_upload.asp主要代码如下：②上传结果

8、的页面saveannouce_upfile.asp主要代码如下：”/”thenformPath=formPath&”/”foreachformNameinupload・f订esetfile=upload.hie(formName)iffile・FileSize>0thenfile.SaveAsServer.mappath(upda