[ASP]利用 xmlhttp 分块上传文件---asp,xml-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>asp专区>>正文	新版上线！[旧版]

注:打开慢时请稍等

[ASP]利用 xmlhttp 分块上传文件

http://www.iyit.net 日期：2006-6-7 11:15:31 来源：点击：

【参加讨论】 编写思路:把本地文件在客户端通过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> <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=<a href=http://www.iyit.net/Html/bckf/java/index.html target=_blank>java</a>script> var <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http ; var ado_stream ; varmFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; varBlockSize ; 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("ms<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>2.DOMDocument"); // 发送的<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>文件dom.async = false; dom.resolveExternals = false; // 构造<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>文件头 var node =dom.createProcessingInstruction("<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>","version='1.0'");dom.appendChild(node) ; node = null ; // 构造root节点 var root =dom.createElement("root"); dom.appendChild(root) ;dom.documentElement.setAttribute("<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>ns: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 ; <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http = newActiveXObject("Microsoft.XMLHTTP");<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http.open("POST","http://www.xxx.com/xxx/xxx.asp", false);//http://www.xxx.com/xxx/xxx.asp 为web路径上的文件 <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http.onreadystatechange=CallBack ; <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http.send(dom); mPartStart = false ; <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http = null ; }else { ado_stream.Close(); ado_stream = null ; } } function CallBack(){ // 上传成功 if(<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http.readystate == 4) { // 检查是否中断上传 if(Breaked) {return ; } if (SendCount > 0) { mPartID += 1 ; //div_message.innerHTML += ("<br>" + <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>http.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 <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_dom dim <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_data dim str_filenamedim bol_PartStartdim int_PartIDdim bol_PartEnd ' 创建 Stream 对象 set ado_stream = Server.CreateObject("ADODB.Stream") ' 从Request对象创建 XMLDOM对象 set <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_dom = Server.CreateObject("MSXML2.DOMDocument") <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_dom.load(request) ' 读出包含二进制数据的节点 set <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_data = <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_dom.selectSingleNode("root/upData") str_filename = <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_data.getAttribute("FileName")bol_PartStart = CBool(<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_data.getAttribute("PartStart"))int_PartID = CInt(<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_data.getAttribute("PartID"))bol_PartEnd = CBool(<a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_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 <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_data.nodeTypedValue ' 文件存盘 ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2 '保存文件 2=adSaveCreateOverWrite  ado_stream.close ' 释放资源 set ado_stream = Nothing  set <a href=http://www.iyit.net/Html/bckf/xml/index.html target=_blank>xml</a>_dom = Nothing ' 向浏览器返回信息 Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart%>

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

另外：此文的目的并不是说这个程序能给朋友们解决什么问题，主要目的还是为了和大家交流一些心得：
碰到问题->发现问题->解决问题.
希望大家都不要成为一个标准的代码机器人。
多学、多看、多思考、多实践。
没有什么是不能解决的。

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：asp,php 和 jsp 比较之我见
下一篇：处理较长文章，添加 …… 效果
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

ASP初学者常犯的几个错误	asp,php 和 jsp 比较之我见	刷一次变一次图的ASP代码
ASP基础	一段在asp中加密与解密对应的函数	ASP自动解压RAR文件
在ASP与ASP.NET之间共享对话状态(2)	在ASP与ASP.NET之间共享对话状态(1)	用正则解析图片地址,并利用XMLHTTP组件
利用ASP+JMAIL进行邮件群发的新思路	ASP操作Excel技术总结	用ASP实现对ORACLE数据库的操作
IIS6.0下ASP的新增功能	浅谈如何建立三层体系结构的ASP应用程序	asp中利用数组实现数据库记录的批量录入
vbs(asp)的栈类	用ASP打开远端MDB文件的方法	在asp中通过getrows实现数据库记录分页
在asp中通过vbs类实现rsa加密与解密	Asp深度揭密（上）	Asp深度揭密（下）
巧用ASP生成PDF文件	在ASP中使用SQL语句之1:SELECT 语句	在ASP中使用SQL语句之2:用WHERE子句设置