ASP無組件上傳類的應用執行個體

來源:互聯網
上載者:User
上傳|無組件|應用執行個體|上傳|無組件|應用執行個體

''''''-------- 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  -----------------

<!--#include file="../../inc/config.asp"-->
<!--#include file="../../inc/upload.inc"-->
<%

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(



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。