编写思路:把本地文件在客户端通过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 id=ddd width=300px></div> </br> <DIV 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 = strReturnEnd 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>
服务器端
</P><P><%@ LANGUAGE=VBScript%><% Option ExplicitResponse.Expires = 0 </P><P>' 定义变量和对象。dim ado_streamdim xml_domdim xml_datadim 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.sizeend 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>