|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。上传|下载一共3个文件
<--upfile.asp-->http://ktgirl001.0033.cn
<%OPTIONEXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<!--#includeFILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<body>
<br>化境文件上传!<hrsize=1noshadowwidth=300align=left><br><br>
<%
dimupload,file,formName,formPath,iCount
setupload=newupload_5xsoft创建上传工具
response.writeupload.Version&"<br><br>"显现上传类的版本
ifupload.form("filepath")=""then失掉上传目次
HtmEnd"请输出要上传至的目次!"
setupload=nothing
response.end
else
formPath=upload.form("filepath")
在目次后加(/)
ifright(formPath,1)"/"thenformPath=formPath&"/"
endif
iCount=0
foreachformNameinupload.objForm列出一切form数据
response.writeformName&"="&upload.form(formName)&"<br>"
next
response.write"<br>"
foreachformNameinupload.objFile列出一切上传了的文件
setfile=upload.file(formName)天生一个文件工具
iffile.FileSize>0then假如FileSize>0申明有文件数据
file.SaveAsServer.mappath(formPath&file.FileName)保留文件
response.writefile.FilePath&file.FileName&"("&file.FileSize&")=>"&formPath&File.FileName&"乐成!<br>"
iCount=iCount+1
endif
setfile=nothing
next
setupload=nothing删除此工具
HtmendiCount&"个文件上传停止!"
subHtmEnd(Msg)
setupload=nothing
response.write"<br>"&Msg&"[<ahref=""javascript:history.back();"">前往</a>]</body></html>"
response.end
endsub
%>
</body>
</html>
ASP脚本是采用明文(plaintext)方式来编写的。 |
|