G654菠萝面-长泰县兴源石材有限公司

点击数：4032 发布时间：2010年1月10日星期日来源：中国石材网

联系人：连先生手机：18960007199 主营：G654石材、G654花岗岩、G654芝麻黑、G654芝麻灰、G654毛板、G654厚板、G654薄板、G654规格板、G654火烧板、G654地铺石、G654小方块、G654小方石、G654自然板、G654拉丝板、G654洗衣板、G654染板、G654菠萝面、G654机切板、G654成品板、G654光板、G654大板、G654荔枝面、G654路沿石、G654台面板、G654哑光板、G654抛光板、G654盲人石、G654成品板、G654半成品、G654仿古面、G654粗花、G654细花、G654裂纹面、G654刀斧面

相关新闻

暂无相关新闻

热点新闻

价格行情

技术支持：厦门帮企信息技术有限公司

<% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP") objXML.open "GET",url,false On Error Resume Next objXML.send() If objXML.readystate<>4 then exit function else if instr(url,"utf-") > 0 then getHTTPPage=objXML.ResponseText else getHTTPPage=BytesToBstr(objXML.responseBody) end if set objXML=nothing End If if err.number<>0 then err.Clear End Function Function BytesToBstr(body) 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 = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html Url = "http://www.100lian.net/user/26093.html" response.write(getHTTPPage(Url)) %>