＜input id = " loFile " type = " file " runat = " server " ＞
＜form method = " post " enctype =" multipart/form-data " runat = " server "＞
＜/form ＞
1.獲得上傳文件的名稱：（關(guān)鍵是PostedFile類的應(yīng)用）
 使用Path類中的GetFileName方法，具體如下：

（2）. 判斷上傳目錄是否存在，不存在就建立

　　建立目錄要使用到Directory類中的 CreateDirectory 方法，判斷目錄是否存在要用到 Directory 類中的Exists方法。具體如下：

＜% @ 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:\ "作為缺省上傳目錄
　　' 獲得上傳到服務(wù)器的目錄名稱
　　if dir.value ＜＞ "" then
　　　lstrFileFolder = dir.value
　　else
　　　lstrFileFolder = "c:\"
　　end if

　　' 獲得文件名稱
　　lstrFileName = loFile.PostedFile.FileName
　　　' 注： loFile.PostedFile.FileName 返回的是
　　　通過文件對(duì)話框選擇的文件名，這之中包含了文件的目錄信息
　　lstrFileName = Path.GetFileName ( lstrFileName )
　　　' 去掉目錄信息，返回文件名稱

　　' 判斷上傳目錄是否存在，不存在就建立
　　If ( not Directory.Exists ( lstrFileFolder ) ) Then
　　　Directory.CreateDirectory ( lstrFileFolder )
　　End If

　　　'上傳文件到服務(wù)器
　　lstrFileNamePath = lstrFileFolder & lstrFileName
　　　' 得到上傳目錄及文件名稱
　　loFile.PostedFile.SaveAs ( lstrFileNamePath )

　　　' 獲得并顯示上傳文件的屬性
　　FileName.Text = lstrFileName
　　　' 獲得文件名稱
　　FileType.Text = loFile.PostedFile.ContentType
　　　' 獲得文件類型
　　FileLength.Text = cStr ( loFile.PostedFile.ContentLength )
　　　' 獲得文件長(zhǎng)度
　　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頁(yè)面實(shí)現(xiàn)文件上傳 ＜/h1 ＞
　　請(qǐng)選擇上傳到服務(wù)器的文件名稱：
?。糹nput id = "loFile" type = "file" runat = "server" ＞ ＜br ＞
　　請(qǐng)輸入上傳到服務(wù)器的目錄名稱：
?。糹nput id = "dir" type = "text" runat = "server" ＞ ＜br ＞
　＜input type = "submit" value = "開始上傳" OnServerClick = " 　
　　 UploadFile_Clicked" runat = "server" ＞
?。糱r ＞
＜/form ＞
＜/ASP:panel ＞

＜ASP:panel id = "AnswerMsg" visible = " false " runat = "server" ＞
　謝謝使用ASP.NET頁(yè)面實(shí)現(xiàn)文件上傳 ＜br ＞
　成功上傳 ＜ASP:label id = "FileName" runat = "server" /＞ ＜br ＞
　文件大小 ＜ASP:label id = "FileLength" runat = "server" /＞ 字節(jié) ＜br ＞ 　文件類型 ＜ASP:label id = "FileType " runat = "server" /＞ ＜br ＞
＜/ASP:panel ＞
＜/BODY ＞
＜/HTML ＞

Trackback: http://tb.donews.net/TrackBack.aspx?PostId=240207

• asp