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

豹子

版主

Rank: 7 Rank: 7 Rank: 7

1^# 大中小发表于 2007-6-23 10:30 只看该作者

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

编写思路:把本地文件在客户端通过base64编码以后发送目的地.
测试过程中,上传文件过大,导致超时不成功.% e8 t, w4 @/ ]" m* d
后来经过改善.把编码分段发送.测试20M成功* w# @6 V" m# E" O/ w
+ k3 b0 t5 t' q/ J' @' V
编写目的:在传统的解决方案里面,一次一次选取上传可以.但是在碰到把数据库里文件路径读出来,并把这些文件上传到一个地方的时候就比较麻烦.
如果得到路径一个一个去找到用ftp当然也是可以的,但每次找这些文件我看都会比较费时。这里编写这个主要就是为了通过数据库里的文件路径取得文件.把文件一次批量上传到一个地方.
其主要目的还是为了锻炼一下自己.
8 n* R) O* Q7 y& T* s
解决过程:起初试着用模拟键盘输入强行赋值给file控件用传统的方法上传。可是老碰到空值的情况，以至有很多文件没有发送出去。查阅一些资料,现在是把所有路径通过数据库取到然后写到一个js里。然后在前台用js读取这些路径,通过xmlhttp来发送文件。5 i4 a# f' j( G! x! C
因为ie不太喜欢xmlHttp.总认为他有恶意行为.所以老谈出提示警告.所以操作的时候不能使用web路径.只能用物理路径去访问它.9 }: J, Z3 W. g% d- l
然后服务端有一文件来接收这些编码,并对其进行解码.所以我称之为"c/s". ^_^" J0 i0 J! Q6 g6 r. }( |

目前很多代码还在完善中.
简单介绍一下:

aryFiles.push("c:\\aaa.zip") ;3 U$ a( _, Y2 y9 _3 r# m* {
aryFiles.push("c:\\bbb.exe") ;
这里为文件路径和文件.可为多个
以后这个路径也可以通过file控件在客户端取到
+ L% b7 ?. j  Q6 p8 D
http:// www.xxx.com/xxx/xxx.asp
这个是目的地,可以改为自己想要的地址.( J7 T9 l6 `$ _7 `+ U4 r

ado_stream.LoadFromFile(server.mappath(".") "/" str_filename) : V7 b$ @# Z9 V; f0 p
server.mappath(".") "/" str_filename 这里是读取文件.
server.mappath(".") "/" 路径和存放路径一致- B8 c+ @, w* e
# A$ x: A0 I% h
ado_stream.SaveToFile server.mappath(".") "/" str_filename,2
server.mappath(".") "/" 这个为存放文件的路径. str_filename 为文件名7 H; I, Z- R; \( j6 j
0 g1 c6 X( `, ]9 m
这里读取和存放都是放在程序所放目录中.大家测试的时候也可以保持这样即可& |! ]' G9 G+ M
( B3 w  X6 ?4 ?% `/ q% e, b( ]$ J/ H
把第一段代码放到本地(eg:c:\upload.htm)  Z2 w; B: r* A5 z

把第二段代码放到服务器上,可以是本地服务器,可以是公网服务器.和上面的目的地保持一致
(eg:http://www.xxx.com/upload.asp or http:// localhost/www/upload.asp)

/ m4 p3 q% @# x& M; U/ t* O# e
操作:找到第一段代码保存的地方。执行即可(eg:打开c盘执行upload.htm)

目前程序还在调试过程中,希望大家提出宝贵意见

客户端代码html
3 v- }" a1 Z4 i' @1 g6 L
head5 m5 T7 o3 M& Z* p4 G
+ [2 D: `6 K: h6 `
/head2 ?9 X4 m$ f, O6 y3 G5 @' w2 W

body input type=button

value="发送" / input type=button  value="中断" / div id="ddd"% I: ~# A: R$ `7 e0 O6 Z

width=300px/div br/br DIV+ }0 x4 V3 b5 y$ |5 F, K5 M
) D8 _. t6 h- f" T7 N0 z! i
id=div_message/DIV" I% d  O! C5 H8 O: J
9 z) V- |% e. a2 c4 k' a; N
/body
% f1 j+ _8 h0 v* _$ @
script language=VBScript Function bytes2BSTR(vIn) strReturn =7 V2 K) y8 W* a, S2 e5 c9 x1 Q: G: k
& g/ B- k2 r' X9 U
"" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If/ d1 Q5 [3 a. V) W

ThisCharCode  H80 Then strReturn = strReturn

Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i 1,1)) strReturn =
  _2 ^  n/ A% L' P9 d1 b. q
strReturn  Chr(CLng(ThisCharCode) * H100

CInt(NextCharCode)) i = i 1 End If Next bytes2BSTR = strReturn End

Function8 g: q2 G( C7 Q. F9 k* o! j
( c: b+ X$ V  _5 m) A
/script) t3 V) w& |. ?4 s" r
" I2 P6 W' V+ H' v% p
script language=javascript var xmlhttp ; var ado_stream ; var) g+ L- A: ^5 h+ A4 s4 q1 ~  d
0 a( D( W& w2 H2 A6 b5 R
mFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; var

BlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024*100
* i0 Y$ r/ Q, [" u
;//每次发送字节数 Breaked = false ; aryFiles = new Array() ; // 开始发送文件3 k3 v& Y- o4 j: P
2 W8 D/ h; V/ g% e& G& E
function BeginSendFiles() { initAryFiles() ; SendFile(aryFiles.pop()) ;: R" f5 ~* w6 |* ?
  |) {2 X# D% e( E/ K
} // 构造待发送文件的数组 function initAryFiles() { aryFiles.push("c:\\aaa.zip")9 p* J5 f  A* W
8 K5 o% c- Y. N
; aryFiles.push("c:\\bbb.exe") ; //c:\\aaa.zip c:\\bbb.exe本地文件" Z+ w! v( l" J& M; z
- [( ]1 q3 X, ?
aryFiles.reverse() ;//文件名 } function SendFile(vFullPath) { // 空文件则不执行上传! p/ T- ]. y: T; ?
9 u/ H# R3 B3 t8 [
if (!vFullPath) { return ; } Breaked = false ; div_message.innerHTML =4 T; v9 d$ I7 j2 E* z" g

"" ; ado_stream = new ActiveXObject("ADODB.Stream"); // 读取文件的流7 D2 q# ^! R; P

ado_stream.Type = 1; ado_stream.Open();$ D% n( f: [: I; k# Y" O0 E0 R+ R0 `

ado_stream.LoadFromFile(vFullPath); // 读取文件 ado_stream.position = 0 ;

SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余数则多发送一次 //1 S5 I# A2 x7 s0 R& n+ I/ B

alert(SendCount) ; var reg = /\b\w .\w $/gi mFileName =3 v" v8 s0 i: ?4 F
: C1 y# O& h2 O* C1 d+ ]/ C
reg.exec(vFullPath) ; mPartStart = true ; mPartID = 1 ; mPartEnd =

false ; SendData() ; } function SendData() { if (SendCount  0) {

var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件
( M$ {. [4 ?4 h+ M2 x" Q
dom.async = false; dom.resolveExternals = false; // 构造xml文件头 var node =% c$ ~' Z$ A. h: V
( G% x* S' f. \; X& I+ v2 q
dom.createProcessingInstruction("xml","version='1.0'");
9 r0 C  B4 [5 g; u5 v6 T2 m
dom.appendChild(node) ; node = null ; // 构造root节点 var root =

dom.createElement("root"); dom.appendChild(root) ;" {. H% K' Z+ P9 H
5 @) U( ?: G, Q, U5 A' q* z
dom.documentElement.setAttribute("xmlns:dt",  Z4 U6 a! z5 r7 T
6 p9 {' q0 ?3 p' T
"urn:schemas-microsoft-com:datatypes"); // 构造保存二进制数据的节点updata node =

dom.createElement("upData") ; node.dataType = "bin.base64" ; //4 ~! p5 S* p: `6 h8 d

bin。base64编码 var att = dom.createAttribute("FileName") ; // 文件名属性
1 C) ~! y# S" w2 {, Q
att.value = mFileName ; node.setAttributeNode(att) ; att = null ; var, i/ S$ f0 U5 w; {! j$ D5 Z

att = dom.createAttribute("PartStart") ; // 分段开始标记 att.value =: [/ _4 `) P: K1 e3 [: n3 B) x

mPartStart ; node.setAttributeNode(att) ; att = null ; var att =
7 p" C* }$ z$ f, V. s. @+ ?
dom.createAttribute("PartID") ; // 分段序号 att.value = mPartID ;

node.setAttributeNode(att) ; att = null ; var att =
+ Y$ v+ B* D4 W! q! ~
dom.createAttribute("PartEnd") ; // 分段结束标记 att.value = mPartEnd ;1 E9 A; x" ], n9 a6 ~" a
0 Z/ ^( s5 A: |/ P
node.setAttributeNode(att) ; att = null ; root.appendChild(node) ;) ?0 U6 E; w) G+ K( Y1 i0 @
' `3 N' _) h: Q
node.nodeTypedValue = ado_stream.Read(BlockSize); // 节点数据从stream读取，固定长度: E2 |# V2 l/ p9 N' H: m; C
5 E. w" r( q% u) @
node = null ; SendCount -= 1 ; xmlhttp = new
' w7 |3 `/ }# F. d7 Z
ActiveXObject("Microsoft.XMLHTTP");# U: [  q( N  F
9 O* e/ {) b( C0 L; x4 d
xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);

//http://www.xxx.com/xxx/xxx.asp 为web路径上的文件 xmlhttp.onreadystatechange=
0 B' A. a. C& P* V0 n! L# U
CallBack ; xmlhttp.send(dom); mPartStart = false ; xmlhttp = null ; }$ m% s: r( S6 i* k" ]# |

else { ado_stream.Close(); ado_stream = null ; } } function CallBack()9 X7 Z2 \, K& R. O6 ?; X7 i9 h7 T

{ // 上传成功 if(xmlhttp.readystate == 4) { // 检查是否中断上传 if(Breaked) {

return ; } if (SendCount  0) { mPartID  = 1 ; //0 _8 @9 J9 x  H5 q% N
( ?6 I# v' ]5 w% ~+ X) X9 U
div_message.innerHTML  = ("br" xmlhttp.ResponseText) ; var p5 @. X( ?) H5 [" J0 ?& ]) A

= Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) 1)) *' X! [8 }. y6 x* ?* o
6 G6 Z  b; H3 K: _& ?6 S0 k: _
100) ; // 计算进度百分比 ShowBar(p) ; var t = setTimeout("SendData();", 1) ; }: S% H2 L, G1 ^" [
8 t- C8 Y4 b+ x$ q' Q/ d
else { // 传送完文件 //div_message.innerHTML  = mFileName
; X/ S8 A( f5 t2 M4 D" n. X
"传送完毕！br" ; // 继续传下一文件 ShowBar(0) ; var cFile = aryFiles.pop()
/ a6 y# f( t5 g
; SendFile(cFile) ; } } } function ShowBar(per) { // 进度条 ddd.innerHTML

= "table width='200' border=0 cellpadding='0' cellspacing='0'
, G$ q8 J: z/ ~% I5 Z8 f9 ]7 r
trtd bgcolor='#6699FF'input type=button style='

width:" per "% ; border:0px; background:#005599; color:#FFFFFF'3 z6 ?- o% Z  t% D% s

value=" per "% /td/tr/table" ; }, q2 e3 N0 ]- D1 C2 }1 H. Y
. H/ {6 h2 ]7 R
/script

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

服务端代码%@ LANGUAGE=VBScript% ' t9 p' A+ S$ }' ^8 P. G

% Option Explicit
2 Z+ ~4 f# N, f2 U! e! r1 V
Response.Expires = 0

' 定义变量和对象。 4 l% H  H: m2 d! a
' G9 H; M1 A9 y3 L; L
dim ado_stream # l' C7 o9 r8 [5 E  U1 ~* P% x

dim xml_dom ! d% X( Q. I5 G2 @. b
- E0 g6 Z4 y  x+ {/ v
dim xml_data
' {, _3 T9 N5 _9 s8 {* S
dim str_filename. ?, L/ l5 M( D9 Q$ D

dim bol_PartStart
1 E' v2 k# D4 ^( r
dim int_PartID6 z# a0 U% r/ ^1 {6 j

dim bol_PartEnd 5 X! Q9 M$ g* n  c

/ J. z: f3 G- G0 v& |1 n2 e/ g
' 创建 Stream 对象

set ado_stream = Server.CreateObject("ADODB.Stream")
8 h% c0 ]+ }$ H5 V# x
' 从Request对象创建 XMLDOM对象 , J, L0 w2 p5 N

set xml_dom = Server.CreateObject("MSXML2.DOMDocument") + z- @( w5 V! h: s! P

xml_dom.load(request)
7 d  L- p6 n- h/ h
' 读出包含二进制数据的节点
) ~# O$ ?3 m' p1 C
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")), ^9 ^/ \  v; N1 {, l5 D3 g

bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))* N7 d4 c6 w, r2 L

6 N- f# X, V* k
9 s% E8 l. J* m$ U% A0 x' J
' 打开Stream对象，把数据存入其中
7 r9 [; b% i; @* u1 v4 F& |( _
ado_stream.Type = 1 ' 1=adTypeBinary  . K8 g7 ~* s! d2 O4 O

ado_stream.open
/ H( p% v/ Z6 `! ?% q
if not bol_PartStart then( N- z& e! @% i1 Z6 J# F

  ado_stream.LoadFromFile(server.mappath(".") "/" str_filename)    ' 读取文件1 @! t$ p2 }4 o+ s" u$ y& w
6 T/ m6 F# H4 |& n2 K! ]: v) S
  ado_stream.position = ado_stream.size % d5 N3 o) I3 l9 a

end if
: P; B7 x/ D/ w2 i5 T
ado_stream.Write xml_data.nodeTypedValue $ h5 J* f+ g+ `, r, Q
/ \8 F5 d7 T) Y; U
' 文件存盘
5 w  L7 o" f- d7 c0 T
ado_stream.SaveToFile server.mappath(".") "/" str_filename,2
7 |% L8 u, P" G' m9 S/ q
'保存文件 2=adSaveCreateOverWrite

ado_stream.close ! Y' }# P0 b% D# T% n5 z
" X% Q" N6 V) C

' 释放资源

set ado_stream = Nothing

set xml_dom = Nothing - s/ \6 c0 g4 O# |$ s& n

' 向浏览器返回信息
6 d2 L+ ]' U6 b8 y
Response.Write "Upload successful!" str_filename  int_PartID  bol_PartStart2 L- I/ o, Y8 [1 Z# s; L& ~) M

%

[Ctrl A 全部选择提示：你可先修改部分代码，再按运行]1 j8 Q* m3 ?' [' ^

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

点击图标进入精品网摘收藏欢迎大家加入网络收藏夹

TOP

‹‹ 上一主题 | 下一主题 ››