编写思路:把本地文件在客户端通过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)客户端代码 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 服务器端 ' 定义变量和对象。 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 %> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

　　推荐阅读

　　如何远程调用ACCESS数据库[要求加精！！]

使用了TCP/IP，ADO及XML（需要安装Microsoft XML 4.0。）。分服务器和客户端两部分，服务器可以多用户同时连接。远程连接Access数据库有很多方法，我以前已经比较详细的回答过（见下面所列的5种方法），我现在这个>>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/33274.html

 1/2    1