ASP實現多圖片上傳(二)

最後更新：2018-12-06 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

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

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

ASP實現多圖片上傳(二)

聯繫我們

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support