[ASP]利用 xmlhttp 分块上传文件- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > [ASP]利用 xmlhttp 分块上传文件

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 20 ::

收藏到网摘: n/a

处理较长文章，添加 …… 效果 asp,php 和 jsp 比较之我见

编写思路:把本地文件在客户端通过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=javascript> var xmlhttp ; 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 (SendCou <div style="text-align:left; margin-top:0px; clear:both;"> </div> <div id="tpage"> <span style="float:left;width:45%" class="text-truncate"> <img align="absmiddle" src="https://static.ruanchen.com/img/pre_art.gif" /> <a href="/tech/view/doc/69493/p/110/" title="处理较长文章，添加 …… 效果">处理较长文章，添加 …… 效果</a></span> <span style="float:right;width:45%;text-align:right" class="text-truncate"> <a href="/tech/view/doc/69495/p/110/" title="asp,php 和 jsp 比较 之我见">asp,php 和 jsp 比较 之我见</a> <img align="absmiddle" src="https://static.ruanchen.com/img/next_art.gif"/></span> </div> </div> <div style="clear:both;"> <script language="javascript"> var infoid = '69494'; var classid = 'tech'; </script> <script language="JavaScript" src="https://static.ruanchen.com/js/mood.js"></script> </div> <div id="cmt"> <h3> <img src="https://static.ruanchen.com/img/cmt.gif" align="absmiddle" /> 评论 (0) <small class="pagenav-listbar"> <a style="padding:5px;" href="javascript:tech_cmt('69494')">All</a> </small> </h3> <div id="cmt-list"></div> <form method="post" action="#cmt" onsubmit="alert('您还没有登陆，登陆后才能进行此操作。');return false;"> <textarea id="content" name="content" style="width:100%; height:100px;">

登陆还没注册？