另类的文件上传解决方案

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

Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode

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 += ("
" + 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 + "传送完毕！
" ;

// 继续传下一文件
ShowBar(0) ;
var cFile = aryFiles.pop() ;
SendFile(cFile) ;
}

}

}

function ShowBar(per)
{
// 进度条
ddd.innerHTML = "

" ;
}

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

服务器端

' 定义变量和对象。
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
%>

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]