日期：2004年10月7日 作者：清风网络学院
编写思路:把本地文件在客户端通过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)
客户段
1
<html>
2<head>
3</head>
4<body> <input type=button onclick="BeginSendFiles();"
5value="发送" /> <input type=button onclick="JavaScript:
6Breaked=true;" value="中断" /> <div id="ddd"
7width=300px></div> <br></br> <DIV
8id=div_message></DIV>
9</body>
10<script language=VBScript> Function bytes2BSTR(vIn) strReturn =
11"" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If
12ThisCharCode < &H80 Then strReturn = strReturn &
13Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn =
14strReturn & Chr(CLng(ThisCharCode) * &H100 +
15CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End
16Function
17</script>
18<script language=javascript> var xmlhttp ; var ado_stream ; var
19mFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; var
20BlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024*100
21;//每次发送字节数 Breaked = false ; aryFiles = new Array() ; // 开始发送文件
22
function BeginSendFiles() { initAryFiles() ; SendFile(aryFiles.pop()) ;
23
} // 构造待发送文件的数组 function initAryFiles() { aryFiles.push("c:\\aaa.zip")
24; aryFiles.push("c:\\bbb.exe") ; //c:\\aaa.zip c:\\bbb.exe本地文件
25aryFiles.reverse() ;//文件名 } function SendFile(vFullPath) { // 空文件则不执行上传
26if (!vFullPath) { return ; } Breaked = false ; div_message.innerHTML =
27"" ; ado_stream = new ActiveXObject("ADODB.Stream"); // 读取文件的流
28ado_stream.Type = 1; ado_stream.Open();
29ado_stream.LoadFromFile(vFullPath); // 读取文件 ado_stream.position = 0 ;
30SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余数则多发送一次 //
31alert(SendCount) ; var reg = /\b\w+.\w+$/gi mFileName =
32reg.exec(vFullPath) ; mPartStart = true ; mPartID = 1 ; mPartEnd =
33false ; SendData() ; } function SendData() { if (SendCount > 0) {
34
var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件
35dom.async = false; dom.resolveExternals = false; // 构造xml文件头 var node =
36dom.createProcessingInstruction("xml","version='1.0'");
37dom.appendChild(node) ; node = null ; // 构造root节点 var root =
38dom.createElement("root"); dom.appendChild(root) ;
39dom.documentElement.setAttribute("xmlns:dt",
40"urn:schemas-microsoft-com:datatypes"); // 构造保存二进制数据的节点updata node =
41dom.createElement("upData") ; node.dataType = "bin.base64" ; //
42bin。base64编码 var att = dom.createAttribute("FileName") ; // 文件名属性
43att.value = mFileName ; node.setAttributeNode(att) ; att = null ; var
44att = dom.createAttribute("PartStart") ; // 分段开始标记 att.value =
45mPartStart ; node.setAttributeNode(att) ; att = null ; var att =
46dom.createAttribute("PartID") ; // 分段序号 att.value = mPartID ;
47node.setAttributeNode(att) ; att = null ; var att =
48dom.createAttribute("PartEnd") ; // 分段结束标记 att.value = mPartEnd ;
49node.setAttributeNode(att) ; att = null ; root.appendChild(node) ;
50node.nodeTypedValue = ado_stream.Read(BlockSize); // 节点数据从stream读取，固定长度
51node = null ; SendCount -= 1 ; xmlhttp = new
52ActiveXObject("Microsoft.XMLHTTP");
53xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);
54//http://www.xxx.com/xxx/xxx.asp 为web路径上的文件 xmlhttp.onreadystatechange=
55
CallBack ; xmlhttp.send(dom); mPartStart = false ; xmlhttp = null ; }
56
else { ado_stream.Close(); ado_stream = null ; } } function CallBack()
57{ // 上传成功 if(xmlhttp.readystate == 4) { // 检查是否中断上传 if(Breaked) {
58return ; } if (SendCount > 0) { mPartID += 1 ; //
59div_message.innerHTML += ("<br>" + xmlhttp.ResponseText) ; var p
60= Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) + 1)) *
61100) ; // 计算进度百分比 ShowBar(p) ; var t = setTimeout("SendData();", 1) ; }
62else { // 传送完文件 //div_message.innerHTML += mFileName +
63"传送完毕！<br>" ; // 继续传下一文件 ShowBar(0) ; var cFile = aryFiles.pop()
64; SendFile(cFile) ; } } } function ShowBar(per) { // 进度条 ddd.innerHTML
65= "<table width='200' border=0 cellpadding='0' cellspacing='0'
66><tr><td bgcolor='#6699FF'><input type=button style='
67" + per + "% ; border:0px; background:#005599; color:#FFFFFF'
68value=" + per + "%> </td></tr></table>" ; }
69</script>
70</html>
<html>2
<head>3
</head>4
<body> <input type=button onclick="BeginSendFiles();"5
value="发送" /> <input type=button onclick="JavaScript:6
Breaked=true;" value="中断" /> <div id="ddd"7
width=300px></div> <br></br> <DIV8
id=div_message></DIV>9
</body>10
<script language=VBScript> Function bytes2BSTR(vIn) strReturn =11
"" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If12
ThisCharCode < &H80 Then strReturn = strReturn &13
Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn =14
strReturn & Chr(CLng(ThisCharCode) * &H100 +15
CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End16
Function17
</script>18
<script language=javascript> var xmlhttp ; var ado_stream ; var19
mFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; var20
BlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024*10021
;//每次发送字节数 Breaked = false ; aryFiles = new Array() ; // 开始发送文件22
function BeginSendFiles() { initAryFiles() ; SendFile(aryFiles.pop()) ;
23
} // 构造待发送文件的数组 function initAryFiles() { aryFiles.push("c:\\aaa.zip")24
; aryFiles.push("c:\\bbb.exe") ; //c:\\aaa.zip c:\\bbb.exe本地文件25
aryFiles.reverse() ;//文件名 } function SendFile(vFullPath) { // 空文件则不执行上传26
if (!vFullPath) { return ; } Breaked = false ; div_message.innerHTML =27
"" ; ado_stream = new ActiveXObject("ADODB.Stream"); // 读取文件的流28
ado_stream.Type = 1; ado_stream.Open();29
ado_stream.LoadFromFile(vFullPath); // 读取文件 ado_stream.position = 0 ;30
SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余数则多发送一次 //31
alert(SendCount) ; var reg = /\b\w+.\w+$/gi mFileName =32
reg.exec(vFullPath) ; mPartStart = true ; mPartID = 1 ; mPartEnd =33
false ; SendData() ; } function SendData() { if (SendCount > 0) {34
var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件35
dom.async = false; dom.resolveExternals = false; // 构造xml文件头 var node =36
dom.createProcessingInstruction("xml","version='1.0'");37
dom.appendChild(node) ; node = null ; // 构造root节点 var root =38
dom.createElement("root"); dom.appendChild(root) ;39
dom.documentElement.setAttribute("xmlns:dt",40
"urn:schemas-microsoft-com:datatypes"); // 构造保存二进制数据的节点updata node =41
dom.createElement("upData") ; node.dataType = "bin.base64" ; //42
bin。base64编码 var att = dom.createAttribute("FileName") ; // 文件名属性43
att.value = mFileName ; node.setAttributeNode(att) ; att = null ; var44
att = dom.createAttribute("PartStart") ; // 分段开始标记 att.value =45
mPartStart ; node.setAttributeNode(att) ; att = null ; var att =46
dom.createAttribute("PartID") ; // 分段序号 att.value = mPartID ;47
node.setAttributeNode(att) ; att = null ; var att =48
dom.createAttribute("PartEnd") ; // 分段结束标记 att.value = mPartEnd ;49
node.setAttributeNode(att) ; att = null ; root.appendChild(node) ;50
node.nodeTypedValue = ado_stream.Read(BlockSize); // 节点数据从stream读取，固定长度51
node = null ; SendCount -= 1 ; xmlhttp = new52
ActiveXObject("Microsoft.XMLHTTP");53
xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);54
//http://www.xxx.com/xxx/xxx.asp 为web路径上的文件 xmlhttp.onreadystatechange=55
CallBack ; xmlhttp.send(dom); mPartStart = false ; xmlhttp = null ; }56
else { ado_stream.Close(); ado_stream = null ; } } function CallBack()
57
{ // 上传成功 if(xmlhttp.readystate == 4) { // 检查是否中断上传 if(Breaked) {58
return ; } if (SendCount > 0) { mPartID += 1 ; //59
div_message.innerHTML += ("<br>" + xmlhttp.ResponseText) ; var p60
= Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) + 1)) *61
100) ; // 计算进度百分比 ShowBar(p) ; var t = setTimeout("SendData();", 1) ; }62
else { // 传送完文件 //div_message.innerHTML += mFileName +63
"传送完毕！<br>" ; // 继续传下一文件 ShowBar(0) ; var cFile = aryFiles.pop()64
; SendFile(cFile) ; } } } function ShowBar(per) { // 进度条 ddd.innerHTML65
= "<table width='200' border=0 cellpadding='0' cellspacing='0'66
><tr><td bgcolor='#6699FF'><input type=button style='67
" + per + "% ; border:0px; background:#005599; color:#FFFFFF'68
value=" + per + "%> </td></tr></table>" ; }69
</script>70
</html>服务器端
1<%@ LANGUAGE=VBScript%>
2<% Option Explicit
3Response.Expires = 0
4
5' 定义变量和对象。
6dim ado_stream
7dim xml_dom
8dim xml_data
9dim str_filename
10dim bol_PartStart
11dim int_PartID
12dim bol_PartEnd
13
14' 创建 Stream 对象
15set ado_stream = Server.CreateObject("ADODB.Stream")
16' 从Request对象创建 XMLDOM对象
17set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
18xml_dom.load(request)
19' 读出包含二进制数据的节点
20set xml_data = xml_dom.selectSingleNode("root/upData")
21str_filename = xml_data.getAttribute("FileName")
22bol_PartStart = CBool(xml_data.getAttribute("PartStart"))
23int_PartID = CInt(xml_data.getAttribute("PartID"))
24bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))
25
26' 打开Stream对象，把数据存入其中
27ado_stream.Type = 1 ' 1=adTypeBinary
28ado_stream.open
29if not bol_PartStart then
30 ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename) ' 读取文件
31 ado_stream.position = ado_stream.size
32end if
33ado_stream.Write xml_data.nodeTypedValue
34' 文件存盘
35ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
36'保存文件 2=adSaveCreateOverWrite
37ado_stream.close
38
39' 释放资源
40set ado_stream = Nothing
41set xml_dom = Nothing
42' 向浏览器返回信息
43Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart
44%>
<%@ LANGUAGE=VBScript%> 2
<% Option Explicit 3
Response.Expires = 0 4
5
' 定义变量和对象。 6
dim ado_stream 7
dim xml_dom 8
dim xml_data 9
dim str_filename10
dim bol_PartStart11
dim int_PartID12
dim bol_PartEnd 13
14
' 创建 Stream 对象 15
set ado_stream = Server.CreateObject("ADODB.Stream") 16
' 从Request对象创建 XMLDOM对象 17
set xml_dom = Server.CreateObject("MSXML2.DOMDocument") 18
xml_dom.load(request) 19
' 读出包含二进制数据的节点 20
set xml_data = xml_dom.selectSingleNode("root/upData") 21
str_filename = xml_data.getAttribute("FileName")22
bol_PartStart = CBool(xml_data.getAttribute("PartStart"))23
int_PartID = CInt(xml_data.getAttribute("PartID"))24
bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))25
26
' 打开Stream对象，把数据存入其中 27
ado_stream.Type = 1 ' 1=adTypeBinary 28
ado_stream.open 29
if not bol_PartStart then30
ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename) ' 读取文件31
ado_stream.position = ado_stream.size 32
end if33
ado_stream.Write xml_data.nodeTypedValue 34
' 文件存盘 35
ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2 36
'保存文件 2=adSaveCreateOverWrite 37
ado_stream.close 38
39
' 释放资源 40
set ado_stream = Nothing 41
set xml_dom = Nothing 42
' 向浏览器返回信息 43
Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart44
%>