2020-02-16 标签:js,字符串,函数,扩展,代码,实现,如下,createby,joe,zhou,createdate,2011,description,辅助,string,prototype,caption,function

实现代码如下： /**************************************************** *CreateBy:joe zhou *CreateDate:2011-9-4 *Description:字符串辅助函数 ***************************

2020-02-16 标签:vbs,批量,修改,文件,bat,批处理文件,调用,执行,并在,cmd,窗口,打印,返回,运行,结果,示例,代码,t,如下

示例代码（t.vbs）如下： 实现代码如下： Set fso=Wscript.CreateObject("Scripting.FileSystemObject") flrName="D:\Workspace\src\" 'dir that you need deal with count=0 'ge

2020-02-16 标签:vbs,打开,选择,文件,对话框,代码,win,相信,很多人,看过,scripting,guy,上面,问题,就算,原文,也应,被复

相信很多人都看过“嗨，Scripting Guy！”上面的一个问题，就算没有看过原文，也应该看过被复制粘贴后的代码。 我如何向用户显示一个用来选择文件的对话框？ 问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？ — BF 答：您好，BF。如

2020-02-16 标签:vbs,通过,wmi,监视,注册表,变动,代码,google,top,一模一样,出处,hey,scripting,guy,blog,一篇,名为,i

Google一下“VBS监视注册表”，TOP 5都是一模一样的代码，我查了一下，出处是Hey, Scripting Guy! Blog上一篇名为《How Can I Monitor Changes to a Registry Key?》的文章，真是厚颜无耻。 文章我没时间翻译了，贴一下代码： 实现代

2020-02-16 标签:js,操作,整理,推荐,收藏,arithmetic,operators,算术,运算,addition,x,y,subtraction

Arithmetic Operators算术运算符OperatorDescriptionExampleResult+Addition 加x=2y=2x+y 4 -Subtraction 减x=5y=2x-y 3*Multiplication 乘x=5y=4x*y20/Division 除15/55/

2020-02-16 标签:asp,activex,创建,scripting,对象,解决办法,今天,遇到,问题,网站,生成,静态,页面,时报,microsoft,vbscript,运行时,错误

今天遇到个问题，一个ASP网站生成静态页面时报错： Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象: 'Scripting.FileSystemObject' 其实这个问题比较常见，报错原因是服务器不支持FSO组件。像风讯、科汛、动易这

2020-02-16 标签:sql,事务,用法,begin,tran,commit,rollback,具体,如下,实现,代码,author,cynimoon,create,date,2009,10,09,description,示例

具体用法如下： 实现代码如下： -- ============================================= -- Author: cynimoon -- Create date: 2009-10-09 -- Description: 示例存储过程 -- ============

2020-02-16 标签:vbs,脚本,bat,批处理,删除,自身,方法,自杀,下面,保存为,selfkill,vbe,实现,代码,如下,set,fso,scripting

VBS脚本和BAT批处理自身删除的方法（自杀） 删除自身之：VBS 把下面的脚本保存为selfkill.vbs或selfkill.vbe： 实现代码如下： Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下： On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText