日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置: 首頁IT技術 → asp上傳下載的簡單實例代碼分享

asp上傳下載的簡單實例代碼分享

更多

 本文提供給大家給大家學習的是關于asp上傳下載的簡單實例代碼分享,希望能夠給大家帶來幫助或啟發。

一共3個文件

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

<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上傳</title>
</head>
<body>
<br>化境文件上傳!<hr size=1 noshadow width=300 align=left><br><br>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上傳對象

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

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)&"<br>"
next

response.write "<br>"
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&" 成功!<br>"
  iCount=iCount+1
 end if
 set file=nothing
next

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

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

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 格雷的五十道阴影| 青春正步走 电视剧| 贝蒂的启蒙| 汪汪队完整版全集免费| 奖励员工的表扬通告怎么写| 电影《divinotesoro》| 德兰| 想要更多| cctv5+体育直播节目表| 焕羽电视剧免费播放在线观看| 新目标大学英语综合教程2答案| 日本女人交配视频| douyin.com| 一问倾城| 乙亥北行日记| 十里承欢电影版免费播放| 十三邀第八季在线观看| 唐街十三妹| 10的认识评课优点及不足| 抽烟视频| teen| 一江春水向东流 电视剧| 大学英语精读3第三版全书答案| 共和国之恋原唱| 电影终极之战 电影| 数码宝贝第三部| 四大美人之貂蝉香港剧| 成毅最新电视剧赴山海免费看| 成龙电影全集大全| 77316电影| 乱世三人行| interracial| 神迹电影| 婷婷电影网| 变形金刚2演员表| 拔萝卜无删减| 迈克尔·j·福克斯| freexxxmovies| 心理健康《微笑的力量》ppt| bobo视频| 小妹妹电影|