[ASP]使用 xmlhttp 分塊上傳文件 - 明輝手游網

<form id="hz9zz"></form>

<form id="hz9zz"></form>

<nobr id="hz9zz"></nobr>

<form id="hz9zz"></form>

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

文章發布全站軟件文章熱門搜索：分享手機機型天翼彈幕領取資訊首頁騰訊視頻愛奇藝暴風影音酷狗音樂酷我音樂影音大全軟件下載軟件教程電腦系統下載聊天工具辦公軟件殺毒教程系統工具圖形圖像電腦學習應用軟件網絡軟件蘋果應用注冊碼網站教程技術開發安卓教程其它教程您當前所在位置：網視手游站 -> 技術開發 -> [ASP]使用 xmlhttp 分塊上傳文件
[ASP]使用 xmlhttp 分塊上傳文件發表時間：2023-08-17 來源：明輝站整理相關軟件相關文章人氣： [摘要]編寫思路:把本地文件在客戶端通過base64編碼以后發送目的地.測試過程中,上傳文件過大,導致超時不成功.后來經過改善.把編碼分段發送.測試20M成功編寫目的:在傳統的解決方案里面,一次一次選取上傳... 編寫思路:把本地文件在客戶端通過base64編碼以后發送目的地. 測試過程中,上傳文件過大,導致超時不成功. 后來經過改善.把編碼分段發送.測試20M成功編寫目的:在傳統的解決方案里面,一次一次選取上傳可以.但是在碰到把數據庫里文件路徑讀出來,并把這些文件上傳到一個地方的時候就比較麻煩. 如果得到路徑一個一個去找到用ftp當然也是可以的,但每次找這些文件我看都會比較費時。這里編寫這個主要就是為了通過數據庫里的文件路徑取得文件.把文件一次批量上傳到一個地方. 其主要目的還是為了鍛煉一下自己. 解決過程:起初試著用模擬鍵盤輸入強行賦值給file控件用傳統的方法上傳�？墒抢吓龅娇罩档那闆r，以至有很多文件沒有發送出去。查閱一些資料,現在是把所有路徑通過數據庫取到然后寫到一個js里。然后在前臺用js讀取這些路徑,通過xmlhttp來發送文件。因為ie不太喜歡xmlHttp.總認為他有惡意行為.所以老談出提示警告.所以操作的時候不能使用web路徑.只能用物理路徑去訪問它. 然后服務端有一文件來接收這些編碼,并對其進行解碼.所以我稱之為"c/s". ^_^ 目前很多代碼還在完善中. 簡單介紹一下: aryFiles.push("c:\\aaa.zip") ; aryFiles.push("c:\\bbb.exe") ; 這里為文件路徑和文件.可為多個以后這個路徑也可以通過file控件在客戶端取到 http:// www.xxx.com/xxx/xxx.asp 這個是目的地,可以改為自己想要的地址. ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename) server.mappath(".") &"/"& + str_filename 這里是讀取文件. server.mappath(".") &"/"& 路徑和存放路徑一致 ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2 server.mappath(".") &"/"& 這個為存放文件的路徑. str_filename 為文件名這里讀取和存放都是放在程序所放目錄中.大家測試的時候也可以保持這樣即可把第一段代碼放到本地(eg:c:\upload.htm) 把第二段代碼放到服務器上,可以是本地服務器,可以是公網服務器.和上面的目的地保持一致 (eg:http://www.xxx.com/upload.asp or http:// localhost/www/upload.asp) 操作:找到第一段代碼保存的地方。執行即可(eg:打開c盤執行upload.htm) 目前程序還在調試過程中,希望大家提出寶貴意見客戶端代碼<html><head></head><body> <input type=button onclick="BeginSendFiles();"value="發送" /> <input type=button onclick="JavaScript:Breaked=true;" value="中斷" /> <div id="ddd"width=300px></div> <br></br> <DIVid=div_message></DIV></body><script language=VBScript> Function bytes2BSTR(vIn) strReturn ="" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) IfThisCharCode < &H80 Then strReturn = strReturn &Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn =strReturn & Chr(CLng(ThisCharCode) * &H100 +CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn EndFunction</script><script language=javascript> var xmlhttp ; var ado_stream ; varmFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; varBlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024100;//每次發送字節數 Breaked = false ; aryFiles = new Array() ; // 開始發送文件function BeginSendFiles() { initAryFiles() ; SendFile(aryFiles.pop()) ;} // 構造待發送文件的數組 function initAryFiles() { aryFiles.push("c:\\aaa.zip"); aryFiles.push("c:\\bbb.exe") ; //c:\\aaa.zip c:\\bbb.exe本地文件aryFiles.reverse() ;//文件名 } function SendFile(vFullPath) { // 空文件則不執行上傳if (!vFullPath) { return ; } Breaked = false ; div_message.innerHTML ="" ; ado_stream = new ActiveXObject("ADODB.Stream"); // 讀取文件的流ado_stream.Type = 1; ado_stream.Open();ado_stream.LoadFromFile(vFullPath); // 讀取文件 ado_stream.position = 0 ;SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余數則多發送一次 //alert(SendCount) ; var reg = /\b\w+.\w+$/gi mFileName =reg.exec(vFullPath) ; mPartStart = true ; mPartID = 1 ; mPartEnd =false ; SendData() ; } function SendData() { if (SendCount > 0) {var dom = new ActiveXObject("msxml2.DOMDocument"); // 發送的xml文件dom.async = false; dom.resolveExternals = false; // 構造xml文件頭 var node =dom.createProcessingInstruction("xml","version='1.0'");dom.appendChild(node) ; node = null ; // 構造root節點 var root =dom.createElement("root"); dom.appendChild(root) ;dom.documentElement.setAttribute("xmlns:dt","urn:schemas-microsoft-com:datatypes"); // 構造保存二進制數據的節點updata node =dom.createElement("upData") ; node.dataType = "bin.base64" ; //bin。base64編碼 var att = dom.createAttribute("FileName") ; // 文件名屬性att.value = mFileName ; node.setAttributeNode(att) ; att = null ; varatt = dom.createAttribute("PartStart") ; // 分段開始標記 att.value =mPartStart ; node.setAttributeNode(att) ; att = null ; var att =dom.createAttribute("PartID") ; // 分段序號 att.value = mPartID ;node.setAttributeNode(att) ; att = null ; var att =dom.createAttribute("PartEnd") ; // 分段結束標記 att.value = mPartEnd ;node.setAttributeNode(att) ; att = null ; root.appendChild(node) ;node.nodeTypedValue = ado_stream.Read(BlockSize); // 節點數據從stream讀取，固定長度node = null ; SendCount -= 1 ; xmlhttp = newActiveXObject("Microsoft.XMLHTTP");xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);//http://www.xxx.com/xxx/xxx.asp 為web路徑上的文件 xmlhttp.onreadystatechange=CallBack ; xmlhttp.send(dom); mPartStart = false ; xmlhttp = null ; }else { ado_stream.Close(); ado_stream = null ; } } function CallBack(){ // 上傳成功 if(xmlhttp.readystate == 4) { // 檢查是否中斷上傳 if(Breaked) {return ; } if (SendCount > 0) { mPartID += 1 ; //div_message.innerHTML += ("<br>" + xmlhttp.ResponseText) ; var p= Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) + 1)) 100) ; // 計算進度百分比 ShowBar(p) ; var t = setTimeout("SendData();", 1) ; }else { // 傳送完文件 //div_message.innerHTML += mFileName +"傳送完畢！<br>" ; // 繼續傳下一文件 ShowBar(0) ; var cFile = aryFiles.pop(); SendFile(cFile) ; } } } function ShowBar(per) { // 進度條 ddd.innerHTML= "<table width='200' border=0 cellpadding='0' cellspacing='0'><tr><td bgcolor='#6699FF'><input type=button style='width:" + per + "% ; border:0px; background:#005599; color:#FFFFFF'value=" + per + "%> </td></tr></table>" ; }</script></html> [Ctrl+A 全部選擇提示：你可先修改部分代碼，再按運行] 服務端代碼<%@ LANGUAGE=VBScript%> <% Option Explicit Response.Expires = 0 ' 定義變量和對象。 dim ado_stream dim xml_dom dim xml_data dim str_filenamedim bol_PartStartdim int_PartIDdim bol_PartEnd ' 創建 Stream 對象 set ado_stream = Server.CreateObject("ADODB.Stream") ' 從Request對象創建 XMLDOM對象 set xml_dom = Server.CreateObject("MSXML2.DOMDocument") xml_dom.load(request) ' 讀出包含二進制數據的節點 set xml_data = xml_dom.selectSingleNode("root/upData") str_filename = xml_data.getAttribute("FileName")bol_PartStart = CBool(xml_data.getAttribute("PartStart"))int_PartID = CInt(xml_data.getAttribute("PartID"))bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))' 打開Stream對象，把數據存入其中 ado_stream.Type = 1 ' 1=adTypeBinary ado_stream.open if not bol_PartStart then ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename) ' 讀取文件 ado_stream.position = ado_stream.size end ifado_stream.Write xml_data.nodeTypedValue ' 文件存盤 ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2 '保存文件 2=adSaveCreateOverWrite ado_stream.close ' 釋放資源 set ado_stream = Nothing set xml_dom = Nothing ' 向瀏覽器返回信息 Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart%> [Ctrl+A 全部選擇提示：你可先修改部分代碼，再按運行] 另外：此文的目的并不是說這個程序能給朋友們解決什么問題，主要目的還是為了和大家交流一些心得：碰到問題->發現問題->解決問題. 希望大家都不要成為一個標準的代碼機器人。多學、多看、多思考、多實踐。沒有什么是不能解決的。標簽：[ASP]運用 xmlhttp 分塊上傳文件上一篇：處理較長文章，添加 …… 效果下一篇：asp,php 與 jsp 比較之我見	推薦資訊總人氣榜 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法 2picacg蘋果版怎么找不到\|picacg ios版是不是下架了介紹 3Adobe Illustrator CS5 序列號大全 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本） 5Potato(土豆聊天)怎么換頭像\|Potato app更改頭像方法介紹 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程 7Potato(馬鈴薯聊天)怎么注冊不了\|Potato不能注冊處理方法介紹 8最新的Adobe Illustrator CS4序列號大全 9Intel i7-9700K性能跑分曝光：同代提升約12% 10qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看 11XP系統怎么清除緩存？ 12Intel Z390主板有望10月8日公布：8核9代酷睿隨后登場 1PHP 留言簿（帶Oracle數據庫分頁的顯示技巧） 2php.ini 設置詳細選項 3轉：Java技術版主Jeru在IBM的DevelopWorks發表的對于設模的文章 4Visual C++剪貼板設置不完全攻略 5基于ACCESS數據庫的純asp論壇制作心得 610天學會php之首天 7PHP新手上路--6. 網絡資源 8Csharp+Asp.net系列圖文詳細教程（二） 9用PHP開發GUI（一個容易的例子） 10一個技巧完善的專欄管理的程序->這是asp.net的第二個應用(4) 113天學好ADO之首天 12讓動態創建的ActiveX控件響應Windows消息最新教程本月人氣 1給應用程序加一個“前奏” 2使用UDP Sockets技術完成IP多點傳送2（轉中華技術網） 3怎么才能成為一名真正的Web程序員 4VC命名管道通信的完成 5PHP在Linux下連接MSSQLServer的設置方法簡述（二、FreeTDS庫） 6ASP開發頁面時需要牢記的注意事項下文 7用PHP完成POP3郵件的解碼（3） 8j2ee doc 翻譯系列之二（2 完） 9用vc設計系統援救程序 10動態加載用戶控件的組件！ 11數據庫設計技巧(二) 12PB中完成圖片按鈕的mousemove事件 1獵豹瀏覽器搶票不受12306新版驗證碼影響 2ios9不越獄怎么恢復短信與照片 ios9不越獄恢復短信與照片圖文說明教程 310天學會php之首天 4抱抱app怎么玩抱抱app使用圖文說明教程圖 5360手機助手紅包怎么提現 360手機助手紅包提現設置流程 6160wifi遠程桌面怎么連接 160wifi遠程桌面連接設置方法 7微信PC版1.0.7.33官方下載公布修好bug優化軟件 8手機登12306驗證碼總是出錯處理方法介紹 9Linux內核4.2優化了哪一些地方？ 10linux系統使用命令維護RHCS的方法 113天學好ADO之首天 12抱抱app免費隨機通話使用圖文說明教程(圖文流程)
相關文章給應用程序加一個“前奏” 使用UDP Sockets技術完成IP多點傳送2（轉中華技術網）怎么才能成為一名真正的Web程序員 VC命名管道通信的完成 PHP在Linux下連接MSSQLServer的設置方法簡述（二、FreeTDS庫） ASP開發頁面時需要牢記的注意事項下文用PHP完成POP3郵件的解碼（3） j2ee doc 翻譯系列之二（2 完）用vc設計系統援救程序動態加載用戶控件的組件！數據庫設計技巧(二) PB中完成圖片按鈕的mousemove事件

日韩精品一区二区三区高清