首页 网站知识 网站案例 网站制作流程 网站制作价格 网站定制 联系我们
Q Q
电 话
手 机
Q Q
电 话
手 机

另类的异步文件上传解决方案(asp+ajax上传)

发布时间:2020-04-06 07:20
发布者:网站定制网
浏览次数:
目前很多代码还在完善中.
简单介绍一下:
-------------------------------------------------------------
aryFiles.push("c:\\aaa.zip") ;
aryFiles.push("c:\\bbb.exe") ;
这里为文件路径和文件.可为多个
以后这个路径也可以通过file控件在客户端取到

http:// 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)

目前程序还在调试过程中,希望大家提出宝贵意见
客户端代码
=========
<html>
<head>
</head>
<body>
<input type=button onclick="BeginSendFiles();" value="发送" />
<input type=button onclick="JavaScript: Breaked=true;" value="中断" />
<div id="ddd" width=300px></div>
<br></br>
<DIV id=div_message></DIV>
</body>
<script language=VBScript>
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>
<script language=javascript>
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 += ("<br>" + 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 + "传送完毕!<br>" ;
// 继续传下一文件
ShowBar(0) ;
var cFile = aryFiles.pop() ;
SendFile(cFile) ;
}

}

}
function ShowBar(per)
{
// 进度条
ddd.innerHTML = "<table width='200' border=0 cellpadding='0' cellspacing='0' ><tr><td bgcolor='#6699FF'><input type=button style=' width:" + per + "% ; border:0px; background:#005599; color:#FFFFFF' value=" + per + "%> </td></tr></table>" ;
}
</script>
</html>
服务端代码
------------------------------------------------------------------
<%@ LANGUAGE=VBScript%>
<% Option Explicit
Response.Expires = 0
' 定义变量和对象。
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
%>

上一篇:非常简洁的验证码程序
下一篇:没有了
热点地区网站制作
热门地区网站设计制作、为客户量身定制一个适合自己的推广营销型网站
|玉龙做网站
玉龙纳西族自治县是云南省丽江市下辖县之一,县境位于云南省西北部。截止到2014年,玉龙县辖16个乡(镇),97个村委会,5个居委会,913个村民小组,幅员面积6392.6平方公里。2012年,
|庆云网站制作
庆云县地处两省(山东、河北)三市(滨州、德州、沧州)五县(盐山、海兴、无棣、阳信、乐陵)交界处,北靠北京、天津,南向山东省会济南,位于华北、胜利、大港三大油田中心
|朝阳企业做网站
朝阳市位于辽宁省的西部,辖境居东经118°50′至121°17′和北纬40°25′至42°22′之间,东西跨度165公里,南北跨度约216公里,边界周长约980公里。北与内蒙古自治区赤峰市及哲里木盟接
|安次网站推广
安次区是河北省 廊坊市辖区,地处河北省中北部,廊 坊市区南部,下辖3个街道、4个镇、4个乡,总面积578.4平方公里,总人口36.03万人(2013年)。安次境域周代属燕国地, 西汉置安次
|兴安网络推广
兴安县位于广西东北部的湘桂走廊,地处北纬25°18′~26°55′、东经110°14′~110°56′之间,属桂林市辖县,是湘漓二水之源,也是世界上最古老的运河——灵渠的所在地,自古以来即是楚
|汤旺河网站建设
汤旺河区(局)隶属黑龙江省伊春市,地理坐标为东经128°51′5″~130°8′0″,北纬48°22′18″~48°48″30″。位于伊春市东北部,小兴安岭顶峰,北距黑龙江省一级对俄边贸口岸嘉荫
|上犹网站建设
上犹县位于江西省赣州市西部,赣江上游。山清水秀,物产丰饶,享有得天独厚的环境、资源优势,素有“水电之乡、旅游之乡、茶叶之乡”的美誉。以水丰、电足著称,是全国最早的
|上栗网站建设
上栗位于江西西部,长株潭经济一体化的城市群腹地,扼吴楚通衢要地,为湘赣边贸重镇。自古商贾云集,边贸活跃,素有“小南京”之称。全县人口48万,总面积721.11平方公里,辖6镇
|雅布赖网站建设
雅布赖镇(地处阿拉善盟西南缘。雅布赖镇驻地贡呼都格位于阿拉善右旗东南部,距旗府所在地额肯呼都格镇109公里。地理坐标为东经101°52′---103°33′,北纬39°08′---40°18′,东靠孟
|清流网站建设
清流县地处福建省西部,武夷山南侧,九龙溪上游。清流历史悠久,人杰地灵。古称黄莲,宋元符元年(1098年)置县,因县城清溪环绕,碧水萦回,故名清流。1988年,中国科学院考古
|襄汾网站建设
襄汾县位于山西省中南部。东临浮山、翼城,西傍乡宁,南毗曲沃、侯马、新绛,北连临汾。地理座标为东经111°06′38〞至111°40′55〞,北纬35°40′05〞至36°03′20〞。南北39.3千米,东
|赣榆网站建设
赣榆县地处江苏省东北端,东临黄海海州湾,隔海与日本、朝鲜半岛相望,北接山东半岛,西北紧邻全国大型综合批发市场——临沂,南靠新亚欧大陆桥东桥头堡——连云港,是江苏省
推荐地区
重点地网站设计、网站建设、网站维护服务推荐,完善的售前售后服务保障客户推广的有效
|陇南做网站
陇南企业做网站,陇南比较好的网络公司,陇南专业的网站建设
|云浮网站制作
云浮企业做网站,云浮比较好的网络公司,云浮专业的网站建设
|南阳企业做网站
南阳企业做网站,南阳比较好的网络公司,南阳专业的网站建设
|滨州网站推广
滨州企业做网站,滨州比较好的网络公司,滨州专业的网站建设
|商丘网络推广
商丘企业做网站,商丘比较好的网络公司,商丘专业的网站建设
|克拉玛依网站建设
克拉玛依企业做网站,克拉玛依比较好的网络公司,克拉玛依专业的网站建设
|内江网站建设
内江企业做网站,内江比较好的网络公司,内江专业的网站建设
|枣庄网站建设
枣庄企业做网站,枣庄比较好的网络公司,枣庄专业的网站建设
|雄安新区网站建设
雄安新区企业做网站,雄安新区比较好的网络公司,雄安新区专业的网站建设
|郑州网站建设
郑州企业做网站,郑州比较好的网络公司,郑州专业的网站建设
|拉萨网站建设
拉萨企业做网站,拉萨比较好的网络公司,拉萨专业的网站建设
|毕节网站建设
毕节企业做网站,毕节比较好的网络公司,毕节专业的网站建设
热点TAG
网站制作热点内容汇集,展示最新的网站建站TAG,热点做网站内容