对象不支持此属性或方法: 'file'

报错

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

对象不支持此属性或方法: 'file'

不知道怎么回事,请解答谢谢!!

<%
nowtime=now()
TimePath = year(nowtime) & "-" & month(nowtime) & "-" & day(nowtime)
Set fso = CreateObject("Scripting.FileSystemObject")
mapath=server.MapPath("../CompanyUpload/Product/")&"\"&TimePath

mulu=fso.FolderExists(mapath)   '判断是否有今天的文件夹
if mulu=false then
fso.CreateFolder mapath
end if

  dim upload,file,formName,formPath,iCount,fileext,filename
  Domain=Request.ServerVariables("SERVER_NAME")
  soFilePath=Request.ServerVariables("PATH_INFO")
  soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
  sowinpath="http://"&Domain&soFilePath

  set upload=new upload_5xSoft

  formPath="../CompanyUpload/Product/"&TimePath&"/"
  iCount=0

'for each formName in upload.file     ''列出所有上传了的文件
    month1=month(now)
    if Month1<10 then Month1="0"&Month1
    day1=day(now)
    if day1<10 then day1="0"&day1
    hour1=hour(now)
    if hour1<10 then hour1="0"&hour1
    minute1=minute(now)
    if minute1<10 then minute1="0"&minute1
    second1=second(now)
    if second1<10 then second1="0"&second1
    FileName=Year(now)&Month1&Day1&Hour1&Minute1&Second1&"-"&iCount

                            ''就是这报错不知道怎么回事!

''就是这报错不知道怎么回事! set file=upload.file(formName)  ''就是这报错不知道怎么回事!

                            ''就是这报错不知道怎么回事!


FileExt = lcase(right(file.FileName,3))

    FindFile=false

6 个解决方案

#1

'for each formName in upload.file ''列出所有上传了的文件
------》把注释去掉。。。改成这个
for each formName in upload.file ''列出所有上传了的文件

#2

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

对象不是一个集合

去掉了还是报错这是为什么啊着急啊~ 谢谢

#3

顶一下

#4

关于这个，那就可以考虑成这样了你上传的时候<input type='file' id='file1' name='file1' />你写没写id和name的？？

<form id='form1' name='form1' action....>你写了id 或name没？？

还有就是submit你写没写id或name的？？有可能是这些地方你没写导致的

#5

加上了还是不行还说是
Microsoft VBScript 运行时错误错误 '800a01c3'

对象不是一个集合

崩溃了

#6

是个集合的问题了，建议你用
Response.end一步一步的查下去，看看代码到底是在什么地方出现错误了

#1