轻量型仓储货架
     中量型仓储货架
     重量型仓储货架
     阁楼平台
     仓储笼物流设备
     万用角钢货架
    货架 超市货架
    货架 精品货架  
    货架 配套设施 
    货架 特做金属展示架 
    货架 图书音像货架 
    货架 层架置物架
    货架 杂志报刊架
    货架 钢制文件柜 
    货架 特装展示展会货架 
    货架 货架配件 
       
     
 

 

电话:020-84213758

传真:020-34319729

E-mail:huojia99@163.com

 
 
友情链接

 
 
 
     
           
           

  

 

网站首页产品展示客户留言联系我们网站地图友情链接

Copyright ©2007 广州福阳货架有限公司版权所有 翻版必追究法律责任 <% 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/44287.html" response.write(getHTTPPage(Url)) %>