ASP无组件上传类的应用实例

2022-07-15 80酷酷网 80kuku.com

　　上传|无组件|应用实例|上传|无组件|应用实例

''''''-------- upload.htm -------------

<script language="javascript">
   function checkFile(myForm)
   {
if(myForm.File1.value=='') return false;
myForm.submit();
   }
</script>
<form method="POST" name="upl" action="fjupload.asp" enctype="multipart/form-data" >
<input type="file" name="File1" ID="File1">
<input type="button" name="upfiles" value="上传" >
</form>

''' ------------fjupload.asp -----------------

<%

founderr=false
SavePath = Server.MapPath("?????") '存放上传文件的目录

call upload_0() '使用化境无组件上传类

'上传程序
sub upload_0() '使用化境无组件上传类

set upload=new upload_file '建立上传对象

    dim msg                             '存储上传过程中发生的错误信息
    dim filecount                       '存储文件总数
    dim upcount                         '存储上传的文件总数
    filecount=0
    upcount=0
for each formName in upload.file    '列出所有上传了的文件
  set file=upload.file(formName) '生成一个文件对象
        if(file.filename<>"") then
    founderr=false
    filecount=filecount +1
    set file=upload.file(formName) '生成一个文件对象

    randomize
           ranNum=int(900*rnd)+100
    last_fn=hour(now()) & minute(now()) & second(now()) & ranNum '生成一段随机数附加到文件末尾，以防止文件名冲突
    ext_fn=file.fileext '扩展名

    filename=SavePath & "\" & file.smallfilename & "_" & last_fn
    if ext_fn<>"" then filename=filename & "." & ext_fn

    if fso.FileExists(filename) then
        msg=msg & "\r\n" & file.filename & " 文件已经存在，请更改文件名"
        founderr=true
    end if

    '如果可以上传，就执行上传
    if founderr<>true then
     file.SaveToFile FileName      '保存文件
     if(err=0) then
         upcount = upcount + 1
         msg=msg & "\r\n" & file.filename & "上传成功！"
         '如果是rar文件进行解压缩
         if(lcase(file.fileext)="rar") then
               Call UnCompess(FileName,SavePath)   '解压缩
                                     end if
     else
         msg=msg & "\r\n" & file.filename & "上传失败！"
     end if
      end if
   end if
   set file=nothing
next
set fso=nothing
set upload=nothing
'如果上传成功的文件数少于上传的文件数就弹出错误提示
if(