利用SA FileUp组件进行多文件上传(3)

日期：2020-05-13 栏目：程序人生浏览：次

提示：您可以先修改部分代码再运行

===============
这里只写出了一个文件的相关输入框，其他四个类似。
说明一点，并不是有5 个的限制，只是我这里只写了5个。
其中的photo_addphoto.js在客户端对图片进行一遍检查，不是图片的会提示，大小超过限制的也会提示。
这样就避免了用户经过耐心的等待后才被告诉不合标准的烦恼。
=================================================
处理页代码：

<%@ CODEPAGE="936"%>
<%
Server.ScriptTimeOut=5000 '--脚本超时设置为5000
%>

<%
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp") '--建立SA FileUp Object

'oFileUp.Path = Server.MapPath("/upfile/") '--我这里要自己定义文件名，所以没有使用Path属性，注意这句被注释掉了。

strRestrictBy = ""  '--文件验证方式，分为extension和ContentType

iCount=0  '--文件上传数的计数变量

formPath="upfile/" '文件保存位置

'-----------检查是否有在此位置上传的权限-----------这里省略了。
groupID=trim(oFileUp.form("groupID"))
albumID=trim(oFileUp.form("albumID"))
'-----------检查权限完成------

if errMsg="" then   '----如果到此还没有错误
For Each strFormElement In oFileUp.Form
If IsObject(oFileUp.Form(strFormElement)) Then  '如果是文件
   If Not oFileUp.Form(strFormElement).IsEmpty Then  '--文件不为空
      flagOK=1
      '--不是文件或文件大于限制，设置错误信息
      If oFileUp.Form(strFormElement).TotalBytes<100  Then
         flagOK=0
      ElseIf oFileUp.Form(strFormElement).TotalBytes> upFileSize Then
         flagOK=0
         errMsg=errMsg+"文件:"&oFileUp.Form(strFormElement).UserFileName&" 大于"&upFileSize\1024&"KB！<br>"

利用SA FileUp组件进行多文件上传(3)

相关推荐