1. 程式人生 > >Asp.net中上傳大的檔案(Vb.net程式碼)

Asp.net中上傳大的檔案(Vb.net程式碼)

Sub Button1_ServerClick(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.ServerClick
        
'檢查上傳檔案不為空
IfNot myFile.PostedFile IsNothingThen
            
Dim nam, newext, newname AsString
            
Dim i AsInteger
            nam 
= myFile.PostedFile.FileName
            
'取得檔名(抱括路徑)裡最後一個"."的索引
            i =CInt(nam.LastIndexOf("."))
            
'取得副檔名
            newext = nam.Substring(i)
            
'這裡自動根據日期和檔案大小不同為檔案命名,確保檔名不重複
            newname = Now.DayOfYear.ToString() + myFile.PostedFile.ContentLength.ToString()
            
'儲存檔案到你所要的目錄,這裡是IIS根目錄下的upload目錄.你可以改變.

'注意: 我這裡用Server.MapPath()取當前檔案的絕對目錄.在asp.net裡"/"必須用"//"代替
'Response.Write(Server.MapPath("//upload//" + newname + newext))
            myFile.PostedFile.SaveAs(Server.MapPath("upload/"+ newname + newext))
            
'得到這個檔案的相關屬性:檔名,檔案型別,檔案大小
            fname.Text = myFile.PostedFile.FileName
            fenc.Text 
= myFile.PostedFile.ContentType
            fsize.Text 
= myFile.PostedFile.ContentLength.ToString()

        
EndIf
    
End Sub