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

[kknd3273]

报错

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

[jhpxf]

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

[白夜花寒]

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

[kknd3273]

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

对象不是一个集合



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

[kknd3273]

顶一下

[白夜花寒]

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

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

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

[kknd3273]

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

对象不是一个集合

崩溃了