2020-02-16 标签:asp,截获,后台,登录,密码,代码,核心,实现,如下,set,fso,server,scripting,fileexists,mappath,log,txt,true

核心代码:实现代码如下： set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile

2020-02-16 标签:php,二层,目录,小东,实现,代码,如下,set,time,limit,path,d,hosting,somefile,key,logfile,6668835

php版 实现代码如下： " Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set ServerFolder=FSO.GetFolder("C:\intel") Set ServerFolderList=ServerFolder.

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 标签:asp,activex,创建,scripting,对象,解决办法,今天,遇到,问题,网站,生成,静态,页面,时报,microsoft,vbscript,运行时,错误

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

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

2020-02-16 标签:用来,分割,文本,vbs,脚本,实现,代码,如下,error,resume,next,code,netpatch,set,arg,wscript,arguments,count,quit

实现代码如下： On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystem

2020-02-16 标签:javascript,利用,fso,判断,文件,是否,存在,代码,实现,如下,function,filespec,var,s,n,ew,scripting

实现代码如下： function ReportFileStatus(filespec) { var fso, s = filespec; fso = new ActiveXObject("Scripting.FileSystemObject"); if (fso.FileExists(filespe

2020-02-16 标签:运行,同一,目录,下的,可执行,程序,vbs,代码,实现,如下,set,objshell,wscript,shell,fso,scripting

实现代码如下： Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") se