软件开发培训班 >> 编程开发 >> ASP

另类的文件上传解决方案

　　本文标签：另类的文件上传解决方案

</P>
<P><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>
   <DIV id=div_message></DIV>
</body></P>
<P><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></P><div class="tj_content hidden-xs"><table width=600 border=0 cellspacing=0 cellpadding=2 align=center class=title14><tr align=center><td><a href="http://www.zhujiangroad.com/edu/soft/69737.html"  target=_blank > Win系统中怎样使用U盘分区 </a></td><td><a href="http://www.zhujiangroad.com/dc/news/2013/3a16126.html"  target=_blank > 摄影入门必读：如何灵活的运用构图三分法 </a></td></tr> <tr align=center><td><a href="http://www.zhujiangroad.com/mobile/news/2020/6m81835.html"  target=_blank > 华为一直在使用的“徕卡认证”，那么徕卡是一家什么公司呢？ </a></td><td><a href="http://www.zhujiangroad.com/mobile/news/2020/10m82184.html"  target=_blank > 联通全新王卡月租19元，免费升5G，套路又来了 </a></td></tr></table></div>
<P><script language=javascript>
  var xmlhttp ;
  var ado_stream ;
  var mFileName, mPartStart, mPartID, mPartEnd ;
  var SendCount ;
  var BlockSize ;
  var Breaked ;
  var aryFiles ;</P>
<P>  BlockSize = 1024*100 ;//每次发送字节数
  Breaked = false ;
  aryFiles = new Array() ;</P>
<P>  // 开始发送文件
  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() ;//文件名
  }</P>
<P>  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 ;</P>
<P>    SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余数则多发送一次</P><div class="tj_content hidden-xs"><table width=600 border=0 cellspacing=0 cellpadding=2 align=center class=title14><tr align=center><td><a href="http://www.zhujiangroad.com//2023/11m88718.html"  target=_blank > 曾经爆火的空气净化器走向没落！功能被严重低估了 </a></td><td><a href="http://www.zhujiangroad.com/web/news/2023/10m88424.html"  target=_blank > 一亿粉丝苦等李子柒 </a></td></tr> <tr align=center><td><a href="http://www.zhujiangroad.com/hardware/news/2019/11a17421.html"  target=_blank > i7一定比i5强？买电脑陷阱你一定要注意了 </a></td><td><a href="http://www.zhujiangroad.com/dc/news/2013/10a16607.html"  target=_blank > 绽放百变的魅力 秋季人像摄影实战指南 </a></td></tr></table></div>
<P>   // alert(SendCount) ;</P>
<P>    var reg = /\b\w+.\w+$/gi
    mFileName = reg.exec(vFullPath) ;
    mPartStart = true ;
    mPartID = 1 ;
    mPartEnd = false ;
    
    SendData() ;
  }</P>
<P>  function SendData()
  {  
     if (SendCount > 0)
     {
        var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件
        dom.async = false;
        dom.resolveExternals = false;</P>
<P>        // 构造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 ;</P>
<P>        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 ;
        }</P><div class="tj_content hidden-xs"><table width=600 border=0 cellspacing=0 cellpadding=2 align=center class=title14><tr align=center><td><a href="http://www.zhujiangroad.com/web/news/2023/9m88225.html"  target=_blank > 茅台快把自己玩成料酒了 </a></td><td><a href="http://www.zhujiangroad.com//2020/7a17472.html"  target=_blank > 室内空气净化器品牌推荐 室内空气净化器选购技巧 </a></td></tr> <tr align=center><td><a href="http://www.zhujiangroad.com/mobile/news/2020/9m82053.html"  target=_blank > 科技发达的日本，为什么日本品牌手机无人问津了 </a></td><td><a href="http://www.zhujiangroad.com/oa/news/2021/4m83069.html"  target=_blank > 梦回486时代 现在组装电脑到底有多贵? </a></td></tr></table></div>
<P>        if (SendCount > 0)
        {
              mPartID += 1 ;
              // div_message.innerHTML += ("
" + 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 + "传送完毕！
" ;</P>
<P>            // 继续传下一文件
            ShowBar(0) ;
            var cFile = aryFiles.pop() ;
            SendFile(cFile) ; 
         }
 
    }
    </P>
<P>  }</P>
<P>  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>" ;
  }</P>
<P></script>
</html></P>
<P>

三星“掐架”京东方，谁也成不了赢家	山寨币疯狂再来，它会重演当年ICO的惨剧吗？
滤镜、尬吹、炫耀，小红书还值得你信吗？	钟睒睒再次成为中国首富若不是蚂蚁暂停上市很多人都不知道他

技术文章快速查找

ASP正则表达式清除HTML指定标签的方法

asp最简单的生成验证码代码

用ASP设计收发文管理系统

ASP 连接Access数据库的登陆系统

asp查询xml的代码不刷新页面查询的方法

asp 过滤非法字符函数

asp文章中随机插入网站版权文字的实现代码

ASP中用ajax方式获得session的实现代码

相关下载

在线教程导航

软件应用
·Windows8	·Windows7	·Word
·Excel	·PPT	·WPS
Web开发
·ASP	·JavaScript	·DIV+CSS
·JSP	·VbScript	·XML
·PHP
开发语言
·VB	·VC	·ASP.NET
·Java	·C++	·Delphi
数据库开发
·MySQL	·MsSQL	·Access
·Oracle	·DB2
手机系统
·Android	·iOS	·WindowsPhone
网站设计
·Flash	·Dreamweaver	·Fireworks
平面设计
·Photoshop	·CorelDraw	·AutoCAD
·3DsMAX	·Illustrator
网络技术
·网站运营	·网络安全	·网络搭建