windows2008+iis7无组件上传写入文件失败ADODB.Stream 错误 800a0bbc问题

现象:写入文件失败,ADODB.Stream 错误 800a0bbc

条件:在已排除一般的解决方法文件夹权限后,并且服务器为windows2008

希望写这文章可以让大家避免浪费太多时间,最快地解决问题。

一个ASP程序用到无组件上传,在本地XP SP3 IIS5.1及在Windows Server 2003 + IIS6.0上测试均为可以正常上传.到把程序放了windows2008+IIS7.0上发现内部服务器错误500,最后我把其调为可显示详细错误信息,显示为:

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

我在网上找了很多相关的解决方法,说是文夹权限或是目录问题,很显然碰到的并非为权限问题.看了很多解决方法都没用,在差不多绝望的时候,竟然看到一篇文章说windows2008显示系统时间的格式竟然是:2010/5/24,而并非是以前的2010-5-24,由于重命名上传的文件是按时间来命名的,本要求为

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

如果可以,你可以试一下response.write 写出整个另存为的路径出来即可看到如:***/uploadfile/2010/5/24.xls,而且实际应该为::***/uploadfile/2010524.xls才是正确的

解决方法:

只要为“2010/5/24”中的“/”替换为“”(空)即可:

原uploadsave.asp中的函数为:

function makefilename(fname)
 fname = date()
 fname = replace(fname,"-","")
 fname = replace(fname," ","")
 fname = replace(fname,":","")
 makefilename=fname&".xls"
end function

在其中加上一句:fname = replace(fname,"/","")

最后为:

function makefilename(fname)
 fname = date()
 fname = replace(fname,"-","")
 fname = replace(fname,"/","")
 fname = replace(fname," ","")
 fname = replace(fname,":","")
 makefilename=fname&".xls"
end function

以上所述是小编给大家介绍的windows2008+iis7无组件上传写入文件失败ADODB.Stream 错误 800a0bbc问题,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对我们网站的支持!

时间: 2017-03-12

用ADODB.Stream转换

用ADODB.Stream转换,用streamtochar这个函数 <HTML> <html> <head> <META http-equiv="Content-Type" content="text/html; charset=Big5"> <title>test</title> <SCRIPT LANGUAGE="JavaScript"> <!-- wi

ADODB.Stream组件Charset属性值集合

翻了半天MSDN后找到的,|后边是别名 复制代码 代码如下: ANSI_X3.4-1968|iso-8859-1  ANSI_X3.4-1986|iso-8859-1  arabic|iso-8859-6  ascii|iso-8859-1  ASMO-708  Big5  chinese|gb2312  CN-GB|gb2312  cp1256|windows-1256  cp367|iso-8859-1  cp819|iso-8859-1  cp852|ibm852  cp866|ibm86

asp adodb.stream对象的方法/属性

adodb.stream对象的方法/属性 Cancel 方法      使用方法如下      Object.Cancel      说明:取消执行挂起的异步 Execute 或 Open 方法的调用. Close  方法      使用方法如下      Object.Close      :关闭对像 CopyTo 方法      使用方法如下      Object.CopyTo(destStream,[CharNumber])      说明:将对像的数据复制,destStream指向要复

利用MSXML2.XmlHttp和Adodb.Stream采集图片

利用MSXML2.XmlHttp和Adodb.Stream 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  <html xmlns="http://www.w3.org/1999/xhtml">  <

asp下用ADODB.Stream代替FSO读取文本文件

'文件内容读取. 复制代码 代码如下: Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本

使用asp下的adodb.stream 下载文件而不是打开

在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里.而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两种方法:  1.设置你的服务器的iis,给doc等后缀名做映射. 2.在向客户端发送时设置其contenttype.  下面详细说明方法2  程序代码:  复制代码 代码如下: <% Response.Buffer = true Response.Clear dim url Dim fso,fl,flsize dim 

adodb.stream读文件到数组的代码

Function filenum(filename,i) Dim st,s  Set st= CreateObject("ADODB.Stream") st.Type = 2 '流类型为文本 st.Mode = 3 '模式为读写 st.Open st.LineSeparator=13  st.LoadFromFile filename Do While Not St.EOS  s = Split(st.readtext(), vbCrLf)    Loop  'MsgBox UBoun

JScript中使用ADODB.Stream判断文件编码的代码

一开始使用ASCII编码来读取文本数据,模拟读取二进制数据,但是发现如果字符编码大于127时,只会得到小于128的值,相当于和128取余了,因此ASCII编码是不行的. 继续寻找,在CodeProejct.com找到一篇文章<Reading And Writing Binary Files Using JScript>,里面刚好有我需要的内容. 其实说来也简单,就是把编码换一下,使用437,这个是IBM扩展过的ASCII编码,把ASCII编码的最高位也利用起来,将字符集中的字符从128个扩展到

exe2swf 工具(Adodb.Stream版)

Exe2swf ,将exe 格式的 flash文件转为swf 格式.网上有很多这方面的工具,这个是用vbscript写的.用法: 将下面代码存为 exe2swf.vbs  将exe格式的flash拖放在此文件上,即可生成swf文件, 更新日期:2005-01-20 09:30 复制代码 代码如下: 'exe2swf工具, '用法:将exe格式的flash拖放在此文件上,即可生成swf文件, 'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. dim As

用vbs实现的exe2swf工具脚本代码

复制代码 代码如下: dim AsoR,FlashFileName  Set ArgObj = WScript.Arguments dim PositionStart,OKed,Tag,EndSize  PositionStart = 920000'flash 4的播放器的大致字节数  EndSize = 8    'exe文件结尾字节数,其它版本可以设置为0  FlashFileName = ArgObj(0)'传递路径 set AsoR=CreateObject("Adodb.Stream&

微信小程序(微信应用号)开发工具0.9版安装详细教程

微信小程序全称微信公众平台·小程序,原名微信公众平台·应用号(简称微信应用号) 声明 •微信小程序开发工具类似于一个轻量级的IDE集成开发环境,目前仅开放给了少部分受微信官方邀请的人士(据说仅200个名额)进行内测,因此目前未受到邀请的人士只能使用破解版: •本破解版资源来自于网上,与本人无关,仅供技术开发人员研究之用: •由于尚属内测阶段,因此迭代更新非常快,后续很可能由于升级而导致暂时无法使用. 特别注意 •由于目前发布的0.9版本必须验证才能登录(估计是为了验证是否为内测人士),因此必须先

利用AdoDb.Stream对象来读取UTF-8格式的文本文件

复制代码 代码如下: '函数名称:ReadTextFile     '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件     '----------------------------------------------------     Function ReadFromTextFile (FileUrl,CharSet)         If FileUrl = "" OR IsNull(FileUrl) Then             ReadFromT