莱恩ASP上传学习 实例

dim upload
 set upload = new AnUpLoad
 upload.Exe = "*"
 upload.MaxSize =20 * 1024 * 1024 '20M
 upload.GetData()
 if upload.ErrorID>0 then
        response.Write upload.Description
 else
       dim file,savpath,uploadurl,uploadname,uploadType
       savepath = "upload"
       set file = upload.files("upload_docs")
          if file.isfile then'存在服务器上
          '按时间创建文件夹
          set fso = Server.CreateObject("scripting.filesystemobject")
          dim ProDate
          ProDate=y&m&d
          'Response.Write  Server.MapPath("upload\"&ProDate)  
          'response.End      
          If fso.folderexists(Server.MapPath("upload\"&ProDate)) Then
              'Response.write "文件夹已经创建<br/>"
          Else
              fso.CreateFolder(Server.MapPath("upload\"&ProDate))
              'Response.write "创建成功<br/>"
          End If
          savepath="upload/"&ProDate
             result = file.saveToFile(savepath,0,true)
             if result then
                'response.Write "文件'" & file.LocalName & "'上传成功，保存位置'" & server.MapPath(savepath & "/" & file.filename) & "',文件大小" & file.size & "字节"
                uploadurl=savepath & "/" & file.filename
                uploadname=file.LocalName
                uploadType=file.ContentType
             else
                response.Write file.Exception
             end if
          end if
      dim pdf_file
      dim pdf_value
      set pdf_file=upload.files("pdf_docs")
        if pdf_file.isfile then'存数据库
             pdf_value=pdf_file.GetBytes()
        end if