Question

当我更改托管服务提供商时，我发现了奇怪而奇怪的错误：

ADODB.Stream错误'800a0bbc'

写入文件失败。

/cp/portal_upload.asp，第63行

我提供了所需的权限，它解决了更新Access DB问题，但文件上传仍然没有修复。

这是代码，提前谢谢：

Public Sub Save(path)
    Dim streamFile, fileItem

    if Right(path, 1) <> "\" then path = path & "\"

    if not uploadedYet then Upload

    For Each fileItem In UploadedFiles.Items
        Set streamFile = Server.CreateObject("ADODB.Stream")
        streamFile.Type = 1
        streamFile.Open
        StreamRequest.Position=fileItem.Start
        StreamRequest.CopyTo streamFile, fileItem.Length
        streamFile.SaveToFile path & fileItem.FileName, 2  'This is line 63
        streamFile.close
        Set streamFile = Nothing
        fileItem.Path = path & fileItem.FileName
     Next
End Sub

Answer 1

首先检查path & fileItem有效地址？如果未创建文件夹，请创建它。此外，重新检查您的权限。您是否已授予IUSER“完全控制”权限？检查那些。

ADODB.Stream错误'800a0bbc'写入文件失败

1 个答案: