安徽IT吧免费提供Asp/Php 1G空间
安徽IT吧免费提供Asp/Php空间 免费空间大小:1G 功能:FTP管理+ASP+PHP+VbScript/Jscript+NEt.+FSO组件+动易组件+Access数据库+MYSQL数据库+MSSQL数据库 ASP探针:http://free.ahit8.cn/asp.asp PHP探针:ht
安徽IT吧免费提供Asp/Php空间 免费空间大小:1G 功能:FTP管理+ASP+PHP+VbScript/Jscript+NEt.+FSO组件+动易组件+Access数据库+MYSQL数据库+MSSQL数据库 ASP探针:http://free.ahit8.cn/asp.asp PHP探针:ht
'把网上的一个小程序改得方便了点,这个搜索次效率很好。 实现代码如下:on error resume nextDim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPathConst MY_CO
sub SaveConfig()dim fso,hfset fso=Server.CreateObject("Scripting.FileSystemObject")set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
Option Explicit dim ServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnu
'////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mapp
Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Ar
asp利用fso实现文件的移动function movefiles(sFolder,dFolder)on error resume nextdim fsoset fso = server.createobject("scripting.filesystemobject")if fso.foldere
实现代码如下:randomizeset fso=createobject("scripting.filesystemobject")set a=createobject("scripting.dictionary")set file=fso.opentextfile("a.txt")do while
就是用Server.CreateObject("WScript.Shell")来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。