使用xmlhttp 实现多文件上传

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

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

作者：来源：中国软件网 2008年6月21日

如今xml技术渐渐成熟，成为了一种网站传播数据的又一种方式,下面是我用xmlhttp写的一个多文件上传程序.包括客户端和服务端两部分..
本程序的实现是利用xml可以在其结点存放经base64编码的二进制文件,先在客户端生成包含要传文件的xml 再,通过xmlhttp发送到服务端.下面是客户端:

<html>

<!--

xmlupload.htm by 九天神龙

ttp://www.5ucode.com

xkou@hotmail.com

//-->

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

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

value="ttp://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">  <button onclick=displayForm(parseInt(upnum.value));>设定</button>

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

<!--

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>

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!

JavaBean实现多文件上传功能的两种方法

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

使用xmlhttp 实现多文件上传

业界热点: