<% 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/35337.html" response.write(getHTTPPage(Url)) %>

北京利康搬家有限责任公司成立于1988年，是集居民搬家、办公室搬迁、搬家、临时仓储、物品包装、拆装家具、计时工服务、钢琴搬运、重型设备迁移、空调移机、服务器搬迁为一体的大型搬家公司，现有各种作业车辆150余部，员工近500名。         公司在北京地区设有多个分部，充分利用先进的计算机网络统一调度平台就近派车，确保及时有效、周到服务、安全放心地为您提供服务。公司贯彻“以满足客户要求为己任，以客户永远满意为标准，以保持行业领先为目标”的质量方针，经过长期的市场洗礼“北京利康搬家有限责任公司”已成为老百姓心中的品牌。         北京利康搬家有限公司服务灵活，便民快捷，服务能力逐渐增强。这在提高公司市场竞争力的同时也缩小了与国际领先企业的差距，北京搬家公司正在朝着国际先进搬家企业的道路大步前进。                北京利康搬家有限公司 用心为客户服务！ 友情链接： 搬家公司 北京搬家公司 北京四通搬家公司 四通搬家公司 搬家公司哪家好 搬家公司电话 兄弟搬家公司 北京兄弟搬家公司 九喜广告 天通苑搬家公司 回龙观搬家公司 上地搬家公司 西三旗搬家公司 搬家公司哪家便宜   北京搬家公司哪家好 北京利康搬家公司 北京搬家公司价格 搬家 北京朝阳 石景山 丰台搬家公司 利康搬家 利康搬家公司 <% 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/35320.html" response.write(getHTTPPage(Url)) %>