主頁(yè) > 知識(shí)庫(kù) > aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼第1/2頁(yè)

aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼第1/2頁(yè)

熱門標(biāo)簽:綿陽(yáng)防封電銷卡價(jià)格 電銷機(jī)器人源碼網(wǎng)盤下載 河北智能外呼系統(tǒng)軟件 中國(guó)辦理電信400電話 伊春外呼業(yè)務(wù)系統(tǒng) 調(diào)度系統(tǒng)外呼 宜賓語(yǔ)音外呼系統(tǒng)軟件 電銷機(jī)器人教育 福建外呼增值業(yè)務(wù)線路
發(fā)現(xiàn)還沒(méi)有aspupload這個(gè)組件的,這兩樣功能的解決方案,現(xiàn)把我的改進(jìn)方案寫在這里!謝謝 
關(guān)于aspupload上傳組件,文件重命名,進(jìn)度條的問(wèn)題解決方案! 
共用到4個(gè)文件,分別是1.asp,2.asp,bar.asp,framebar.asp 
運(yùn)行第一個(gè)文件:1.asp,執(zhí)行上傳操作! 
復(fù)制代碼 代碼如下:

%
'''進(jìn)度條
dim SPid,PID,barref
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
SPid = UploadProgress.CreateProgressID()
PID = "PID="  SPid
barref = "framebar.asp?to=10"  PID
%>
SCRIPT language="javascript">
!--
function ShowProgress()
//加載進(jìn)度條

  strAppVersion = navigator.appVersion;
  if (document.upfile.filename.value != "")
  {
    if (strAppVersion.indexOf('MSIE') != -1  strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
    {
      winstyle = "dialogWidth=375px; dialogHeight:175px; center:yes;status:no";
      window.showModelessDialog('% = barref %>b=IE',window,winstyle);
    }
    else
    {
      window.open('% = barref %>b=NN','','width=370,height=165', true);
    }
  }
  return true;
}
function isPic(){
    var temp;
    var ExtList = ".jpg.gif.bmp.png.swf";//客戶端,檢測(cè)文件后綴名,省得上傳完成后,才報(bào)文件類型錯(cuò)誤!
    var filename = upfile.filename.value;
    var the_ext = filename.substr(filename.lastIndexOf(".")+1).toLowerCase();
    if (ExtList.indexOf(the_ext)==-1){
        alert("不是圖片,請(qǐng)選擇圖片文件!");
        return false;
    }
    return true;
}
//-->
/SCRIPT>
  html>
  head>/head>
  body>
  form method="post"enctype="multipart/form-data"action="2.asp?% = PID %>"name="upfile"OnSubmit="return ShowProgress();"> 
  
  選擇要上傳的文件:br>
  input type=file name="filename">br>
  input type=submit value="上傳" onclick="return isPic()">
  /form> 

  /body>
  /html>

2.asp
復(fù)制代碼 代碼如下:

%

Set Upload = Server.CreateObject("Persits.Upload") 

' Prevent overwriting 
Upload.OverwriteFiles = False 

' We use memory uploads, 文件大小限制 ,單位:b
Upload.SetMaxSize 1*1024*1024*1024, true 

if Request.QueryString("PID") = "" then
                Upload.ProgressID="010D60EB00C5AA4B"
        else
                Upload.ProgressID=Request.QueryString("PID")
        end if

On Error Resume Next

' Save to memory 保存到內(nèi)存
Upload.Save

If Err.Number = 8 Then
   Response.Write "文件大于1G"
End If 


'為使文件不重名,用系統(tǒng)時(shí)間+隨機(jī)數(shù),作為文件名
Dim ranNum
        randomize
        ranNum=int(999*rnd)
        CreateName=year(now)month(now)day(now)hour(now)minute(now)second(now)ranNum
NewName = CreateName
'保存文件路徑
articlepath = Server.MapPath("upload1") 


For Each File in Upload.Files 
        FileExt=Lcase(replace(File.ext,".",""))
                '服務(wù)器端判斷文件類型,動(dòng)網(wǎng)論壇的判斷方式
                If CheckFileExt(FileExt)=false then
                        Response.write "文件格式不正確,或不能為空 [ a href=# onclick=history.go(-1)>重新上傳/a> ]"

                        else
   File.SaveAs articlepath  "/"  NewName  File.ext 
   Response.Write "New name: "  File.FileName  "BR>" 
End If

Next 

%> 
%
'服務(wù)器端判斷文件類型,動(dòng)網(wǎng)論壇的判斷方式
Private Function CheckFileExt(FileExt)

        If FileExt="" or IsEmpty(FileExt) Then
                CheckFileExt=false
                Exit Function
        End If
        If Lcase(FileExt)="asp" or Lcase(FileExt)="asa" or Lcase(FileExt)="aspx" then
                CheckFileExt=false
                Exit Function
        End If
        If Lcase(FileExt)="gif" or Lcase(FileExt)="jpg" or Lcase(FileExt)="png" or Lcase(FileExt)="swf" or Lcase(FileExt)="bmp" then
                CheckFileExt=true
                Exit Function
        Else
                CheckFileExt=false
        End If
End Function
%>



12下一頁(yè)閱讀全文
您可能感興趣的文章:
  • 利用ASPUPLOAD,ASPJPEG實(shí)現(xiàn)圖片上傳自動(dòng)生成縮略圖及加上水印
  • aspupload 3.0 下載與使用集錦

標(biāo)簽:河池 延邊 電商邀評(píng) 新鄉(xiāng) 優(yōu)質(zhì)小號(hào) 蘇州 銅川 那曲

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼第1/2頁(yè)》,本文關(guān)鍵詞  aspupload,文件,重命名,及,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼第1/2頁(yè)》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼第1/2頁(yè)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章