四． 程序源代碼：
＜% @ Import Namespace=" System.IO " %＞
＜Html ＞
＜BODY ＞
＜SCRIPT LANGUAGE = "VB" RUNAT = "SERVER" ＞
Sub UploadFile_Clicked ( Sender as Object, e as EventArgs )
Dim lstrFileName as string
Dim lstrFileNamePath as string
Dim lstrFileFolder as string
' 如果上傳目錄為空，就使用" c:\ "作為缺省上傳目錄
' 獲得上傳到服務器的目錄名稱
if dir.value ＜＞ "" then
lstrFileFolder = dir.value
else
lstrFileFolder = "c:\"
end if
' 獲得文件名稱
lstrFileName = loFile.PostedFile.FileName
' 注： loFile.PostedFile.FileName 返回的是
通過文件對話框選擇的文件名，這之中包含了文件的目錄信息
lstrFileName = Path.GetFileName ( lstrFileName )
' 去掉目錄信息，返回文件名稱
' 判斷上傳目錄是否存在，不存在就建立
If ( not Directory.Exists ( lstrFileFolder ) ) Then
Directory.CreateDirectory ( lstrFileFolder )
End If
'上傳文件到服務器
lstrFileNamePath = lstrFileFolder & lstrFileName
' 得到上傳目錄及文件名稱
loFile.PostedFile.SaveAs ( lstrFileNamePath )
' 獲得並顯示上傳文件的屬性
FileName.Text = lstrFileName
' 獲得文件名稱
FileType.Text = loFile.PostedFile.ContentType
' 獲得文件類型
FileLength.Text = cStr ( loFile.PostedFile.ContentLength )
' 獲得文件長度
FileUploadForm.visible = false
AnswerMsg.visible = true
' 顯示上傳文件屬性
End sub
＜/SCRIPT ＞
＜ASP:panel id = "FileUploadForm" visible = " true " runat = "server" ＞
＜form method = "post" enctype = "multipart/form-data" runat = "server" ＞
＜h1 ＞ 歡迎使用ASP.Net頁面實現文件上傳 ＜/h1 ＞
請選擇上傳到服務器的文件名稱：
＜input id = "loFile" type = "file" runat = "server" ＞ ＜br ＞
請輸入上傳到服務器的目錄名稱：
＜input id = "dir" type = "text" runat = "server" ＞ ＜br ＞
＜input type = "submit" value = "開始上傳" OnServerClick = "
UploadFile_Clicked" runat = "server" ＞
＜br ＞
＜/form ＞
＜/ASP:panel ＞
＜ASP:panel id = "AnswerMsg" visible = " false " runat = "server" ＞
謝謝使用ASP.Net頁面實現文件上傳 ＜br ＞
成功上傳 ＜ASP:label id = "FileName" runat = "server" /＞ ＜br ＞
文件大小 ＜ASP:label id = "FileLength" runat = "server" /＞ 字節 ＜br ＞ 文件類型 ＜ASP:label id = "FileType " runat = "server" /＞ ＜br ＞
＜/ASP:panel ＞
＜/BODY ＞
＜/Html ＞
五． 總結
至此我們就完成了一個比較完善的FTP文件上傳軟件的全部工作，由此可見ASP.NET的功能還是比較強大的。通過本例子，我們也看到要想靈活運用ASP.Net，還要深入掌握微軟公司為.NET FRAMEWORK開發的軟件開發包（SDK BETA 2）,只有掌握了.NET FRAMEWORK開發的軟件開發包，才可能用ASP.Net開發出功能更強大，生命力更大的軟件。
