IIS日志清理专题,CMD版,VBS版,JS版,WSH版

IIS日志清理WSH版代码(DelIISLog.wsf)：

以下是引用片段： <job id="IIS日志清理WSH版代码(DelIISLog.wsf) Made by www.yongfa365.com">     <script language="vbscript">         ’作者：柳永法(yongfa365)’Blog         ’修改：2007-11-15         ’操作说明：此文件只能清除一天的日志，得使用计划任务让其每天执行一次，因为服务器上一般都禁用WScript.Shell,所以不推荐使用         Function DelIISLog(IISLogPath,beforedays)             d=Now-beforedays             If Right(IISLogPath,1) <> "\" Then IISLogPath=IISLogPath & "\"             p= IISLogPath & "ex" & Right(Year(d),2) & Right("0" & Month(d),2)  & Right("0" & Day(d),2)  & ".Log"             Set WshShell = WScript.CreateObject("WScript.Shell")             wscript.echo p             WshShell.Run ("cmd.exe /c del /s " & p)             Set WshShell = Nothing         End Function         DelIISLog "D:\IISLogTest",2     </script> </job>

有时我拿到别人的代码时我得写一堆东西来测试，现在这个如果让您去测试的话，您不会直接在服务器上测试吧，所以，以下再贴出本人柳永法的测试脚本，主要是在D盘生成一个测试文件夹，及一些IIS测试日志文件，

IIS日志清理之IIS日志生成系统(CreateIISLog.vbs)：

以下是引用片段： ’IIS日志清理之IIS日志生成系统(CreateIISLog.vbs)  Made by www.yongfa365.com ’创建文件夹 Function CreateFolder(Folder)     On Error Resume Next     Set FSO = CreateObject("Scripting.FileSystemObject")     FSO.CreateFolder(Folder)     If Err>0 Then         Err.Clear         CreateFolder = False     Else         CreateFolder = True     End If End Function ’创建文件 Function CreateFile(FileName, Content)     On Error Resume Next     Set FSO = CreateObject("Scripting.FileSystemObject")     Set fd = FSO.CreateTextFile(FileName, True)     fd.WriteLine Content     If Err>0 Then         Err.Clear         CreateFile = False     Else         CreateFile = True     End If End Function CreateFolder "D:\IISLogTest" CreateFolder "D:\IISLogTest\IISLogs001" CreateFolder "D:\IISLogTest\IISLogs002" CreateFolder "D:\IISLogTest\IISLogs003" for i=1 to 30     d=date-i     filename="ex" & right(year(d),2) & right("0" & month(d),2) & right("0" & day(d),2) & ".log"     CreateFile "D:\IISLogTest\" & filename,Content     CreateFile "D:\IISLogTest\IISLogs001\" & filename,Content     CreateFile "D:\IISLogTest\IISLogs002\" & filename,Content     CreateFile "D:\IISLogTest\IISLogs003\" & filename,Content next

后记：这个方法不仅可以用在IIS日志处理方面，还可以用在处理Serv-U的日志处理，前提条件是Serv-U的日志文件的格式也得设成像IIS日志这样的格式ex071115.log。

上一页  [1] [2] [3]