久久午夜羞羞影院免费观看,丁香婷婷综合五月,久久天天躁狠狠躁夜夜爽蜜月

主頁 > 知識庫 > 另類的文件上傳解決方案

另類的文件上傳解決方案

編寫思路:把本地文件在客戶端通過base64編碼以后發送目的地.
測試過程中,上傳文件過大,導致超時不成功.
后來經過改善.把編碼分段發送.測試20M成功

編寫目的:在傳統的解決方案里面,一次一次選取上傳可以.但是在碰到把數據庫里文件路徑讀出來,并把這些文件上傳到一個地方的時候就比較麻煩.
如果得到路徑一個一個去找到用ftp當然也是可以的,但每次找這些文件我看都會比較費時。這里編寫這個主要就是為了通過數據庫里的文件路徑取得文件.把文件一次批量上傳到一個地方.
其主要目的還是為了鍛煉一下自己.

解決過程:起初試著用模擬鍵盤輸入強行賦值給file控件用傳統的方法上傳。可是老碰到空值的情況，以至有很多文件沒有發送出去。查閱一些資料,現在是把所有路徑通過數據庫取到然后寫到一個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)
客戶端代碼

</P>
<P><html><head></head><body>   <input type=button onclick="BeginSendFiles();" value="發送" />   <input type=button onclick="JavaScript: Breaked=true;" value="中斷" />   <div   class="iyygywc"   id="ddd" width=300px></div>   </br>   <div   class="uiaasym"   id=div_message></DIV></body></P>
<P><script language=VBScript> Function bytes2BSTR(vIn)  strReturn = ""  For i = 1 To LenB(vIn)   ThisCharCode = AscB(MidB(vIn,i,1))   If ThisCharCode < 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 End Function</script></P>
<P><script language=javascript>  var xmlhttp ;  var ado_stream ;  var mFileName, mPartStart, mPartID, mPartEnd ;  var SendCount ;  var BlockSize ;  var Breaked ;  var aryFiles ;</P>
<P>  BlockSize = 1024*100 ;//每次發送字節數  Breaked = false ;  aryFiles = new Array() ;</P>
<P>  // 開始發送文件  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() ;//文件名  }</P>
<P>  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 ;</P>
<P>    SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余數則多發送一次</P>
<P>   // alert(SendCount) ;</P>
<P>    var reg = /\b\w+.\w+$/gi    mFileName = reg.exec(vFullPath) ;    mPartStart = true ;    mPartID = 1 ;    mPartEnd = false ;        SendData() ;  }</P>
<P>  function SendData()  {       if (SendCount > 0)     {        var dom = new ActiveXObject("msxml2.DOMDocument"); // 發送的xml文件        dom.async = false;        dom.resolveExternals = false;</P>
<P>        // 構造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 ;        var att = 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 ;</P>
<P>        root.appendChild(node) ;        node.nodeTypedValue = ado_stream.Read(BlockSize); // 節點數據從stream讀取，固定長度        node = null ;             SendCount -= 1 ;         xmlhttp = new ActiveXObject("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 ;        }</P>
<P>        if (SendCount > 0)        {              mPartID += 1 ;              // div_message.innerHTML += ("" + 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 + "傳送完畢！" ;</P>
<P>            // 繼續傳下一文件            ShowBar(0) ;            var cFile = aryFiles.pop() ;            SendFile(cFile) ;          }     }    </P>
<P>  }</P>
<P>  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>" ;  }</P>
<P></script></html></P>
<P>

[Ctrl+A 全選注:引入外部Js需再刷新一下頁面才能執行]

服務器端

</P>
<P><%@ LANGUAGE=VBScript%> <% Option Explicit Response.Expires = 0  </P>
<P>' 定義變量和對象。 dim ado_stream dim xml_dom dim xml_data dim str_filenamedim bol_PartStartdim int_PartIDdim bol_PartEnd </P>
<P>' 創建 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"))</P>
<P>' 打開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 </P>
<P>' 釋放資源 set ado_stream = Nothing  set xml_dom = Nothing ' 向瀏覽器返回信息 Response.Write "Upload successful!" str_filename  int_PartID  bol_PartStart%> </P>
<P>

[Ctrl+A 全選注:引入外部Js需再刷新一下頁面才能執行]

標簽：麗江天津懷化臺灣成都公主嶺內江重慶

巨人網絡通訊聲明：本文標題《另類的文件上傳解決方案》，本文關鍵詞另類,的,文件,上傳,解決方案,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

另類的文件上傳解決方案