| <html> <head> </head> <body> <input type=button value="发送" /> <input type=button value="中断" /> <div id="ddd" width=300px></div> <br></br> <DIV id=div_message></DIV> </body> <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> <script language=javascript> var xmlhttp ; var ado_stream ; var mFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; var BlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024*100 ;//每次发送字节数 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 ; 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 ; 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 ; } 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> |
| <%@ LANGUAGE=VBScript%> <% Option Explicit Response.Expires = 0 ' 定义变量和对象。 dim ado_stream dim xml_dom dim xml_data dim str_filename dim bol_PartStart dim int_PartID dim 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 if ado_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 %> |
| 欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/) | Powered by Discuz! 7.2 |