Question

ADODB.Stream 错误 '800a0bba' 文件无法被打开

错误是ADODB.Stream 错误 '800a0bba' 文件无法被打开
错误在objStream.LoadFromFile strFilePath
<%
Dim Fso,FileExt,strFilePath,Mime
strFilePath = "e:\krlanguage\样板.xls"
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
FileExt = Fso.GetExtensionName(strFilePath)
Set fso=Nothing

Select Case FileExt
Case "doc"
Mime="Application/msword"
Case "xls"
Mime="Application/msexcel"
End Select

Call OutPut(strFilePath,Mime)

Function OutPut(strFilePath,Mime)
Response.ContentType = Mime
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End Function
%>

Answer 1

这是可能的原因：文件名称中包含有中文字符。

我运行的脚本中

//----------代码分割线-------------

var args = WScript.Arguments;

if(args.length>0) {

var filepath = args(0)||'';

var stream = new ActiveXObject("ADODB.Stream"),

source='',

result='';

stream.Mode = 3;  // 常用值 1:读，2:写，3:读写

stream.Type = 2;  // 1:二进制，2:文本(默认)

stream.Charset = 'UTF-8';  // 指定编码

stream.Open();

stream.LoadFromFile(filepath);

source = stream.ReadText(-1);  // 读取全部内容

stream.Close();

//----------代码分割线--End-----------

stream.LoadFromFile(filepath);就出现了错误

后来把文件名称去掉中文名，就运行正确了。

Answer 2

把那个中文文件改成英文的试试