| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2233 人关注过本帖
标题:[求助]急!用无惧上传类能上传word文件,上传pdf文件报错
取消只看楼主 加入收藏
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
结帖率:75%
收藏
 问题点数:0 回复次数:5 
[求助]急!用无惧上传类能上传word文件,上传pdf文件报错

向高手求救!用无惧上传类刚开始还可以上传word和pdf文件,但现在上传pdf文件报错

dzt0001如果过路看见,帮帮忙!多谢了

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

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

/paper_submit/uploadtodb.asp,行 35

下面是我的代码:

<%@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

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
%>

搜索更多相关主题的帖子: pdf word 文件 
2006-06-02 12:22
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

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 12:25
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
收藏
得分:0 
报错信息

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

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

/paper_submit/uploadtodb.asp,行 36

2006-06-02 12:40
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
收藏
得分:0 

行36的代码是:set oFile=upfile.file(formname)

2006-06-02 12:42
yanziyz
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2006-5-20
收藏
得分:0 
都是乱码,看不懂!急呀!高手在那里。。。。。。
2006-06-02 16:08
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:47
快速回复:[求助]急!用无惧上传类能上传word文件,上传pdf文件报错
数据加载中...
 
   



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

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