巧用ASP.NET 技術實現上機作業的回收批改

☆ 代 彥

（宜賓市第一中學校，四川宜賓 644000）

在教學中我們通常使用“任務驅動”的教學方式，先為學生布置一些上機任務，讓學生在計算機上進行實踐操作，然后教師到學生的計算機上去檢查，以了解學生的學習情況。這樣不僅麻煩，更重要的是許多學生的學習情況還來不及檢查就已經下課了，使得對學生的學習情況無從考查。因此，筆者針對這個問題使用ASP．NET 技術編寫了一個簡單但很實用的程序以完成作業的回收，在教學中發揮了很大的作用。下面筆者就其實現方法加以介紹。

在ASP．NET 中實現上機作業的布置和回收只需要一個程序，并且學生機上不需要安裝其它任何軟件，它不但能收課堂作業也能收家庭作業。當學生把上機作業做好后，只要填上姓名，找出作業文件通過這個文件將上機作業傳到教師機指定的文件夾中。此程序對上傳的文件名進行了處理，上傳后存到教師機上的文件名是以學生的名字進行命名的，如果出現學生重復提交作業，程序并不會覆蓋原來的文件，而是在后面加數字序號來區別。這樣教師就可以到指定的文件夾中對學生作業依次檢查打分。為了防止學生惡意上傳其它文件，本程序限制只能上傳小于5M 的文件。

一、 架設一個支持ASP．NET 技術的WEB 服務器

在學校教師機或服務器上大多安裝的是Windows 2000 server 或Windows 2000 advanced server，這兩種服務器操作系統只要安裝了IIS（internet 服務信息）就可以支持ASP 了。對于沒有安裝的IIS 的可以點擊：開始－＞設 置－＞控 制 面 板－＞添 加／刪 除 程 序－＞添 加／刪 除Windows 組件來完成IIS 的安裝。注意：對于Windows 2000 系列，它的IIS 版本是5．0 的，它只能支持ASP。如果用ASP 來開發這個功能也可，但是需要其它組件或程序支持，程序寫起來很不方便，效率也不高，因此，還需要對IIS 進行升級。這時我們可以到微軟的主頁上下載Microsoft ．Net Framework 來安裝以使服務器支持ASP．NET。如果你的服務器本身就是Windows 2003，這樣只要你安裝了IIS 就可以支持ASP．NET。

二、設置Web 站點并錄入程序

支持ASP．NET 的WEB 服務器架設好了，還必須設置用于發布Web 信息的站點，如內網站點：http:／／192．168．0．1。關于怎樣設置Web 站點的文章在網上很常見，可以在網上搜索。要注意的是在設置的時候要給予站點讀取、寫入的權限，不然文件是不能傳上來的。為了便于測試,我們在站點中建立一個test 的文件夾, 在里面建立一個index．aspx 的網頁文件,最后因為我們的程序需要將學生上傳的文件放入一個專用的文件夾“upfile”,因此還需要在test 的目錄中建立一個名叫“upfile”的文件夾。我們的index．aspx 的內容如下：（單引號后面的是注釋，可以不輸入）

＜script language＝″VB″ runat＝″server″＞

Sub UploadFile(s As Object, e As EventArgs)

If FileUp．PostedFile．ContentLength ＝0 or FileUp．PostedFile．ContentLength＞5000000 Then

Response．Write(″您的文件好像選錯了喲！″)

Response．End() ＇ 如果上傳文件的字節為0 或大于5M 就終止上傳

End If

Dim s＿FileName,d＿FileName,d＿FileName1 as String

Dim times

d＿FileName1＝Trim (StudentName．Value) ＇ 將姓名進行去空格處理，

If len(d＿FileName1)＜2 Then

Response．Write(″您的名字是不是輸錯了，或沒有輸入？″)

Response．End()

End if

s＿FileName＝FileUp．PostedFile．FileName ＇ 獲取源文件在客戶端的路徑

s＿FileName ＝right (S＿FileName,Len (S＿FileName) －InStrRev(S＿FileName,″．″)＋1) ＇ 獲取源文件的擴展名

Dim fso＝ CreateObject(″Scripting．FileSystemObject″) ＇定義文件操作對象

times＝1

d＿FileName1 ＝Server．MapPath (″ ．／″ ) ＋″ upfile＼″ ＋d＿FileName1

d＿FileName＝d＿FileName1＋s＿FileName ＇ 生成最終文件路徑

Do While fso．FileExists (d＿FileName) ＇ 文件存在否？若存在則在后面加序號以區別

d＿FileName ＝d＿FileName1 ＋″ ＿″ ＋Cstr (times) ＋s＿FileName

times＝times＋1 Loop

FileUp．PostedFile．SaveAs( d＿FileName ) ＇ 將文件保存在服務器上

Response．Write(″作業提交成功！！！″)

Response．End()

End Sub

＜／script＞

＜html＞＜title＞作業＜／title＞

＜body bgcolor＝white＞

＜form enctype＝″multipart／form－data″ runat＝″server″＞

明天是您的朋友李明的生日，為了慶祝他的生日，請用您Word 為他寫一封祝賀信。要求：＜br＞

（1）先寫一封簡短的信，必需按書信格式；＜br＞

（2）將信的正文格式設置為“兩端對齊”，并為正文添加5%的底紋；＜br＞

（3）將信的左邊距設為3．5 厘米，右邊距設為3 厘米；＜br＞

（4）設置頁腳，頁腳文字為“生日快樂”；＜br＞

（5）在信中插入任意一張圖片，設置為四周環繞。＜br＞

將作業完成后，通過此頁面提交到教師機上。＜br＞

姓名：＜input type＝″text″ id＝″StudentName″ runat＝″server″＞＜br＞

作業 文件： ＜input name ＝″File″ type ＝″File″ id ＝″FileUp″ runat＝″server″＞＜br＞0

＜asp:button id ＝″ Upload″ OnClick ＝″ UploadFile″Text＝″交作業″ runat＝″server″／＞

＜／form＞

＜／body＞

＜／html＞

三、運行站點上的頁面程序

只要學生端訪問：http:／／192．168．0．1／test 就可以訪問這個作業布置／回收網頁了，當作業做完后就可以通過這個網頁將作業上傳到教師服務器上的upfile 文件夾中,如果同一個學生上傳多次將以這個學生的姓名下面加數字來標識,而不會將原來上傳的文件覆蓋。