5

次のホスティングプロバイダーを変更しているときに、奇妙で奇妙なエラーが表示されます。

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
4

1 に答える 1

4

最初にチェックはpath & fileItem有効なアドレスですか? フォルダーが作成されていない場合は作成します。また、権限を再確認してください。IUSR「フルコントロール」の許可を与えていますか？それらを確認してください。

于 2013-05-29T10:40:13.960 に答える