利用ASP.NET設計FTP文件上傳(下)

2019-11-18 20:27:47

字體：大中小

來源：轉載

供稿：網友

　　四．程序源代碼：

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

上一篇：基于EJB技術的商務預訂系統的開發 

下一篇：利用ASP.NET設計FTP文件上傳(中)