利用ASP.NET設計FTP檔案上傳(下)

四． 程式原始碼：

＜% @ 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開發出功能更強大，生命力更大的軟體。