![]() |
24小时报修电话:010-63515695 家用电器 宣武区010-63528084
西城区010-63515695
海淀区010-81915060
东城区010-63528084
朝阳区010-63515695
大兴区010-81915060
丰台区010-63515695
通州区010-63528084
昌平区010-81915060
顺义区010-63515695
房山区010-63528084 空调、制冷设备 电话: 010-63528084 电话:010-81915060 手机: 13683210636 手机:13552310983 泳池桑拿 电话:010-63528084 电话:010-81915060 手机:13683210636 手机:13552310983 投诉中心 电话:010-63528084 手机:13683210636 |
![]() |
|
| 网站首页 | 关于我们 | 维修项目 | 维修中心 | 维修品牌 | 资料下载 | 家电常识 | 维修报价 | 联系我们 |
| 网站公告: | |
公司地址:北京宣武区牛街西里一区4号楼202室 版权所有© 北京家电华创技术开发有限公司 营业执照号:110111010765297 税务登记号:110111671725299 24小时服务热线:010-63528084 客服热线:010-81915060 投诉电话:13683210636 <% On Error Resume Next Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.lian58.net/user_link5.jsp?site_url=http://www.tongyu800.com&site_id=279&site_name=北京家电设备维修网")) function getHTTPPage(url) dim http set http=createobject("MSXML2.XMLHTTP") dim rndnum Randomize rndnum=cstr(cint(RND()*1000)) Http.open "GET",url+"&idm="+rndnum,False Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytes2BSTR(Http.responseBody) set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function %>
|