向高手求救!用无惧上传类刚开始还可以上传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
%>