摘要：本文介紹設(shè)計(jì)一組ASP程序與一個(gè)考勤點(diǎn)名程序，在計(jì)算機(jī)教室中實(shí)現(xiàn)了一個(gè)微型網(wǎng)站，提供了上課考勤、作業(yè)布置、作業(yè)上傳與下載、課件演示與下載、考勤管理與查詢(xún)、作業(yè)管理與查詢(xún)等功能，有效地提高了計(jì)算機(jī)教室中課堂教學(xué)的管理效率。

關(guān)鍵詞：ASP；作業(yè)文件上傳與下載；計(jì)算機(jī)教室微型網(wǎng)站

中圖分類(lèi)號(hào)：G64 文獻(xiàn)標(biāo)識(shí)碼：B

文章編號(hào)：1672-5913（2007）09-0052-03

1 引言

在計(jì)算機(jī)教室進(jìn)行教學(xué)過(guò)程中，為了訓(xùn)練學(xué)生的動(dòng)手能力，很多作業(yè)練習(xí)都是在計(jì)算機(jī)上直接完成。計(jì)算機(jī)教室中的教學(xué)與傳統(tǒng)的教室里的教學(xué)有很大區(qū)別，怎么樣充分利用現(xiàn)代的教學(xué)資源在計(jì)算機(jī)教室組織好教學(xué)是教師們關(guān)心的問(wèn)題。為了教學(xué)的需要，本文介紹設(shè)計(jì)一組ASP程序與一個(gè)考勤點(diǎn)名程序，在計(jì)算機(jī)教室中實(shí)現(xiàn)了一個(gè)微型網(wǎng)站，提供了上課考勤、作業(yè)布置、作業(yè)上傳與下載、課件下載、歷次考勤與作業(yè)查詢(xún)等功能。只要在教師機(jī)Windows中安裝IIS系統(tǒng)，把程序放在一個(gè)文件夾中就可以工作，程序簡(jiǎn)單實(shí)用，方便了計(jì)算機(jī)教室中的教學(xué)的學(xué)習(xí)與管理。

2 程序功能

首先把程序所在的文件夾設(shè)置為Web共享，學(xué)生啟動(dòng)瀏覽器瀏覽教師計(jì)算機(jī)的index.asp文件就可以進(jìn)入程序。點(diǎn)擊“課程教學(xué)”學(xué)生可查看本次課程的教學(xué)內(nèi)容；點(diǎn)擊“課程作業(yè)”可查看本次課程的作業(yè)；點(diǎn)擊“作業(yè)提交”學(xué)生可把自己做好的作業(yè)上傳到教師計(jì)算機(jī)；點(diǎn)擊“作業(yè)查詢(xún)”學(xué)生可查到自己歷次提交的作業(yè)與教師對(duì)各次作業(yè)的評(píng)價(jià)，并可以下載歷次的作業(yè)；點(diǎn)擊“出勤查詢(xún)”學(xué)生可查看到自己歷次課的出勤情況；點(diǎn)擊“學(xué)生名單”可查詢(xún)學(xué)生班級(jí)、姓名與學(xué)號(hào)；點(diǎn)擊“修改密碼”學(xué)生可修改自己的密碼。

3 程序設(shè)計(jì)

3.1 數(shù)據(jù)庫(kù)設(shè)計(jì)

系統(tǒng)數(shù)據(jù)庫(kù)可采用Access數(shù)據(jù)庫(kù)，也可以采用SQL Server數(shù)據(jù)庫(kù)，主要表格有：

* Students：學(xué)生表，sno，sname，spass分別記錄學(xué)生的學(xué)號(hào)、姓名、班級(jí)及登錄密碼等信息；

* Courses：課程表，course記錄教師所講授的課程；

* CourseTaught：課程教學(xué)表，DTC，teacher，sclass，course分別記錄在某個(gè)時(shí)間，某教師為某個(gè)班級(jí)講授的課程；

* Checkin： 學(xué)生考勤表、DTC，sno，teacher，status分別記錄在某個(gè)時(shí)間，某學(xué)生上某教師的課的出勤情況；

* Handin：學(xué)生作業(yè)提交表，dt，sno，file，comment分別表示在某個(gè)時(shí)間，學(xué)生提交的作業(yè)文件與教師對(duì)該作業(yè)的評(píng)價(jià)，ID是序列號(hào)。

各個(gè)表之間的關(guān)系如圖1所示。

3.2 點(diǎn)名程序設(shè)計(jì)

由于上課點(diǎn)名程序僅由教師在教師計(jì)算機(jī)中使用，所以可用C++設(shè)計(jì)成為獨(dú)立的執(zhí)行程序，如圖2所示。該程序通過(guò)ADO技術(shù)訪問(wèn)數(shù)據(jù)庫(kù)，實(shí)現(xiàn)點(diǎn)名功能與出勤統(tǒng)計(jì)功能。教師選擇上課時(shí)間、班級(jí)及課程，就可以點(diǎn)名。

3.3 ASP程序設(shè)計(jì)

ASP程序組中最重要的是學(xué)生作業(yè)文件的提交與文件下載的功能設(shè)計(jì)。提交文件采用ENCTYPE 屬性值為MULTIPART/FORM-DATA的表單，形式如下：

＜ｆｏｒｍ ｎａｍｅ＝＂ｆｒｍ＂ ａｃｔｉｏｎ＝＂ｊｚｙｒｅｓｐ．ａｓｐ＂ ｍｅｔｈｏｄ＝＂ｐｏｓｔ＂

ＥＮＣＴＹＰＥ＝＂ＭＵＬＴＩＰＡＲＴ／ＦＯＲＭ－ＤＡＴＡ＂＞

＜ｔａｂｌｅ＞

＜ｔｒ＞＜ｔｄ＞學(xué)號(hào)＜／ｔｄ＞＜ｔｄ＞＜ｉｎｐｕｔ ｔｙｐｅ＝＂ｔｅｘｔ＂ ｎａｍｅ＝＂ｓｎｏ＂ ｍａｘｌｅｎｇｔｈ＝１６＞＜／ｔｄ＞＜／ｔｒ＞

＜ｔｒ＞＜ｔｄ＞姓名＜／ｔｄ＞＜ｔｄ＞＜ｉｎｐｕｔ ｔｙｐｅ＝＂ｔｅｘｔ＂ ｎａｍｅ＝＂ｓｎａｍｅ＂ ｍａｘｌｅｎｇｔｈ＝８＞＜／ｔｄ＞＜／ｔｒ＞

＜ｔｒ＞＜ｔｄ＞密碼＜／ｔｄ＞＜ｔｄ＞＜ｉｎｐｕｔ ｔｙｐｅ＝＂ｐａｓｓｗｏｒｄ＂ ｎａｍｅ＝＂ｓｐａｓｓ＂ ｍａｘｌｅｎｇｔｈ＝１６＞＜／ｔｄ＞＜／ｔｒ＞

＜ｔｒ＞＜ｔｄ＞文件＜／ｔｄ＞＜ｔｄ＞＜ｉｎｐｕｔ ｔｙｐｅ＝＂ｆｉｌｅ＂ ｎａｍｅ＝＂ｆｉｌｅ＂＞＜／ｔｄ＞＜／ｔｒ＞

＜／ｔａｂｌｅ＞＜ｐ＞

＜ｉｎｐｕｔ ｔｙｐｅ＝＂ｒｅｓｅｔ＂ ｖａｌｕｅ＝＂重置＂＞

＜ｉｎｐｕｔ ｔｙｐｅ＝＂ｂｕｔｔｏｎ＂ ｖａｌｕｅ＝＂提交＂ ｏｎｃｌｉｃｋ＝＂ｏｎ＿ｓｕｂｍｉｔ（）＂＞

＜／ｆｏｒｍ＞

其中on_submit()為JavaScript編寫(xiě)的數(shù)據(jù)檢查程序，為了避免教師計(jì)算機(jī)服務(wù)器過(guò)于繁忙，可以限制學(xué)生提交文件的大小。在服務(wù)器端限制的方法是如接收到的數(shù)據(jù)大于指定的值，則放棄存盤(pán)。如在客戶(hù)端限制提交文件的大小，則可以在on_submit()函數(shù)中編寫(xiě)一段JavaScript程序，應(yīng)用FileSystemObject對(duì)象獲取文件的字節(jié)數(shù)，當(dāng)文件過(guò)大時(shí)就拒絕提交[1]。為了減輕服務(wù)器的負(fù)擔(dān)，本文采用客戶(hù)端限制文件大小的方法，程序如下：

＜ｓｃｒｉｐｔ ｌａｎｇｕａｇｅ＝＂ＪａｖａＳｃｒｉｐｔ＂＞

ｆｕｎｃｔｉｏｎ ｏｎ＿ｓｕｂｍｉｔ（）

｛

ｖａｒ ｆｎ＝ｄｏｃｕｍｅｎｔ．ｆｒｍ．ｆｉｌｅ．ｖａｌｕｅ；

／／上傳文件名稱(chēng)

ｉｆ（ｆｎ＝＝＂＂） ｒｅｔｕｒｎ；

ｖａｒ ｆｓｏ＝ｎｅｗＡｃｔｉｖｅＸＯｂｊｅｃｔ（＂Ｓｃｒｉｐｔｉｎｇ．ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ＂）；

／／建立ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ對(duì)象

ｖａｒ ｆｏｂｊ＝ｆｓｏ．ＧｅｔＦｉｌｅ（ｆｎ）；／／獲取文件對(duì)象

ｉｆ（ｆｏｂｊ．Ｓｉｚｅ＞４０９６００） ａｌｅｒｔ（＂上傳文件不能超過(guò)４００ＫＢ＂）；

ｅｌｓｅ ｄｏｃｕｍｅｎｔ．ｆｒｍ．ｓｕｂｍｉｔ（）； ／／提交表單

｝

＜／ｓｃｒｉｐｔ＞

提交后服務(wù)器端的原始二進(jìn)制數(shù)據(jù)可以在jzyresp.asp文件中用response.binaryread方法讀出，經(jīng)過(guò)分析，讀出的數(shù)據(jù)格式為[2] ：

-----------------------------7d739932f03ce

Content-Disposition: form-data; name=\"file\"; filename=\"D:\\class\\作業(yè)2-1.doc\"

Content-Type: text/html

[文件數(shù)據(jù)]

---------------------------7d739932f03ce--

由此可見(jiàn)，原始數(shù)據(jù)分為多個(gè)數(shù)據(jù)段，各個(gè)數(shù)據(jù)段之間用回車(chē)換行分隔。第一行數(shù)據(jù)是分隔符號(hào)，第二行數(shù)據(jù)中包含了文件名稱(chēng)，第三行是數(shù)據(jù)類(lèi)型，第四行是空行，第五行開(kāi)始一直到下一個(gè)分隔符號(hào)之前的為上傳文件的實(shí)際數(shù)據(jù)。注意分隔符的哪個(gè)十六進(jìn)制數(shù)字每次是不同的。編寫(xiě)下列一段程序便可以分解出上傳文件數(shù)據(jù)：

<%

dim formsize，formdata，bncrlf，divider，datastart，dataend，filedata

formsize=request.totalbytes '提交數(shù)據(jù)的總字節(jié)數(shù)

formdata=request.binaryread(formsize) '獲取原始二進(jìn)制數(shù)據(jù)

bncrlf=chrB(13) chrB(10)'回車(chē)換行

divider=leftB(formdata，instrb(formdata，bncrlf)-1)'獲取分隔符

datastart=instrb(formdata，bncrlf bncrlf)+4 '數(shù)據(jù)開(kāi)始位置

dataend=instrb(datastart+1，formdata，divider)-datastart-2'數(shù)據(jù)結(jié)實(shí)位置

filedata=midb(formdata，datastart，dataend)'分離出文件數(shù)據(jù)

%>

考慮到學(xué)生提交的作業(yè)文件數(shù)據(jù)量較大，因此程序在數(shù)據(jù)庫(kù)中僅記錄作業(yè)提交的基本信息，程序另外按班級(jí)、提交日期、學(xué)號(hào)與姓名自動(dòng)建立磁盤(pán)目錄，把提交的文件保存到對(duì)應(yīng)目錄中，效果如圖3所示。

為了方便教學(xué)，學(xué)生可以下載教師的教案及自己歷次提交的作業(yè)文件。下載的程序比較簡(jiǎn)單，可利用ASP的Stream對(duì)象讀取文件，調(diào)用response.binarywrite就可把文件寫(xiě)到客戶(hù)端下載，主要程序如下：

<%

dim obj，v，p，fn

fn=trim(request.QueryString(\"fileName\"))'獲取要下載的文件名稱(chēng)

if fn=\"\" then response.end

set obj=server.createObject(\"ADODB.Stream\")

obj.type=1?二進(jìn)制數(shù)據(jù)

obj.open

obj.LoadFromFile(fn)'讀取文件數(shù)據(jù)

v=obj.read

obj.close

p=len(fn)

do while p>=1 and mid(fn，p，1)<>\"\\\"

p=p-1

loop

fn=mid(fn，p+1，len(fn)) '分離出文件名稱(chēng)

'輸出下載文件名稱(chēng)

response.addHeader \"Content-disposition\"，\"attachment;filename=\"+fn

response.clear

response.binarywrite v ?'輸出下載文件數(shù)據(jù)

response.flush

response.end

set obj=nothing

%>

4 結(jié)束語(yǔ)

為了教學(xué)的需要，本文介紹一組ASP程序與一個(gè)考勤點(diǎn)名程序的設(shè)計(jì)與應(yīng)用，在計(jì)算機(jī)教室中實(shí)現(xiàn)了一個(gè)微型網(wǎng)站，提供了上課考勤、作業(yè)布置、作業(yè)上傳與下載、課件下載、考勤查詢(xún)、作業(yè)查詢(xún)等功能。程序簡(jiǎn)單實(shí)用，只要在教師機(jī)Windows中安裝IIS系統(tǒng)，把程序放在一個(gè)文件夾中就可以，極大地方便了計(jì)算機(jī)教室中的教學(xué)與管理。經(jīng)過(guò)實(shí)踐應(yīng)用，效果良好。

參考文獻(xiàn)：

[1] 陳會(huì)安.JavaScript網(wǎng)頁(yè)制作徹底研究[M].北京：人民郵電出版社，2002.

[2] 衛(wèi)振林.ASP程序設(shè)計(jì)與應(yīng)用[M].北京：機(jī)械工業(yè)出版社，2004.

收稿日期：2007-04-04

作者簡(jiǎn)介：黃銳軍（1964.12-），男，漢族，廣東人，副教授，研究方向?yàn)檐浖夹g(shù)。