ASP实现多图片上传(二)

upfile.asp

<html>
<head>
<title>文件上传</title>
</head>
<body>
<%
dim arr(3)
dim upload,file,formName,formPath,iCount,filename,fileExt,i
set upload=new upload_5xSoft ’建立上传对象

formPath=upload.form("filepath")
’在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
iCount=0
i=0
for each formName in upload.file ’列出所有上传了的文件
    set file=upload.file(formName) ’生成一个文件对象

    if file.filesize<0 then
        response.write "<font size=2>请先选择你要上传的图片　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
        response.end
    end if

    if file.filesize>100000 then
        response.write "<font size=2>图片大小超过了限制　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
        response.end
    end if
if fileEXT<>".gif" and fileEXT<>".jpg" then
     response.write "<font size=2>文件格式不对　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
    response.end
end if

    fileExt=lcase(right(file.filename,4))
    filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
    arr(i)=filename
    i=i+1

if file.FileSize>0 then ’如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(filename) ’保存文件

’ response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"

          iCount=iCount+1
    end if
    set file=nothing
next
if instr(arr(0),".")=0 and instr(arr(1),".")=0 and instr(arr(2),".")=0 then
response.write "<font size=2>请先选择你要上传的图片　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if
if instr(arr(0),".")<>0 then
response.write "<script>opener.document.forms[0].myface.value=’" & arr(0) & "’</script>"
else
response.write "<script>opener.document.forms[0].myface.value=’</script>"
end if
if instr(arr(1),".")<>0 then
response.write "<script>opener.document.forms[0].myface1.value=’" & arr(1) & "’</script>"
else
response.write "<script>opener.document.forms[0].myface1.value=’</script>"
end if
if instr(arr(2),".")<>0 then
response.write "<script>opener.document.forms[0].myface2.value=’" & arr(2) & "’</script>"
else
response.write "<script>opener.document.forms[0].myface2.value=’ </script>"
end if
set upload=nothing ’删除此对象

session("upface")="done"

Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)
set upload=nothing
response.write "<html><head><meta http-equiv=’Refresh’ content=’3 url=""javascript:window.close();""’></head><body><center><br><br>文件上传成功<br>谢谢你的支持！<br>本窗口三秒后自动关闭</center></body></html>"
response.end
end sub
%>
</body>
</html>

本文来源于 WEB开发网原文链接：http://www.cncms.com.cn/asp/5006_3.htm