ASP中另类的文件上传解决方案

发布时间：2023-07-04 14:28:55 所属栏目：Asp教程来源：

导读：编写思路:把本地文件在客户端通过base64编码以后发送目的地.

测试过程中,上传文件过大,导致超时不成功.

后来经过改善.把编码分段发送.测试20M成功

编写目的:在传统的解决方案里面,一次一次选取上传可以.

编写思路:把本地文件在客户端通过base64编码以后发送目的地.

测试过程中,上传文件过大,导致超时不成功.

后来经过改善.把编码分段发送.测试20M成功

编写目的:在传统的解决方案里面,一次一次选取上传可以.但是在碰到把数据库里文件路径读出来,并把这些文件上传到一个地方的时候就比较麻烦.

如果得到路径一个一个去找到用ftp当然也是可以的,但每次找这些文件我看都会比较费时。这里编写这个主要就是为了通过数据库里的文件路径取得文件.把文件一次批量上传到一个地方.

其主要目的还是为了锻炼一下自己.

解决过程:起初试着用模拟键盘输入强行赋值给file控件用传统的方法上传。可是老碰到空值的情况，以至有很多文件没有发送出去。查阅一些资料,现在是把所有路径通过数据库取到然后写到一个js里。然后在前台用js读取这些路径,通过xmlhttp来发送文件。

因为ie不太喜欢xmlHttp.总认为他有恶意行为.所以老谈出提示警告.所以操作的时候不能使用web路径.只能用物理路径去访问它.

然后服务端有一文件来接收这些编码,并对其进行解码.所以我称之为"c/s". ^_^

目前很多代码还在完善中.

简单介绍一下:

-------------------------------------------------------------

aryFiles.push("c://aaa.zip") ;

aryFiles.push("c://bbb.exe") ;

这里为文件路径和文件.可为多个

以后这个路径也可以通过file控件在客户端取到

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)

客户端代码</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>

<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>

<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>

<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>

服务器端

</P>

<P><%@ LANGUAGE=VBScript%>

<% Option Explicit

Response.Expires = 0 </P>

<P>' 定义变量和对象。

dim ado_stream

dim xml_dom

dim xml_data

dim str_filename

dim bol_PartStart

dim int_PartID

dim bol_PartEnd </P>

<P>' 创建 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"))</P>

<P>' 打开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 </P>

<P>' 释放资源

set ado_stream = Nothing

set xml_dom = Nothing

' 向浏览器返回信息

Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart

%> </P>

<P>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!