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

當前位置: 首頁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 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 水浒传潘巧云| 绝顶五秒前| 汤姆·塞兹摩尔| 抖音浏览器| 《诱惑》电影| 第一财经在线直播电视| 云月之恋简谱| 牵着妈妈的手广场舞| 刷子李课堂笔记| 陷阱:致命的诱惑| 月亮电影| 裸体小视频| 博朗耳温枪| 豪斯医生第六季| 大学生国防论文2000字| 男同性恋| 约翰尼·西蒙斯| 金璐莹| 男女拍拍拍拍拍拍| cctv6电影节目表| 秋霞影视| 荒野求生21天美国原版观看| 演员任贤齐简历| 天猫店铺运营| 无所畏惧40集演员表| 事业编面试题库及答案| 林正英电影大全免费看| 欧布奥特曼普通话| 浙江卫视网络直播源| 日本电影家庭教师| 十大名茶排名顺序| 未删减版电视剧在线观看| 违规吃喝研讨发言材料| 张扬导演| 樱花悠| 工业硫酸| 《春天的故事》六年级的课本| 王紫瑄| kiss the rain钢琴谱| 羞羞的铁拳演员表| 樱井步|