如何用VB接受xmlHttp传输过来的数据

发布于

我用vb xmlHttp做了个文件传输的例子，自觉是个挺值得看的例子，所以贴出来和大家一起交流一下。

xml结构：

 
文件以二进制方式存在这里
下面开始
Private Sub CreateAndTranXML() 
   Dim ado_stream   As New ADODB.Stream 
   Dim xml_dom   As New MSXML2.DOMDocument30 
   Dim strA As String, szFile As String, m_szUpFile As String 
   m_szUpFile = "http://127.0.0.1/getupFile.asp" ‘server端的ASP接受程序 
   szFile = App.Path & "temp.jpg"   '要传送的jpg文件或任何文档 
   strA = "  " 
   xml_dom.loadXML (strA) 
   xml_dom.documentElement.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes" 
   Dim l_node1 
   Set l_node1 = xml_dom.createElement("file1") '建立一个节点 
   l_node1.dataType = "bin.base64" 
   ado_stream.Type = 1    '  1=adTypeBinary 
   ado_stream.open 
   ado_stream.LoadFromFile (szFile) 
   l_node1.nodeTypedValue = ado_stream.Read(-1)      '  -1=adReadAll 
   ado_stream.Close 
   xml_dom.documentElement.appendChild (l_node1) 
   xml_dom.save App.Path & "result.xml" '本地保存一个备份 
   '可以创建多个二进制节点，一次上传多个文件 
   ' 把XML文档发送到Web服务器 
   Dim xmlHttp As New MSXML2.XMLHTTP30 
   xmlHttp.open "POST", m_szUpFile, False 
   xmlHttp.setRequestHeader "CONTENT-TYPE", "text/xml" 
   xmlHttp.send xml_dom 
   '  显示服务器返回的信息 
   Debug.Print xmlHttp.responseText 
   If xmlHttp.Status = 200 Then 
      MsgBox ("上传成功！") 
   End If 
   Set xmlHttp = Nothing 
   Set xml_dom = Nothing 
End Sub 
GetUpFile.asp(Server端的)
<%    Dim ado_stream    Dim oXmlDom     Dim xml_file1,m_szpath         Set oXMLDoc = Server.CreateObject("Microsoft.XMLDOM")     szPath=server.mappath("getupfile.asp")    nPos=instrRev(szPath ,"")    m_szPath=left(szPath

评论

发表评论

Popular Posts

《活法》作者：[日]稻盛和夫 pdf下载

发布于
《活法》是日本企业家稻盛和夫的代表作，原书由日本SUNMARK出版社出版，被誉为日本21世纪励志第一书。稻盛和夫是日本两家世界500强企业京瓷和KDDI的创始人，被誉为日本经营四圣之一，他是季羡林认为稀有的既是企业家又是哲学家的人物。《活法》的思想主要源自儒家和佛教，结合稻盛和夫经营的经历与感悟，形成了一个思想体系。 　　 　　我们现今生活在纷乱如麻、前途未卜的“不安分的时代”。富裕却不知足，丰衣足食却礼节不周，充分享受自由却倍感闭塞。只要有干劲，就什么东西也可以得到，任何梦想也可以实现。但是社会却弥漫着颓废、悲观的氛围，甚至有人甘愿成为丑闻的主角，甚至犯罪。 　　为什么如此闭塞的状况充斥着整个社会？那难道不是因为很多人找不到活着的意义和价值，迷失了人生的方向吗？造成这种状况的原因，正是由于缺乏正确的人生观———恐怕不只我一个人这么想吧。 　　我想，对这个时代来说，最需要的就是从根本上质问“人为什么活着？”首先，人们要正视该问题，树立作为人生指南的“哲学”。所谓哲学，也可称之为“理念”或者“思想”。这是类似沙漠里撒水那样虚无或者在急流中打桩一样困难的事情。 　　但是，正因为我们处于鄙视劳动、纷乱浮躁的时代，我相信只有单纯且直率的质问才有更深的意义。若不能这样从根本上去尝试思考生活方式，那么，纷乱状态将愈发加深，未来将越来越混沌不清，混乱将在社会上漫布开去—-怀有如此紧迫的危机感和焦躁感的人同样应该不止我一个。我想在这本书中从正面把握人类的“人生哲学”，毫无保留地阐述我的根本思想，并从本质上再次质问活着的意义和人生应有的状态。这样，我希望能在时代的湍流中打下微小的一根木桩。各位读者，为了找到人生的乐趣，度过一个充满幸福的充实人生，我希望您能从本书获得一点启发，倘如此，我将感到无比高兴。 下载： hf_pdf.zip （PDF格式）
阅读全文

Microsoft 365安装包下载（Office桌面应用）

发布于
 Microsoft 365是微软建基于旧称Microsoft Office办公室套件的云端办公室方案，包括免费的线上Office Online、线上会议Microsoft Teams、管理信件的Outlook Web App、建立小组沟通网站的SharePoint Online等。2020年3月31日，微软宣布将会把Office 365名称改为Microsoft 365，并推出新的订阅方案，4月21日，微软正式将Office 365改名为Microsoft 365。但此次改名并不彻底，Office 365 A1/A3/E3/E5 订阅并未受此影响，这三种订阅均为教育版订阅，但现已完全更改。 Microsoft 365以收取订阅月费或年费，取代Microsoft Office 2010及以前版本的单次收费模式。借助Microsoft 365订阅计划，用户可获取完整及全套的Office应用程序：Word、Excel、PowerPoint、OneNote、Outlook、Publisher和Access（Publisher和Access仅支持PC）。可以在多种设备上（包括PC、Mac、Android平板电脑、Android手机、iPad和iPhone）安装Microsoft 365。此外，借助Microsoft 365还可获取各种适合家庭使用的服务（如OneDrive云端空间）。如果有有效Microsoft 365订阅，即可始终使用最新版本的Office应用程序。 关于如何关闭office中连接的onedrive，可以按如下操作： 文件-选项-常规-隐私设置，关闭“开启所有连接体验” 下载Microsoft 365 ProPlus： O365ProPlusRetail.img 注意：下载后需要购买Microsoft 365订阅，登录账号才可使用。
阅读全文

解决部分网站禁止复制内容的js脚本（无需安装插件）

发布于
部分网站（例如CSDN）会需要登录才可以复制内容，这无形中增加了很多麻烦，虽然也有一些浏览器插件可以解决禁止复制的问题，但是毕竟还要折腾安装。 这里给出一行脚本，打开浏览器开发者模式，在控制台输入并回车即可 javascript:document.body.contentEditable='true';document.designMode='on'; void 0 这个脚本的原理是，为页面开启编辑模式，可以直接在网页上进行文字的添加、删除和修改，就像使用文档编辑器一样。 对于如果这时候还是不能使用ctrl+c复制，那么改用ctrl+x剪切内容即可。
阅读全文

使用AdGuard的公共dns屏蔽广告

发布于
 AdGuard是一系列用于网页浏览器及跨平台内容过滤的广告拦截和隐私保护软件、开放源代码和共享软件的浏览器扩展程序产品，AdGuard允许用户使用阻止广告等页面元素的显示，借此保护用户免受不必要的广告、弹出窗口、视频、文字、横幅、跟踪、淫秽内容、恶意网站及软件和网络钓鱼的危害。 而除了安装并使用AdGuard软件以外，最快捷的方式就是使用它的公共DNS服务。在操作系统的dns设置中，可以设置以下公共DNS，实现屏蔽广告： 94.140.14.14 94.140.15.15 ipv6用户可以同时设置： 2a10:50c0::ad1:ff 2a10:50c0::ad2:ff 也可以在浏览器的设置中，使用DNS over HTTPS（DoH）： https://dns.adguard-dns.com/dns-query 更多的设置可以参考 这里 。
阅读全文

麦当劳免费Wifi帐号密码及连接设置

发布于
麦当劳推出了免费的wifi热点，全国通用。但是麦当劳的免费热点是隐藏wifi，需要手动添加才行。 麦当劳的wifi账号：McDonald-OC wifi密码：Ac28Idfjla92ifjsl3jsHdowIo（一定要注意大小写） 注意：帐号密码可能有时效性，如果你发现已经不对了，请不要怪责 下面来说说麦当劳免费wifi的连接设置。 电脑上连接设置，账号手动添加，密码采用的是WPA-PSK验证，数据加密是TKIP的。 手机上连接设置，账号手动添加，选用用隐藏网络，WPA/WPA2制式。 值得一提的是，麦当劳的免费wifi网络速度不慢，打开网页、看视频什么的OK，大家尽情的在麦当劳了里享受免费高速上网的乐趣吧。 link
阅读全文

你恨你的亲人吗？

发布于
　　天下没有不爱子女的双亲，只是每个人表达的方式不同罢了。 　　 　　1997年5月，在我去马来西亚演讲之前，接到当地一个女孩的来信，里面附了一沓资料，细看，是医师的诊断证明：她得了血癌。 　　“我很想去听您的演讲，但是因为要动手术，不能去了。”女孩子在信里描述了病情，以及她痛苦的生活。说到她从小就被姐姐欺负，似乎对她姐姐充满怨恨。 　　看看日子，正是她要动手术的前几天，我立刻拔了越洋电话过去，是她自己接的。 　　我问她动什么手术。 　　“骨髓移植。”她说。 　　“你能找到跟自己条件相符的捐赠者，已经很不容易了。”我说，“是谁呀?” 　　“是我姐姐。” 　　“就是你信里提到的，从小总是欺负你的姐姐?那个让你抬不起头的姐姐?”我问。 　　“是，就是她。”我又问，“她知道那是非常痛的吗?” 　　“她知道。” 　　“是她自己愿意，还是你求她的?” 　　“她自己愿意。” 　　“所以你知道她是爱你的。” 　　好几秒钟，女孩子没说话。然后幽幽地说：“是的，一直到现在，我才知道她爱我。” 　　这件事让我想到一位与我通信多年。住在台湾南部的女孩子。 　　她天生身体不好，使得学业断断续续，也就常给我写信诉苦。 　　她尤其怨她的父亲，觉得父亲总在外面为事业忙，每天穿得西装笔挺，早出晚归，难得跟她说几句话。 　　我总在回信中劝她，说天下没有不爱子女的双亲，只是每个人表达的方式不同罢了。 　　有一天，又接到她的信，大意是这样的： 　　“那天，我在家晕倒了，醒过来，人在医院，身上插看管子，我睁开眼，看见老爸坐在一边，还穿着西装、打着领带。我好生气，骂他：‘我都要死了，你还没事似的，根本不关心我。’爸爸没吭气。然后，我看到护士在擦地上的血迹。我吓一跳，叫起来：‘我流血了?哪里流血了?’护士过来，指了指我爸爸，说‘不是你，是他。他叫不到车，抱着你，跑了十几条街。’我低头看爸爸，才发现他虽然穿着西装，脚上却没穿鞋子。他急着救我，居然连鞋都来不及穿，光着脚，抱着我，跑到医院。他的脚被尖锐的东西割破，还在淌着血。” [ via ]
阅读全文

中兴ZTE H618B 路由器固件刷机备忘

发布于
　　今天得闲，又把手头的ZTE ZXV10 H618B路由器拿出来折腾了一番，Tomato DualWAN固件和OpenWrt固件都刷了试用下，现讲刷机过程记录备忘。 　　一、用TFTP刷固件配套固件和软件准备：（我选择刷Tomato DualWAN固件，相关的工具都可以到 http://www.dualwan.cn/index.php/download 下载） 　　H618B固件：建议选择1.28版本的固件。（直达地址： http://www.dualwan.cn/index.php/download/category/72-1.28?download=272%3Atomato-dualwan-1.28.0542 ）下载解压，切记选择Flash8M的R1版，一般解压后有两个文件夹，一个是4M的一个是8M的，进入8M的后选择R1版，Firmware_8M目录下是8M版本的固件，R1版为tomato-K26USB-1.28.0539-MIPSR1-8M.TRX 　　TFTP软件：大多数TFTP软件都可以实用，不过还是推荐用Tomato DualWAN网站提供的工具，可以到Tomato DualWAN网站下载。（直达地址： http://www.dualwan.cn/index.php/download/category/32-tool1?download=252%3Awr-500u-wr-500v ） 　　1、首先记得把自己的电脑本地网卡地址设置为IP：192.168.1.2掩码：255.255.255.0，如果电脑有多个本地网卡，建议最好暂时停用其他网卡，这样冲突会少点。 　　2、用网线连接电脑网卡口和H618B的LAN1口（LAN1-4都任意一个都可以，但不要连接WLAN口） 　　3、本地打开TFTP软件，选中要上传的固件文件，做好上传准备。并运行CMD命令行窗口，运行：ping 192.168.1.1 -t这个时候路由器还没开机，肯定是Ping不通咯，不过没关系，让它不断ping着先。赶紧做下一步 　　4、打开H618B路由器电源，接着继续盯着ping命令窗口，直到第一次出现ping通192.168.1.1的信息（通常会显示TTL=100），立即点击TFTP软件的上传固件按钮。马上就开始了固件上传过程。。。直到TFTP提示更新完毕，然后再等待5分钟左右！ 　　5
阅读全文

google voice 无限短信接口程序

发布于
Google Voice 短信发送接口PHP版，1.0为开源版，2.0为加密版，如果需要群发多帐号用英文逗号(,)分隔(86159..,86159..)，消息内容不支持中文，当您输入中文的时候系统会自动转换为拼音(为了区分是拼音，拼音首字母大写)，保证消息能正常发送(输入”我是旋风”短信内容为”Wo Shi Xuan Feng”) //—————– //V2.0 升级内容 //================== 1、支持群发功能 2、汉字自动转拼音 3、内置缓存机制，防止GV 登陆次数太过频繁 4、内置一套可用的演示程序，懒得自己弄接口，传上去就可以使用 //—————– // 演示程序的使用 //================== 1、打开gvconfig.php ，里面设置你的帐号 2、index.php ，里面设置验证码开关 //—————– // 环境需求 //================== 1、 空间支持PHP / CURL(不支持会自动提示) / Zendoptimizer（源码版的不需要，加密版的需要） 2、 本套程序文件所在的目录设置为可写 演示地址： http://ukbeta.com 下载： gv1.zip （1.0开源版） 下载： gv2.zip （2.0加密版）
阅读全文

月光宝盒 - 提供网站数据备份服务

发布于
　　由月光宝盒（boxcdn.com）提供的免费网站备份服务，可用空间大小为1G，分为网站文件备份和数据库备份，网站文件采用为ftp备份，数据库备份支持mysql和sqlserver两种。备份时间可以设定为每天、每周或者每月，网站文件备份速度很快。该公司运营手续齐全，如果够诚信的话，该服务将很受站长欢迎。 　　注意：该网站需要您提供网站的ftp地址，密码等资料，请自己判断是否使用其备份服务。 　　服务申请地址： http://www.boxcdn.com
阅读全文

MD大战略2 德国闪击战 中文汉化版

发布于
《大战略 德意志电击作战》（日语：アドバンスド大戦略 ドイツ電撃作戦，下文简称为本作），是由SystemSoft Alpha设计，移植至世嘉的Mega Drive上发行，属于移植至该电视游戏机上的大战略系列第一作。并于2006年2月22日，在Playstation 2推出了复刻版。 本作于当年的《Beep! MegaDrive Magazine》杂志中评价为1991年度的模拟游戏类第一名；在该杂志的读者评分单元（BEメガ読者レース）中平均值为8.8896分。 本作采关卡式设计，每个关卡有各自不同的过关条件，玩家操纵所属部队对作战目标进行攻击或占领，达成条件后即为过关。玩家可选择为纳粹德国的部队指挥官，或其他势力（如同盟国或轴心国)的指挥官。 本作中的分为战役模式与标准模式。战役模式主要以历史中真实发生过的战役为主，游戏内并设定了大胜（即比默认条件中提早相当日期达成）、胜利（即在默认条件的日期期限内达成），与平局（即超过了默认条件的作战达成日期的最后期限）等三种情况。以大胜过关者，将会被提前分派到后期对于玩家难度较高的地图；普通过关者，会参照历史进行下一个关卡，超过期限仍未达成者，游戏会自动重新回复至该关卡最初的状态。 游戏密技 对战国状态自由变更：载入关卡地图后，依照以下顺序：按方向键的上、上、上，之后再按C键，可叫出状态表，能自由修改金额，与兵器的开发时程表等。（标准模式） 敌方投降：载入关卡地图后，在敌国思考画面时，按住C键不放，将叫出游戏选项，于选择“降伏”将可使敌方投降。（标准模式） 下级索敌：载入关卡地图后，于“索敌”选项连续按方向键右时，可以选择下级，将变成我方可见到敌方全部行动，而敌方相反。（战役模式） 操作敌国：载入关卡地图后，于选项选择“操作”，依照以下顺序：左→右→左→右→上→上→上→上方向键，会显示错误消息，但可以操作非玩家势力。（战役模式） 编辑模式：在初始菜单输入右→左，再进入标准模式。原本的“开始”指令会变成“エディタ”（编辑）。可编辑空白地图，标准模式关卡，或是标准/战役模式存档。 德国使用核兵器：武装画面想装备德国Me264的核弹时，会出现“总统命令 禁止使用核爆弹”而无法使用。可在进入武装画面后，输入左→左→左，之后就可装备核弹。 下载： 大战略2汉化版.zip 相关： 汉化发布贴  | 全地图  | 关卡攻略
阅读全文