基于Asp的计算机上机作业上传系统研究

摘要：在计算机教学中，计算机上机作业是很重要的部分，然而，传统的上机作业上交方式都受到了一些软、硬件环境的限制或使用起来不方便、不通用。经过研究，利用无组件上传类-upload_5xsoft设计一种小型上机作业上传系统实现B/S模式上传方法，简单、通用，可提高教学效率和公正评价学生成绩。

关键词：计算机教学；作业上传；B/S；Asp

中图分类号：TP319文献标识码：A文章编号：1672-7800（2012）012-0119-02

0引言

在计算机教学过程中，由于课程的特殊性，计算机经常需要做上机作业或练习，并以此来评价本课程的成绩。上机作业的上交就成了计算机上机教学的一个必不可少的环节。已有的上机作业上交方式有以下几种：

（1）文件夹共享方式。这种方式最简单，但经过教学实践发现这种方式有以下弊端：因为权限完全开放，学生可以直接复制其他同学的作业；由于共享文件夹一次只能同时提供10个连接，会导致其他学生无法打开共享文件夹。

（2）FTP上传作业方式。建立FTP的方式比共享文件夹少了一些限制，然而因为权限的问题也使得作业管理上显得“不安全”，而且配置软件也显得繁琐。

（3）邮件提交作业方式。学生直接将作业通过邮件的方式发送给教师，这种方式最大的不便就是教师不得不一一下载，并按照班级、课程类别进行分类，存储在自己的硬盘或本地计算机中。

（4）一些高校虽然提出了一套作业上传系统，然而并没有普及。由于需要运行在服务器上并统一管理，同时教师在操作上也显得不方便。

实践证明，传统的几种方式都有着一些缺点，本文通过搭建B/S模式的作业上传系统，小型、简便，适合一般教师机使用，以提高计算机上机的教学效率。

1应用环境的配置

为了使得作业上传系统更加简单、通用，首先想到采用B/S模式。B/S模式，是Browser/Server（浏览器/服务器）模式的缩写，其特点在于结合通用浏览器来实现强大的功能，而不需要使用复杂专用软件，这样对于学生的作业环境要求降低了，使得客户端更加简化，并且可以减少系统维护和升级带来的成本。

将教师机作为服务器，直接让学生通过局域网内的网站上传到教师机。所使用语言也为了能在各种教师机上都能支持，采用Asp语言。在教师机上安装和配置IIS显得多余而繁琐，我们采用NetBox。NetBox是一个使用脚本语言进行应用软件开发与的开发环境和运行平台，它是除了Apache和微软的IIS和PWS之外的第4个可以运行ASP的应用服务器，直接运行即可将自己的电脑搭建成一个网络服务器。

2系统功能模块

本系统主要提供3个功能：资源下载列表、上传作业、已交作业列表。①资源下载列表：可提供上机作业练习所需要的资源，便于学生下载：如图片、视频、文本等；②上传作业：上传本次电子作业；③已交作业列表：可浏览已上传的作业名称，无下载功能，便于教师和学生查看，也可避免学生随意拷贝其他同学作业。

3具体实现过程

（1）网站只在机房内可访问，只面向本班学生，所以无需注册用户、登陆等环节。首页default.htm的主要实现三个链接如下：

资源下载列表：点击进入

上传作业： 点击进入

已交作业列表： 点击进入

（2）在网站目录下建立两个文件夹：download和updata。download文件夹存放供学生下载的所有资源，updata文件夹用于存放学生上传的作业（一般要求学生的作业以自己的学号或者姓名命名，教师可直接从此处获得学生上交的作业）。通过Scripting.FileSystemObject读取文件夹下所有的文件并显示。

资源下载列表页面download_list.asp的主要代码如下：

Dim myFileObject， myFolder

Set myFileObject=Server.CreateObject（"Scripting.FileSystemObject"）

Set myFolder=myFileObject.GetFolder（Server.MapPath（"download"））

Response.Write "提供下载的资源：

"

For Each Item In myFolder.Files

Response.Write "" & Item.name & "

"

Next

（3）将网上的无组件上传类-upload_5xsoft代码复制到文本文档，另存为upload.inc。

①学生上传作业的页面saveannounce_upload.asp主要代码如下：

我的作业：

②上传结果的页面saveannouce_upfile.asp主要代码如下：

dim upload，file，formName，formPath

set upload=new upload_file

formPath=upload.form（"filepath"）

if right（formPath，1）"/" then formPath=formPath&"/"

for each formName in upload.file

set file=upload.file（formName）

if file.FileSize>0 then

file.SaveAs Server.mappath（"updata＼"&file.FileName）

else

‘……

end if

set file=nothing

next

set upload=nothing

response.write "文件上传成功"

%>

（4）已交作业列表页面updata_list.asp的主要代码如下：

Dim myFileObject， myFolder

Set myFileObject=Server.CreateObject（"Scripting.FileSystemObject"）

Set myFolder=myFileObject.GetFolder（Server.MapPath（"updata"））

Response.Write "已上交的作业：

"

ForEachItemInmyFolder.Files

Response.Write Item.name & "

"

Next

（5）最后，将NetBox拷贝至网站主文件夹下并运行即可，默认以当前路径作为网站目录。打开浏览器，输入本机的IP地址即可浏览作业上传系统首页。在本局域网内的电脑均可打开本网站。

4结语

本系统小型通用、使用简单，拷贝整个网站目录即可在windows 2000（及以上版本）电脑上搭建网站，方便移植。当然在此基础上可以扩展出其它功能，比如结合数据库可将优秀的学生作业归类，提供下载展示功能；对作业进行评价等功能。在上机教学中可能出现千头万绪的问题，上机作业上传系统可减轻教师的负担，提高教学效率。

参考文献：

[1]许曰宾.ASP 网络编程实例[M].北京：人民邮电出版社，2001.

[2]姜卫.Web应用程序开发教程：ASP、SQL Server[M].北京：人民邮电出版社，2009.

[3]李睦芳.Dreamweaver CS4 +ASP动态网站开发从基础到实践[M].北京：机械工业出版社，2010.