使用xmlhttp 实现多文件上传

原创 2004年07月17日 15:03:00

如今xml技术渐渐成熟,成为了一种网站传播数据的又一种方式,下面是我用xmlhttp写的一个多文件上传程序.包括客户端和服务端两部分..

本程序的实现是利用xml可以在其结点存放经base64编码的二进制文件,先在客户端生成包含要传文件的xml 再,通过xmlhttp发送到服务端.下面是客户端:

<html>

<!--

xmlupload.htm by 九天神龙

http://www.5ucode.com

//-->

<META  http-equiv=Content-Type content="text/html; charset=gb2312">

<title>XML上传客户端</title>

提交到asp页面<input type=text id="postto" size="30"

value="http://localhost/up.asp"

/><br>

上传到服务器路径<input value="/"

type=text id="postpath" onblur="if(this.value.charAt(this.value.length-1)!='//') this.value+='//';"  /><br>

设定文件上传数:<input type=text value=5 size=5 id="upnum"> &nbsp;<button onclick=displayForm(parseInt(upnum.value));>设定</button>

<div id=div1></div><button onclick=sendfile()>上传</button><br /><br />返回信息:

<div id="div_message" style="margin-left:20px;padding:10px;border:1px solid silver;"/>

<SCRIPT LANGUAGE="JavaScript">

<!--

function displayForm(i){ //显示指定数目的textbox

       if(i<2) i=2;

       var tal="";

       for(a=1;a<=i;a++){

              str=a+".<input type=file id='upfile'><br />";

              tal+=str;

       }

       div1.innerHTML=tal;

}

displayForm(2);

 

function sendfile(){

       //创建dom对象

       var xmldom=new ActiveXObject("MSXML2.DOMDocument");

       xmldom.async=false;

       //载入外部xml 文件,在与本文件同一目录下建一 xml.xml 内容为 <root></root>

       xmldom.load("xml.xml");

       //建立本地ado 对象

       var ado=new ActiveXObject("ADODB.Stream");

       ado.Type=1; // 1=adTypeBinary ado_stream;

       var allfile=document.all("upfile");

//alert(allfile.length);

//循环读取textbox

for(a=1;a<=allfile.length;a++){

       if(allfile[a-1].value!=""){

              //创建一个file节点

              var fnode=xmldom.createElement("file");

              xmldom.documentElement.appendChild(fnode);

              var lastnode=xmldom.documentElement.lastChild;

              //文件名

              fnode=xmldom.createElement("name");

              fnode.text=(postpath.value+allfile[a-1].value.replace(/(.*)///g,""));

              lastnode.appendChild(fnode);

              //内容

              fnode=xmldom.createElement("content");

              fnode.dataType = "bin.base64";

              ado.Open();

              ado.LoadFromFile(allfile[a-1].value);

              fnode.nodeTypedValue=ado.Read(-1);

              ado.Close();

              lastnode.appendChild(fnode);

       }

}

       //alert(xmldom.xml);

       div_message.innerHTML ="Data has send,please wait....";

       var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");

       xmlhttp.open("POST",postto.value,false);

       xmlhttp.send(xmldom);

       //将接受到的数据变为UNICODE文本

       var info=BytesToBstr(xmlhttp.ResponseBody,"GB2312");

       div_message.innerHTML=info;

       if(info.charAt(0)=="b")

              //如果是上传文件为空,则获取服务端所在文件夹

              postpath.value=info.replace(/.*by ([a-zA-Z]://.*//).*/g,"$1");

      

}

//-->

</SCRIPT>

 

<SCRIPT LANGUAGE=vbscript>

function BytesToBstr(body,Cset) //将收到的数据转为UNICODE

       dim objstream

       set objstream =CreateObject("adodb.stream")

       objstream.Type=1

       objstream.Mode=3

       objstream.Open

       objstream.Write body

       objstream.Position=0

       objstream.type=2

       objstream.Charset=Cset

       BytesTobstr=objstream.ReadText

       objstream.Close

       set objstream=nothing

end function

</script>

客户端完成

服务端比较简单:

<%Response.Expires=0

‘upload.asp by 九天神龙

‘http://www.5ucode.com

‘xkou@hotmail.com

set d=Server.CreateObject("ADODB.Stream")

set x=Server.CreateObject("MSXML2.DOMDocument")

x.load(request)

set r=x.documentElement

//循环读取结点

For i=0To(r.childNodes.length-1)

set fn=r.childNodes(i).childNodes(0)

set xf=r.childNodes(i).childNodes(1)

d.Type=1

d.open

d.Write xf.nodeTypedValue  //读取后写入

d.SaveToFile fn.text,2

d.close%>

<%=fn.text%> ok!<BR><%next

set d=Nothing

set x=Nothing%>by <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%> execute OK!

 

使用时当上传两个3M的文件时,cpu使用占100%,当前窗口出现假死现象.但过一会就可以完成.

 

VB 发送文件(Http Post),带其他参数

除了发送文件主体外,还能带其他的参数。
  • zhouyingge1104
  • zhouyingge1104
  • 2014年06月03日 16:19
  • 7177

用xmlhttp将html的数据打包成multipart/form-data格式,实现异步上传文件功能

阅读本文之前,可以先阅读RFC1867 Form Based File Upload in HTML协议。1.不知道为什么,在局域网,有些电脑上含有的表单提交时很快,但有些很慢。服务器端使用过多种文件...
  • cm4ever
  • cm4ever
  • 2006年01月07日 00:56
  • 6413

vb6 winhttp 上传文件

winhttp 上传文件到web服务器
  • haha4799
  • haha4799
  • 2016年03月09日 17:31
  • 1621

html5上传文件 file API -XMLHttpRequest 2 示例

使用XMLHttpRequest上传文件
  • keyunq
  • keyunq
  • 2016年11月02日 17:19
  • 1025

XMLHttpRequest上传文件

文件: -->  许可证.jpg 支持jpg、jpeg、png、bmp格式图片,大小不超过2M ...
  • maoliangfei2011
  • maoliangfei2011
  • 2016年08月09日 10:02
  • 333

xmlhttp实现文件上传

xmlhttp实现文件上传最近项目中要实现一个文件上传的功能,不用input[file]的方式,要通过文件路径直接上传本地文件,折腾了好几天,终于弄通了。前台代码://发送字节流到服务器,stream...
  • qq_17034925
  • qq_17034925
  • 2017年02月21日 16:23
  • 114

使用xmlhttp 实现多文件上传

如今xml技术渐渐成熟,成为了一种网站传播数据的又一种方式,下面是我用xmlhttp写的一个多文件上传程序.包括客户端和服务端两部分..本程序的实现是利用xml可以在其结点存放经base64编码的二进...
  • xkou
  • xkou
  • 2004年07月17日 15:03
  • 1461

编码不一致 (936到utf-8) 发送xmlhttp 到url后中文乱码

function GetHtml(sUrl,sUrl01){  var xmlRequest;  xmlRequest = new ActiveXObject("MSXML2.ServerXMLHTT...
  • smeyou
  • smeyou
  • 2011年06月20日 11:23
  • 1194

终于明白m$为什么要对xmlhttp和xmldom做那么多个版本的升级了

为了支持304response,测试了 MSXML2.XMLHTTP.5.0,MSXML2.XMLHTTP.3.0,MSXML2.XMLHTT,Microsoft.XMLHTTP,MSXML2.DOM...
  • emu
  • emu
  • 2007年06月04日 20:24
  • 3890

ajax上传(xmlhttp上传文件突破大小限制)

转自:优游客 File upload      上传提示:Microsoft ADO/RDS此页正在访问其他域的数据。您允许这样做吗?        您的图片              var xml...
  • sumor
  • sumor
  • 2007年02月12日 13:57
  • 1180
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用xmlhttp 实现多文件上传
举报原因:
原因补充:

(最多只允许输入30个字)