我在更改托管服务提供商时显示奇怪的错误:



我提供了所需的权限,它解决了更新 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

最佳答案

首先检查 path & fileItem 是否为有效地址?
如果未创建文件夹,请创建它。
此外,请重新检查您的权限。你给IUSER“完全控制”的权限了吗?检查那些。

关于asp-classic - ADODB.Stream 错误 '800a0bbc' 写入文件失败,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/16652896/

10-11 03:33