WindowsIIS日志文件分析程序避免安全隐患

复制targeturl="/archives/2761.html"受攻击网站的日志URL地址。免费信息发布网   logfilepath="C:\LogFiles\W3SVC\ex110813.log"受攻击网站的b2b供应网文件日志路径。云服务器提供商   OnErrorResumeNext   Setfileobj=CreateObject("scripting.filesystemobject")   Setfileobj2=CreateObject("scripting.filesystemobject")   Setmyfile=fileobj2.opentextfile(logfilepath,分析1,False)   DoWhilemyfile.atendofstream<>True   myline=myfile.readline()   myline2=Split(myline,"")   newip=myline2(9)   myurl=myline2(5)   Iftargeturl=myurlThen writelognewip   EndIf   Loop   myfile.Close   Setfileobj2=Nothing Msgbox"结束."   Subwritelog(errmes)   ipfilename="blockip.txt" Setlogfile=fileobj.opentextfile(ipfilename,8,True)   logfile.writelineerrmes   logfile.Close   Setlogfile=Nothing EndSub   1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.46.47.48.49.50.