另类的文件上传解决方案

更新时间：2006年06月25日 00:00:00 作者：

编写思路:把本地文件在客户端通过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>

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

服务器端

</P>
<P><%@ LANGUAGE=VBScript%> <% Option Explicit Response.Expires = 0  </P>
<P>' 定义变量和对象。 dim ado_stream dim xml_dom dim xml_data dim str_filenamedim bol_PartStartdim int_PartIDdim 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 ifado_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>

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

另类的文件上传解决方案

使用类，实现模块化
使用类，实现模块化...
2006-06-06
ASP编程入门进阶（十）：Global.asa文件
ASP编程入门进阶（十）：Global.asa文件...
2007-01-01
上一篇,下一篇过程代码
上一篇,下一篇过程代码...
2007-03-03
方便的大家admin及admin888 经过 md5加密后16位和32位代码
方便的大家admin及admin888 经过 md5加密后16位和32位代码...
2007-03-03
九种防MDB数据库被下载的方法小结
原来改mdb为asp就能防下载是鬼话。用Flashget试验下载data.asp文件，并另存为data.mdb文件，发现用ACCESS打开完好无损！
2006-06-06
sql语句的一些集合
sql语句的一些集合...
2006-06-06
ASP连接11种数据库语法总结
ASP连接11种数据库语法总结...
2006-08-08
javascript asp教程创建数据库连接
javascript asp教程创建数据库连接...
2007-03-03
很不错的一个UBB代码
很不错的一个UBB代码...
2006-06-06
如何在数据库中用好Transaction？
如何在数据库中用好Transaction？...
2006-06-06

另类的文件上传解决方案

相关文章

最新评论

大家感兴趣的内容

最近更新的内容

常用在线小工具