admupfile.asp

来自「8款下载系统源代码 2003-3-11 21:37:45 433 949k · 」· ASP 代码 · 共 66 行

ASP

66 行

<!--#include FILE="upload_5xsoft.inc"-->
<!--#include file="admcheck.asp"-->
<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.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
 
  dim fname
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  fname = int(fname) + int((10-1+1)*Rnd + 1)
  fname=""&fname&"."&GetExtendName(file.FileName)&""
  
  file.SaveAs Server.mappath(formPath&fname)   ''保存文件
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&fname&" 成功!<br>"
  kk=file.FileSize
  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=""admadd.asp?file="&formPath&fname&"&kk="&kk&"Byte"">继续下一步添加程序资料 </a>]</body></html>"
 response.end
end sub

function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
</body>
</html>

admupfile.asp - 源码说明

本页面展示了「8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见：猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他」中的 admupfile.asp 源码文件，采用 ASP 编程语言编写，共 66 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2003相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?