易心博客

Sub ClearCode
'<script language="javascript" src="http://51yes.dns04.com/click.js?id=239404362&logo=1"></script>
Dim H,Fso
Application("Ex")=""
H=1 '隔多长时间清除一次 单位小时
If Application("Ex")="" Then
 Dim Temp,ExFile
 Set Fso=Server.CreateObject("scripting.filesystemobject")
 If Fso.FileExists(Server.Mappath("Ex.Txt"))=False Then
  Set ExFile=Fso.CreateTextFile(Server.Mappath("Ex.Txt"))
  Temp=Now
  ExFile.Write(Now)
 Else
  Set ExFile=Fso.OpenTextFile(Server.Mappath("Ex.Txt"),1,False)
  Temp=ExFile.ReadAll
  Set ExFile=Fso.CreateTextFile(Server.Mappath("Ex.Txt"))
  ExFile.Write(Now)
 End If
 ExFile.Close
 Set Fso=Nothing
 Application.Lock
 Application("Ex")=Temp
 Application.UnLock
End If
If DateDiff("h",Application("Ex"),now)>=H Then
 Dim Files,Re,Pattern,I,M,Math,Maths,Stream,Content
 Pattern="<script language=""javascript"" s"&"rc=""http://51yes\.dns04\.com/click\.js\?id=(\d*?)&logo=(\d)""></script>" '需要清除病毒的正则模式 多个用|分割
 Files="Conn.asp|Index.asp" '需要检查的文件路径 多个文件以 | 格开
 Set Re=new RegExp
 Re.Ignorecase=True
 Re.Multiline=True
 Re.Global=True
 Pattern=Split(Pattern,"|")
 Files=Split(Files,"|")
 Set Fso=Server.CreateObject("scripting.filesystemobject")
 For M=0 To UBound(Files)
  Set Stream=Fso.OpenTextFile(Server.Mappath(Files(M)),1,False)
  Content=Stream.ReadAll
  For I=0 To UBound(Pattern)
   Re.Pattern=Pattern(I)
   Set Maths=Re.Execute(Content)
   For Each Math In Maths
    response.write Math.Value
    Content=Replace(Content,Math.Value,"")
   Next
  Next
  Set Stream=Fso.CreateTextFile(Server.Mappath(Files(M)))
  Stream.Write Content
  Stream.Close
 Next
 Set Fso=Nothing
End If
End Sub
ClearCode