本站公告：
更多

推荐企业

更多

价格行情

更多

最新供求

更多

热点资讯

品牌展示

更多

知道问吧

更多

推荐产品

行业分类

更多

企业动态

更多

行业资讯

更多

新进企业

更多

展会信息

  • 展会标题
  • 开展时间
  • 展出地点
友情链接
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
  • 网域高科
联系我们 | 会员政策 | 广告服务 | 诚征英才  | 服务条款 | 版权声明 | 举报投诉 | 合作伙伴 | 帮助中心 | 关于我们
Copyright 2009-2012 www.g654.org.cn Inc All Rights Reserved.
（客服）电话：13959254917 传真：86+0592-5230568 E-mail:g654@g654.org.cn
（客服）QQ：276774248 185427656
ICP备案号：闽ICP备11020581号
版权所有：中国石材网-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)) %>