ASP实现多图片上传(二)
upfile.asp
<!--#include FILE="upload.inc"-->
<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
