已解决：ADODB.Stream 错误 '800a0bbc' 写入文件失败

已解决：ADODB.Stream 错误'800a0bbc' 写入文件失败

2013-05-21 10:41:27| 分类：网页学习经验 | 标签：adodb.stream 错误 800a0bbc 写入文件失败|举报|字号订阅

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

1、权限问题

800a0bbc是没有写入权限。请给你的网站目录加上IIS来宾用户(IUSR_计算名)可写权限即可解决。如果只是本地调试,直接给evryone所有权限即可.给网站所在的文件夹加上everyone权限：右键文件夹——属性——安全——编辑——添加everyone——everyone的权限控制（勾选全部）

2、上传文件大小限制

系统是NTFS的，对空间配额设定的太小了,加大后问题就没有了。更改

win2003的IIS 6.0对asp的上传文件大小为200k限制，aspx的上传程序没有影响。在IIS6.0中，默认设置是特别严格和安全的，最大只能传送204,800 个字节，这样可以最大限度地减少因以前太宽松的超时和限制而造成的攻击。IIS 6 出于安全考虑, 默认最大请求是200K(也即最大提交数据限额为200KByte，204800Byte)。（在IIS 6.0 之前的版本中无此限制）

解决方案

办法一：

第一步：修改IIS设置，允许直接编辑配置数据库。打开，Internet信息服务

第二步：先在服务里关闭iis admin service服务，找到windows\system32\inetsrv\下的metabase.xml, 打开，找到ASPMaxRequestEntityAllowed把他修改为需要的值，默认为204800，即200K，如把它修改为51200000（50M）。

然后重启iis admin service服务。如果找不到ASPMaxRequestEntityAllowed，可用方法二。

办法二：

在系统盘/windows文件夹下，新建一个CAMREA.vbs，内容如下：

Set providerObj=GetObject("winmgmts:/root/MicrosoftIISv2")

Set vdirObj=providerObj.Get("IIsWebServiceSetting='W3SVC'")

WScript.Echo "Before: " &vdirObj.AspMaxRequestEntityAllowed

vdirObj.AspMaxRequestEntityAllowed=20480000 '可接收多大字节,此处默认为：204800即：200K

vdirObj.Put_()

WScript.Echo "Now: " &vdirObj.AspMaxRequestEntityAllowed

在命令行模式下执行：

win+R——cmd——cscript %SystemRoot%CAMREA.vbs

这样ASP上传大小就更改为了上面设置的：51200000字节(50兆)

3、系统时间格式不一致问题（重点）

windows vista、windows 7、windows2008显示系统时间的格式是：2013/5/21,而并非是以前的2013-5-21,由于重命名上传的文件是按时间来命名的,本要求

为2013521.xls，但到以上windows平台上最后变成了2013/5/21.xls，这样则会有一个问题，就是会被当成文件夹和路径处理，最终会导致了真正的不存在目录，最后会写入出错。

解决方案：

只要为“2013/5/21”中的“/”替换为“”（空）即可：

原uploadsave.asp中的函数为：

function makefilename(fname)

fname = now()

fname = replace(fname,"-","")'时间格式

fname = replace(fname," ","")

fname = replace(fname,":","")

fname = replace(fname,"PM","")

fname = replace(fname,"AM","")

fname = replace(fname,"","")

fname = replace(fname,"","")

makefilename=fname

end function

改为：

function makefilename(fname)

fname = now()

fname = replace(fname,"/","")'时间格式

fname = replace(fname," ","")

fname = replace(fname,":","")

fname = replace(fname,"PM","")

fname = replace(fname,"AM","")

fname = replace(fname,"","")

fname = replace(fname,"","")

makefilename=fname

endfunction

如果使用的是风声无组件上传类RumorUpLoadClassVersion2.0

Private Sub Class_Initialize

p_Error = -1

p_MaxSize = 153600

p_FileType = "jpg/gif"

p_SavePath = ""

p_AutoSave = 0

strDate = replace(cstr(Date()),"-","") '时间格式

lngTime = clng(timer()*1000)

Set binForm = Server.CreateObject("ADODB.Stream")

Set binItem = Server.CreateObject("ADODB.Stream")

Set objForm = Server.CreateObject("Scripting.Dictionary") https://www.360docs.net/doc/2a17393972.html,pareMode = 1

End Sub

改为：

Private Sub Class_Initialize

p_Error = -1

p_MaxSize = 153600

p_FileType = "jpg/gif"

p_SavePath = ""

p_AutoSave = 0

strDate = replace(cstr(Date()),"/","") '时间格式

lngTime = clng(timer()*1000)

Set binForm = Server.CreateObject("ADODB.Stream")

Set binItem = Server.CreateObject("ADODB.Stream")

Set objForm = Server.CreateObject("Scripting.Dictionary") https://www.360docs.net/doc/2a17393972.html,pareMode = 1

End Sub

修改运行成功，问题解决