【发布时间】:2021-06-23 16:30:14
【问题描述】:
我在更改托管服务提供商时出现了奇怪而奇怪的错误:
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
【问题讨论】:
-
可能路径无效。做一个
Response.Write("path is: " & path & fileItem.FileName & "<br />")并发布你得到的结果。
标签: asp-classic adodb