有无组件上传问题求教?
一个表单form1中使用了IFRAME嵌套了另外一个表单form2,表单form2用于无组件上传,表单form1用于提交该上传无组件文件的相关说明及发布人姓名日期,请问如何实现form2到form1的参数传递?
具体代码文件如下:
#add.html
form name=addfile action=subadd.asp method=post
iframe height="50" border="0" frameBorder="0" noResize scrolling="no" width="100%" src="upload.asp" /iframe
input name=author type=text size=20
input name=submit type=submit value=submit
input name=reset type=reset value=reset
form
#upload.asp
form name=upload method=post action=upfile.asp enctype="multipart/form-data"
input type="file" name="search" class="buttons" size="50%">
input type="submit" name="Submit" class="buttons" value="Upload">
form>
#upfile.asp
%
dim upload,f_folder,file,formPath,iCount,filename,fileExt,filesizemin,filesizemax
iCount=0
filesizemin=1*1024
filesizemax=100*1024*1024
set upload=new upload_awctv '建立上传对象
'********************************列出所有上传文件***************************************************
For each formName in upload.objFile
set file=upload.file(formName)
If file.filesize>0 then
'********************************检测文件大小***************************************************
If file.filesize
response.write "你上传的文件太小了 [ 重新上传 ]
"
ElseIf file.filesize>filesizemax then
response.write "文件大小超过了 "&filesizemax&"字节 限制 [ 重新上传 ]
"
End If
'********************************检测文件类型****************************************************
fileExt=ucase(right(file.filename,4))
uploadsuc=false
Forum_upload="JPG|RM|RA|RMVB|MOV"
Forumupload=split(Forum_upload,"|")
for i=0 to ubound(Forumupload)
if fileEXT="."&trim(Forumupload(i)) then
uploadsuc=true
exit for
else
uploadsuc=false
end if
next
if uploadsuc=false then
response.write "文件格式不正确 [ 重新上传 ]"
response.end
end if
'********************************保存上传文件至文件夹*****************************************
randomize
f_ftn="/rm"
ranNum=int(90000*rnd)+10000
filename=f_ftn&"/"&day(now)&"_"&file.filename
if file.filesize>filesizemin and file.filesize file.SaveAs Server.mappath(filename) '保存文件
if f_type="JPG" or f_type="GIF" or f_type="PNG" then
response.write ""
'ElseIf
else
response.write ""
end if
iCount=iCount+1
end if
set file=nothing
end if
next
set upload=nothing '删除此对象
response.write (filename&"上传成功
"&iCount&" 个文件上传成功! ")