| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5196 人关注过本帖
标题:[求助]如何解决Microsoft VBScript 运行时错误 错误 '800a01a8'
只看楼主 加入收藏
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
结帖率:75%
收藏
 问题点数:0 回复次数:6 
[求助]如何解决Microsoft VBScript 运行时错误 错误 '800a01a8'

用无惧上传类上传pdf文件时报错:

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'File(...)'


求高手解决!叩谢!

搜索更多相关主题的帖子: Microsoft VBScript 运行 
2006-06-02 15:36
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
没有代码谁知道呀

http://www./
2006-06-02 15:46
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
收藏
得分:0 

下面是我的代码



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include FILE="upfile_class.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,rs,conn
set upfile=new upfile_class ''建立上传对象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;" '设置上传类型的黑名单
upfile.GetData (10240000) '取得上传数据,限制最大上传10M
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>高校学位论文提交系统</title>
</head>

<body>
<%
if upfile.isErr then '如果出错
select case upfile.isErr
case 1
Response.Write "你没有上传数据呀???是不是搞错了??"
case 2
Response.Write "你上传的文件超出我们的限制,最大10M"
end select
else
set conn=server.CreateObject("ADODB.Connection")
conn.open"Driver={SQL Server};Server=USER;Database=paperdate;Uid=sa;Pwd=123"
set rs=server.createobject("ADODB.recordset")
sql="select * from xwlwtj where (UserID='"&session("userid")&"')"
rs.Open sql,conn,1,3
formName="paper"
FSPath=GetFilePath(Server.mappath("uploadtodb.asp"),"\")'取得当前文件在服务器路径
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
set oFile=upfile.file(formname)'出错行
FileName=upfile.form(formName)'取得文本域的值
'if not FileName>"" then
FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
if upfile.isAllowExt(oFile.FileExt) then

'sql="update xwlwtj set FileData='"&upfile.FileData(formname)&"',FileName='"&FileName&"',FilePath='"&oFile.FilePath&""&oFile.FileName&"',FileMIME='"&oFile.FileMIME&"',FileExt='"&oFile.FileExt&"',FileSize='"&oFile.FileSize&"' where (UserID='"&session("userid")&"')"
'conn.Execute(sql)
'rs.AddNew
rs("FileData")=upfile.FileData(formname)
rs("FileName")=FileName
rs("FilePath")="d:\study\"'oFile.FilePath&oFile.FileName
rs("FileMIME")=oFile.FileMIME
rs("FileExt")=oFile.FileExt
rs("FileSize")=oFile.FileSize
rs.Update
end if
if upfile.isAllowExt(oFile.FileExt) then
Response.Write "上传成功"
else
Response.Write "不允许上传的类型"
end if
set oFile=nothing
upfile.SaveToFile formname,"d:\study\"&FileName
rs.Close
set rs=nothing
end if
set upfile=nothing '删除此对象

%>
<a href="readdb.asp">查看全文</a>
</body>
</html>
<%
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
%>

2006-06-02 16:04
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
收藏
得分:0 
郁闷,代码发不上去!
2006-06-02 16:05
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
晕~~ 怎么又是这样的,我真的晕~~~
可不可以弄得精简一点?

http://www./
2006-06-02 16:10
yj123
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2005-11-18
收藏
得分:0 
根据错误提示它是说缺少对象,你查看一下上传类是否存在该对象,再查看一下当前页里面是否声明了
一般出错时他都会给出是多少行出错,这是一个很重要的信息呀

2006-06-02 17:19
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
收藏
得分:0 
谢谢大家的热心关注:问题解决了,我按照icecool的方法修改了系统文件问题就解决了,不报错了。

下面是icecool的方法

如何解除FSO上传程序小于200k限制?

以下内容别的地方找的,没试过,你可试试看


如何解除FSO上传程序小于200k限制?bbs.1teng.com*UAr1Kjh]v$|M
| xU4e7y%i
  先在服务里关闭IISadminservice服务,找到Windows\System32\Inesrv目录下的Metabase.xml并打开,找到ASPMaxRequestEntityAllowed,将其修改为需要的值。默认为204800,即200K,把它修改为51200000(50M),然后重启IISadminservice服务。
========================================================================
总结:报错原因是我上传的文件大于200k了吧,总之按照上面的方法作了,就可以上传文件了,不报错了!

2006-06-02 20:46
快速回复:[求助]如何解决Microsoft VBScript 运行时错误 错误 '800a01a8'
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038099 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved