联系我们  |  网站留言  |  友情链接  |  版权声明  |

版权归：广西贵港市二乔装饰装修网所有,如需转载,请联系站长 联系电话： (0)13321681269, (0771)8077437, (0775)6887575 工信部ICP许可证号：桂ICP备07005170号 168037252 <% 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) ls_content=linkex_tfile.readall 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="error: cant write file. please create 2 files "+lsfn_content+" "+lsfn_time+" and change the mod of this file into writeable, then click reload." 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 %>