另类的文件上传解决方案

网络编程 2024/9/28 佚名

3 2 1

无为清净楼资源网 Design By www.qnjia.com

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

<html><head></head><body> <input type=button onclick="BeginSendFiles();" value="发送" /> <input type=button onclick="JavaScript: Breaked=true;" value="中断" /> </body> </html> 
[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

服务器端

<%@ LANGUAGE=VBScript%> <% Option Explicit Response.Expires = 0 ' 定义变量和对象。 dim ado_stream dim xml_dom dim xml_data dim str_filenamedim bol_PartStartdim int_PartIDdim 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 ifado_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需再刷新一下页面才能执行]

另类的文件上传解决方案

标签：

另类的文件上传解决方案

无为清净楼资源网 Design By www.qnjia.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

无为清净楼资源网 Design By www.qnjia.com

评论“另类的文件上传解决方案”

暂无评论...

www.qnjia.com 无为清净楼资源网

139,976互联网资源

144,792高清电影

21,817无损音乐

631,128技术资源

最新文章

李国祥.1995-九五变奏【嘉音】【WAV+CUE】

2024/9/28

许景淳.1992-你来自何方【全美唱片】【WAV+

2024/9/28

石欣卉.2007-剧欣卉集·完整电视剧主题精丫华

2024/9/28

群星.2005-LOVE情歌集VOL.5.2CD【正东】【W

2024/9/28

孙悦.1996-伙伴【正大国际】【ＷAV+CUE】

2024/9/28

一句话新闻

苹果官宣WWDC 2024！预计会有大批AI功能 - 2024/9/28

3月27日消息，苹果宣布2024年全球开发者大会（WWDC）将于6月10日至6月14日举行，巧合的是，这次大会与端午假期重合。

苹果官方表示：

在线参加 Apple 每年规模最大的开发者盛会。亲眼见证 Apple 最新平台、技术和工具的发布。了解如何创建和改进你的 App 和游戏。与 Apple 设计师和工程师互动交流，与全球开发者社区建立联系。以上活动均免费在线举行。

探索各种新的工具、框架和功能，助力你打造出理想的 App 和游戏。通过视频讲座学习新技能，与 Apple 专家进行一对一会面，以推进你的项目，完善你的构思。

Swift Student Challenge 旨在支持和鼓舞下一代开发者、创作者和企业家。太平洋时间 3 月 28 日，我们将公布今年的获奖者名单。获奖者将有资格参加在 Apple Park 举办的特别活动。我们还会选出 50 名杰出获胜者，他们将受邀前往库比提诺，获得为期三天的非凡体验，包括参加 Apple Park 的特别活动。

另类的文件上传解决方案

另类的文件上传解决方案

简单过滤一下广告的代码

使用ASP在IIS创建WEB站点的函数

评论“另类的文件上传解决方案”

RTX 5090要首发性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

另类的文件上传解决方案

另类的文件上传解决方案

简单过滤一下广告的代码

使用ASP在IIS创建WEB站点的函数

评论“另类的文件上传解决方案”

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

RTX 5090要首发性能要翻倍！三星展示GDDR7显存