使用无惧上传类使用原文件名称保存的办法

应客户要求，在上传文件的时候（图片，压缩包 pdf rar jpg gif）使用自己定义的名称保存，在不需要建数据库的情况下，只需要修改部分源代码就可以了，方法简单

先看源代码，重要部分

dim attach_dir,attach_subdir,filename,extension,target,tmpfile,wjm
  extension=upfile.file(inputname).FileExt
  '取得文件名 定义WJM
  wjm=upfile.file(inputname).filename
  select case dirtype
   case 1
    attach_subdir="day_"+DateFormat(now,"yymmdd")
   case 2
    attach_subdir="month_"+DateFormat(now,"yymm")
   case 3
    attach_subdir="ext_"+extension
  end select
  attach_dir=attachdir+"/"+attach_subdir+"/"
  '建文件夹
  CreateFolder attach_dir
  tmpfile=upfile.AutoSave(inputname,Server.mappath(attach_dir)+"\")
  if upfile.isErr then
   if upfile.isErr=3 then
    err="上传文件扩展名必需为："+upext
   else
    err=upfile.ErrMessage
   end if
  else
   '生成随机文件名并改名 wjm参数不改名
   Randomize timer
   'filename=DateFormat(now,"yyyymmddhhnnss")+cstr(cint(9999*Rnd))+"."+extension

这里改成filename=wjm，直接获取文件名称保存

上传保存不改名 ， 无惧上传文件名不改变，ASP PHP .NET上传文件不改变文件名 ASP上传文件使用自定义文件名，上传文件获取文件名保存