0

决定删除 FileUpload 并尝试 AsyncFileUpload - 除了必须使用触发器使页面完全回发并让用户想知道发生了什么 FileUpload 工作顺利......我一生都无法让 AsyncFileUpload 工作并且 HasFile 总是错误的。有任何想法吗？在某个地方，我确实有一个由意大利开发人员构建的 Ajax 上传器，效果很好，但是首先将文件保存到服务器然后删除它有很多麻烦。

谢谢你。

 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)
4

1 回答 1

0

终于设法让它工作

为 UploadedComplete 事件添加处理程序

AddHandler AsyncFileUpload1.UploadedComplete, AddressOf FileUploaded

捕获事件中的字节

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

将文件上传到数据库（如果存在）

 If Not Session("UploadedPDF") Is Nothing Then
            vCmd.Parameters.AddWithValue("@Update_Document", Session("UploadedPDF"))
        End If
于 2013-04-24T15:16:39.697 回答