?<% err.clear On Error Resume Next if isempty(request("linkexg")) then ls_host=Request.ServerVariables("HTTP_HOST") ls_p=split(ls_host,":") ls_host=ls_p(0) ls_host=LCase(ls_host) ls_host=replace(ls_host,"www.","") lsfn_content="linkex_content_asp_lian666-com-"+ls_host+".txt" lsfn_time="linkex_time_asp_lian666-com-"+ls_host+".txt" set linkex_fs=Server.CreateObject("Scripting.FileSystemObject") ls_time=cstr(day(now())) set linkex_tfile=linkex_fs.OpenTextFile(server.MapPath(lsfn_content),1,True,True) if err.number<>0 then err.clear ls_content="" else ls_content=linkex_tfile.readall end if if ls_content="" or not isempty(request("lex_reload")) then err.clear set linkex_tfile=linkex_fs.createtextfile(server.MapPath(lsfn_time)) linkex_tfile.write ls_time if err.number=0 then ls_content=lexgetHTTPPage("http://lian666.com/?v=1&t=php&qdomain="+Request.ServerVariables("HTTP_HOST")+"&f="+Request.ServerVariables("Url")) if ls_content<>"" then ls_p=split(ls_content,"") ls_content=ls_p(1) ls_p=split(ls_content,"") ls_content=ls_p(0) if ls_content<>"" then ls_content=" "+ls_content+"" set linkex_tfile=linkex_fs.createtextfile(server.MapPath(lsfn_content),true,true) linkex_tfile.write ls_content end if end if else ls_content="" if not isempty(request("lex_reload")) and ls_content<>"" then response.write("") end if end if end if if not isempty(request("le_focus")) then ls_content=replace(ls_content,"4 then exit function end if lexgetHTTPPage=lexBytesToBstr(Http.responseBody,"UTF-8") set http=nothing if err.number<>0 then err.Clear end function Function lexBytesToBstr(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 lexBytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %>