asp上傳下載

最後更新：2017-02-28 來源：互聯網

上載者：User

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

上傳|下載

一共3個檔案

<--upfile.asp-->http://ktgirl001.0033.cn

<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>

<html>
<head>
<title>檔案上傳</title>
</head>
<body>
 化境檔案上傳!<hr size=1 noshadow width=300 align=left> 
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上傳對象

response.write upload.Version&" " ''顯示上傳類的版本

if upload.form("filepath")="" then ''得到上傳目錄
HtmEnd "請輸入要上傳至的目錄!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目錄後加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if

iCount=0
for each formName in upload.objForm ''列出所有form資料
response.write formName&"="&upload.form(formName)&" "
next

response.write " "
for each formName in upload.objFile ''列出所有上傳了的檔案
set file=upload.file(formName) ''產生一個檔案對象
if file.FileSize>0 then ''如果 FileSize > 0 說明有檔案資料
file.SaveAs Server.mappath(formPath&file.FileName) ''儲存檔案
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功! "
iCount=iCount+1
end if
set file=nothing
next

set upload=nothing ''刪除此對象
Htmend iCount&" 個檔案上傳結束!"

sub HtmEnd(Msg)
set upload=nothing
response.write " "&Msg&" [<a href=""javascript:history.back();"">返回</a>]</body></html>"
response.end
end sub
%>
</body>
</html>

本文章原先以中文撰寫並發佈於 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