<input id = " loFile " type = " file " runat = " server " >
<form method = " post " enctype =" multipart/form-data " runat = " server ">
</form >
1.獲得上傳文件的名稱:(關鍵是PostedFile類的應用)
使用Path類中的GetFileName方法,具體如下:
lstrFileName = loFile.PostedFile.FileName ' 注: loFile.PostedFile.FileName 返回的是通過文件對話框選擇的文件名, 這之中包含了文件的目錄信息 lstrFileName = Path.GetFileName ( lstrFileName ) ' 去掉目錄信息,返回文件名稱 |
(2). 判斷上傳目錄是否存在,不存在就建立
建立目錄要使用到Directory類中的 CreateDirectory 方法,判斷目錄是否存在要用到 Directory 類中的Exists方法。具體如下:
If ( not Directory.Exists( lstrFileFolder ) ) Then Directory.CreateDirectory ( lstrFileFolder ) End If ' 注:lstrFileFolder是用戶填入的目錄名稱,或者是缺省的目錄名稱 |
<四>.上傳選定文件到服務器上
在前面工作都已經完成以後,就可以上傳文件了,上傳文件相對比較簡單,就用下面2行語句就可以完成上傳工作。
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 '顯示上傳文件屬性 |
<% @ 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 >
Trackback: http://tb.donews.net/TrackBack.aspx?PostId=240207