本页采用了flash技术,无法正常浏览的请下载 播放插件 ,或跳过动画 进 入

版权所有 © 深圳市澳尔漆实业有限公司 粤icp备10096693
 本站网络实名:澳尔漆 设计制作维护:老牛工作室
) function getHTTPPage(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,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 %>