当我更改托管提供商时,我显示了奇怪的错误:
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
首先检查是否path & fileItem
是有效地址吗?
如果未创建文件夹,请创建它。
另外,重新检查您的权限。你给过吗IUSR
“完全控制”的许可?
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)