☆ 代 彥

（宜賓市第一中學(xué)校，四川宜賓 644000）

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

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

一、 架設(shè)一個支持ASP．NET 技術(shù)的WEB 服務(wù)器

在學(xué)校教師機(jī)或服務(wù)器上大多安裝的是Windows 2000 server 或Windows 2000 advanced server，這兩種服務(wù)器操作系統(tǒng)只要安裝了IIS（internet 服務(wù)信息）就可以支持ASP 了。對于沒有安裝的IIS 的可以點(diǎn)擊：開始－＞設(shè) 置－＞控 制 面 板－＞添 加／刪 除 程 序－＞添 加／刪 除Windows 組件來完成IIS 的安裝。注意：對于Windows 2000 系列，它的IIS 版本是5．0 的，它只能支持ASP。如果用ASP 來開發(fā)這個功能也可，但是需要其它組件或程序支持，程序?qū)懫饋砗懿环奖?，效率也不高，因此，還需要對IIS 進(jìn)行升級。這時我們可以到微軟的主頁上下載Microsoft ．Net Framework 來安裝以使服務(wù)器支持ASP．NET。如果你的服務(wù)器本身就是Windows 2003，這樣只要你安裝了IIS 就可以支持ASP．NET。

二、設(shè)置Web 站點(diǎn)并錄入程序

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

＜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() ＇ 如果上傳文件的字節(jié)為0 或大于5M 就終止上傳

End If

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

Dim times

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

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) ＇ 獲取源文件的擴(kuò)展名

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) ＇ 文件存在否？若存在則在后面加序號以區(qū)別

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

times＝times＋1 Loop

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

Response．Write(″作業(yè)提交成功！?。　?

Response．End()

End Sub

＜／script＞

＜html＞＜title＞作業(yè)＜／title＞

＜body bgcolor＝white＞

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

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

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

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

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

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

（5）在信中插入任意一張圖片，設(shè)置為四周環(huán)繞。＜br＞

將作業(yè)完成后，通過此頁面提交到教師機(jī)上。＜br＞

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

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

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

＜／form＞

＜／body＞

＜／html＞

三、運(yùn)行站點(diǎn)上的頁面程序

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