无组件上传类 要将保存文件的名称不改变,可以如下
sub upload_0()    '使用化境无组件上传类
  set upload=new upload_file    '建立上传对象
  for each formName in upload.file '列出所有上传了的文件
    set file=upload.file(formName)  '生成一个文件对象
    if file.filesize<100 then
      msg="请先选择你要上传的文件！"
      founderr=true
    end if
    if file.filesize>(MaxFileSize*1024) then
      msg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！"
      founderr=true
    end if

    fileExt=lcase(file.FileExt)
    Forumupload=split(UpFileType,"|")
    for i=0 to ubound(Forumupload)
      if fileEXT=trim(Forumupload(i)) then
        EnableUpload=true
        exit for
      end if
    next
    if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then
      EnableUpload=false
    end if
    if EnableUpload=false then
      'msg="这种文件类型不允许上传！\n\n只允许上传这几种文件类型：" & UpFileType
                        response.write"<SCRIPT language=JavaScript>alert('这种文件类型不允许上传！\n\n只允许上传这几种文件类型：" & UpFileType & "');"
                        response.write"javascript:history.go(-1)</SCRIPT>"
         founderr=true
    end if
    
    strJS="<SCRIPT language=javascript>" & vbcrlf
    if founderr<>true then
      randomize
      ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

......

可以改为:
filename=SavePath&file.filename