利用ASP.NET設計FTP文件上傳（純前臺代碼） - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- 利用ASP.NET設計FTP文件上傳（純前臺代碼） (http://www.webasp.net/article/17/16293.htm) |
| -- 作者：未知 -- 發佈日期： 2005-01-21 |
| ＜% @ 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 ＞ |
| webasp.net |