upfile.asp

来自「文件上传功能在ASP中实现上传各类文件」· ASP 代码 · 共 40 行

ASP

40 行

<!--upfile.asp-->
<%
sub show_files()
on Error Resume Next
'定义上传目录
const dirUpload = "upload"
set objUpload = server.CreateObject("aspSmartUpload.SmartUpload")
'限制最大上传字节数
objUpload.TotalMaxFileSize = 8388608
'限制文件上传类型为文本
objUpload.AllowedFilesList = "jpg"
'文件上传
objUpload.Upload
'保存文件在upload目录，同时取得上传的文件数
intNo = objUpload.save(dirUpload)
'如果Err值=0，则说明上传成功
if Err <> 0 then
 response.write "上传文件错误： <font color=ff0000>"&Err.Description&"</font>"
else
 response.write "上传文件成功！<p>"
 response.write "文件名：<br>"
 '遍历files集合，取出上传文件的属性
 for each thefile in objUpload.files
  '如果上传文件不为空
  if thefile.fileName <> Empty then
  '输出文件名（不含路径）
  response.write thefile.fileName&" </b></font>("
  '输出各个文件的字节数
  response.write FormatNumber(thefile.size,0)&"bytes)<br>"
  end if 
 Next
end if 

end sub
%>
<body>
<% show_files %>
</body>

upfile.asp - 源码说明

本页面展示了「文件上传功能在ASP中实现上传各类文件」中的 upfile.asp 源码文件，采用 ASP 编程语言编写，共 40 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?