xmlhttp 分块上传文件

作者:佚名来源:一亩三分地点击: 日期:2007-03-30

编写思路:把本地文件在客户端通过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)

目前程序还在调试过程中,希望大家提出宝贵意见

客户端代码

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

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

服务端代码

<%@ 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("<br />
<center><br />

</center></td></tr>
      
      <tr>
        <td height="30" colspan="2" align="center">
		<input class="button"  title="点击,复制本网址发给QQ/MSN好友分享！" type="button" value="复制本网址推荐给QQ/MSN好友分享！"  onclick="javascript:copyToClipBoard()" >	</td>
      </tr>
	  <tr>
        <td height="30" colspan="2" align="center">
			【<a href="/plus/feedback.php?arcID=20440" title="文章评论" target="_blank">文章评论</a>】
			【<a href="javascript:window.external.addFavorite('http://www.13fen.com/plus/view.php?aid=20440','xmlhttp 分块上传文件')" title="收藏本文" target="_self">收藏本文</a>】
		    【<a href="/plus/recommend.php?arcID=20440" title="推荐好友" target="_blank">推荐好友</a>】
		    【<a href="javascript:window.print();" title="打印本文" target="_self">打印本文</a>】
		    【<a href="http://bbs.13fen.com" target="_blank">论坛讨论</a>】</td>
      </tr>
      <tr>
        <td colspan="2"><br />
		  <img src="/images/icon_title.gif" width="12" height="12" border="0" /> <font class="M">相关文章:</font></td></tr>
      <tr>
        <td colspan="2" style="PADDING-LEFT: 30px">
<table width='100%' border='0' cellspacing='0' cellpadding='0'>
<tr>
	<td width='50%'>
<span class="articlelh15">·<a href="/html/study/prog/asp/other/2007/0330/20615.html" title="ASP中巧用Response属性" target="_blank">ASP中巧用Response属性</a></span></td>
	</td>
	<td width='50%'>
<span class="articlelh15">·<a href="/html/study/prog/asp/other/2007/0330/20598.html" title="第六课:ASP脚本循环语句" target="_blank">第六课:ASP脚本循环语句</a></span></td>
	</td>
	</tr>
<tr>
	<td width='50%'>
<span class="articlelh15">·<a href="/html/study/prog/asp/other/2007/0330/20597.html" title="在 Web 页上使用条件数值格式" target="_blank">在 Web 页上使用条件数值格式</a></span></td>
	</td>
	<td width='50%'>
<span class="articlelh15">·<a href="/html/study/prog/asp/other/2007/0330/20596.html" title="连接数据库查询手册（不仅仅适用于asp）" target="_blank">连接数据库查询手册（不仅仅适用于asp）</a></span></td>
	</td>
	</tr>
<tr>
	<td width='50%'>
<span class="articlelh15">·<a href="/html/study/prog/asp/other/2007/0330/20595.html" title="警惕"给你的FileSystemObject对象加把锁"" target="_blank">警惕"给你的FileSystemObject对象加把锁"</a></span></td>
	</td>
	<td width='50%'>
<span class="articlelh15">·<a href="/html/study/prog/asp/other/2007/0330/20594.html" title="用ASP做全文检索" target="_blank">用ASP做全文检索</a></span></td>
	</td>
	</tr>
	</table>
      </tr>
		
		 <tr>
          <td colspan="2"><br />  <img src="/images/icon_title.gif" width="12" height="12" border="0" /> <font class="M">文章评论:</font>(条)</td>
        </tr>
		<tr> 
<td>
  
<script src="/plus/feedback_js.php?arcID=20440"></script></td>
</tr>
        <tr>
          <td colspan="2">
		  <table width="100%" border="0" cellpadding="1" cellspacing="1">
<form action="/plus/feedback.php?action=send" method="post" name="feedback">
<input type="hidden" name="arcID" value="20440">
<tr> 
<td> 请留名： 
<input name="username" type="text" id="username" size="10">
<input name="notuser" type="checkbox" id="notuser" value="1" checked>
匿名评论 
<input type='button' value='发表评论' name='sb' onClick='javascript:if(document.feedback.msg.value!="") document.feedback.submit(); else alert("评论内容不能为空！");' style='width:60;height:20'>  <a href="/plus/feedback.php?arcID=20440" target="_blank">点击查看所有评论</a> <a href="http://bbs.13fen.com/index.php" target="_blank" title="网管论坛,中国网管论坛">网管论坛</a></td>
</tr>
<tr> 
<td class="login3"> <textarea name="msg" cols="75" rows="4" id="msg">

责任编辑:一分声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。

关于我们 - 管理团队 - 网站历史 - 联系我们 - 广告服务 - 法律声明 - 网站地图 - RSS订阅 - 返回顶部

Power by DedeCms

xmlhttp 分块上传文件

作者:佚名 来源:一亩三分地 点击: 日期:2007-03-30

作者:佚名来源:一亩三分地点击: 日期:2007-03-30