ATB Source Codes

Iron ASP upload component-free (An-Upload) v9.7.9 Show upload.asp Source code

Return Download Iron ASP upload component-free (An-Upload) v9.7.9: download upload.asp Source code - Download Iron ASP upload component-free (An-Upload) v9.7.9 Source code - Type:.asp
  1. <!--#include file="upload_class.inc"-->
  2. <%
  3.  on error resume next
  4.  Server.ScriptTimeout = 9999999
  5.  Dim Upload,successful,thisFile,allFiles,upPath,path
  6.  set Upload=new AnUpLoad
  7.  Upload.openProcesser=true  '打开进度条显示
  8.  Upload.SingleSize=1024*1024  '设置单个文件最大上传限制,按字节计;默认为不限制,本例为512M
  9.  Upload.MaxSize=1024*1024 '设置最大上传限制,按字节计;默认为不限制,本例为1G
  10.  Upload.Exe="rar|jpg|bmp|gif"  '设置允许上传的扩展名
  11.  Upload.GetData()
  12.  if Upload.ErrorID>0 then
  13.         upload.setApp "faild",1,0 ,Upload.description
  14.  else
  15.         if Upload.files(-1).count>0 then
  16.                 dim str
  17.                 for each file in Upload.files(-1)
  18.                 upPath=request.querystring("path")
  19.                 path=server.mappath(upPath)
  20.                 set tempCls=Upload.files(file)
  21.             upload.setApp "saving",Upload.TotalSize,Upload.TotalSize,tempCls.FileName
  22.                 successful=tempCls.SaveToFile(path,0)
  23.                         thisFile="{name:'" & tempCls.FileName & "',size:" & tempCls.Size & "}"
  24.                         allFiles=allFiles & thisFile & ","
  25.                 set tempCls=nothing
  26.                 next
  27.                 upload.setApp "saved",Upload.TotalSize,Upload.TotalSize,allFiles
  28.     else
  29.         upload.setApp "faild",1,0,"没有上传任何文件"
  30.         end if
  31.  end if
  32.  if err then upload.setApp "faild",1,0,err.description
  33.  set Upload=nothing
  34.  response.end
  35. %>
  36.  
downloadupload.asp Source code - Download Iron ASP upload component-free (An-Upload) v9.7.9 Source code
Related Source Codes/Software:
ASP generating static pages source - In the batch build static pages, I do not know the... 40byte
ABC class website source code - A fully functional class and grade website, implem... 1.93KB
AlstraSoft Domain Sponsors Pro v2.1 - &Nbsp;    a foreign business to cre... 1.8KB
ASP certificate query system - User training and certification institutions, onli... 540byte
ASP online weather forecasts (accelerator) - ASP online weather forecasts (accelerator) 192byte
Andy message board 1 - Simple JSP wall.Extract the password: www.... 744byte
Built into the Windows animated cursor -   Established in the Windows animated cursor 28byte
Post this shadow 1 - This guest book is made complete by shadow 20,100,... 588byte
Apple blessed marriage system - Blessed marriage system is a combination of Apple ... 748byte
Match ads click counter v1.0 - Instructions for use:1, if you want to count o... 192byte
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top