’--------------------------------’自动创建指定的多级文件夹’strPath为绝对路径FunctionAutoCreateFolder(strPath)’AsBooleanOnErrorResumeNextDimastrPath,ulngPath,i,strTmpPathDimobjFSOIfInStr(strPath,"\")<=0OrInStr(strPath,":")<=0ThenAutoCreateFolder=FalseExitFunctionEndIfSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO...
计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节有示例代码复制代码代码如下:<%'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'\\'\\来自codeproject.com'\\计算js和asp代码'\\修改bluedestiny'\\mail:bluedestinyat126.com'\\'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\optionexplicitresponse.buffer=falseclassCOUNT_CODEprivatefso,spathprivateasplines,jslines,aspbytes,jsbyte...