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

當前位置: 首頁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 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 柚柚| 中国人免费观看| 快点受不了了| 蜘蛛夫人:超感觉醒 电影| 羞羞答答av| 天下免费大全正版资料| 一千零一夜凯瑟林| 我们结婚吧 电视剧| 一路狂奔| 电影事物的秘密| 104房间| 182tv在线视频| 变成黑皮辣妹然后和朋友做| 大内密探灵灵发| 大团圆李静张娴| av午夜| 电影《七天》| 黄金城电影在线观看免费高清| 漂亮孕妇突然肚子疼视频| 地缚花子君少年第二季| 美女写真视频网站| 加濑亮| 挤黑头视频 鼻子| 浙江卫视回放观看入口| 中国未来会黑人化吗| 秦天柱| 亲吻姐姐ova| 浙江卫视是几台| 地球的宇宙环境教学反思| 里番动漫在线观看| game newage| 绿门背后| 斯维特拜克之歌| 二年级53天天练语文上册答案| av电影网| 欧美一级毛片免费看| 麻烦是朋友| 一夜风流| 海滩修学旅程行| 王宝强盲井| 路易·德·菲奈斯|