2013-04-24 39 views
0

決定刪除FileUpload並嘗試AsyncFileUpload - 除了必須使用觸發器使頁面發佈完全恢復,並讓用戶想知道發生了什麼事情FileUpload的工作沒有一個困境....不能一輩子我讓AsyncFileUpload工作,並且HasFile始終是false。有任何想法嗎?在某處我有一個由意大利開發人員構建的Ajax上傳器,這個開發人員工作得很好,但是有很多關於將文件先保存到服務器然後刪除的問題。AsyncFileUpload HasFile

謝謝。

vCmd.Parameters.AddWithValue("@Status_ID", 1) 
     vCmd.Parameters.AddWithValue("@Customer_ID", CustomerID) 
     vCmd.Parameters.AddWithValue("@Application_Description", vDescription) 
     If AsyncFileUpload1.HasFile Then 
      Dim vLen As Integer = AsyncFileUpload1.PostedFile.ContentLength 
      Dim vByte(vLen - 1) As Byte 
      AsyncFileUpload1.PostedFile.InputStream.Read(vByte, 0, vLen) 
      vCmd.Parameters.AddWithValue("@Documents_Main", vByte) 
      vCmd.Parameters.AddWithValue("@Flag_DocumentLoaded", 1) 
     Else 
      vCmd.Parameters.AddWithValue("@Flag_DocumentLoaded", 0) 
     End If 
     vCmd.Parameters.AddWithValue("@Contractor_Name", vContractorName) 
     vCmd.Parameters.AddWithValue("@Contractor_Address", vContractorAddress) 
     vCmd.Parameters.AddWithValue("@Contractor_Licence", vContractorLicence) 
     vCmd.Parameters.AddWithValue("@Contractor_Phone", vContractorPhone) 
     vCmd.Parameters.AddWithValue("@Reference_One", vReferenceOne) 

回答

0

管理終於得到它在事件

Private Sub FileUploaded(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs) 
    Try 

     If AsyncFileUpload1.HasFile Then 
      Session("UploadedPDF") = AsyncFileUpload1.FileBytes 
     End If 


    Catch ex As Exception 
     EmailError(ex.ToString, "25") 

    End Try 
End Sub 

工作

添加的處理程序UploadedComplete事件

AddHandler AsyncFileUpload1.UploadedComplete, AddressOf FileUploaded 

捕捉字節將文件上傳到DB如果有的話

If Not Session("UploadedPDF") Is Nothing Then 
      vCmd.Parameters.AddWithValue("@Update_Document", Session("UploadedPDF")) 
     End If