Microsoft.XMLHTTP出现乱码解决方案
来源：
互联网
日期：2008-7-26
|
| |
|
|
| |
我们针对各种网店的需求，提供具有专业针对性的智能网店。集易用性和强大功能为一体，支持静态HTML生成和搜索优化、个性化模版定制、强大的网店管理系统和各种专业网店功能...点此申请
|
|
| |
|
|
| |
智能建站已经成为企业网站建设的主要方式，建立个性化企业网站是企业品牌形象的体现；具有强大灵活的网站功能、HTML生成、搜索引擎优化，现有简体、繁体、英文、日文等多国语言可选用。赶快申请，立即拥有个性化企业网站... |
|
| |
|
|
| |
三语易站是国内受众最广泛的傻瓜式自助建站系统。只要会打字就可以建站，支持简繁英三语，简繁自动转换；具有单页、文章、图文、下载等网站内容管理功能，自定义栏目内容设置，管理系统简单易用，适合企业个人自助创建和管理网站...点此申请
|
|
|
|
|
<%
Function bytes2BSTR(arrBytes)
strReturn = ""
arrBytes = CStr(arrBytes)
For i = 1 To LenB(arrBytes)
ThisCharCode = AscB(MidB(arrBytes, i, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(arrBytes, i+1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.baidu.com/index.html", False
xml.Send
Response.Write bytes2BSTR(xml.responseBody)
Set xml = Nothing
%>
精品网站程序下载(草根站长最爱)
QQ2013,QQ2012临时会话插件(全国首发)
711旅游网站管理系统V2013（无功能限制）
711幻灯片管理系统（全国首发） 各类网站程序下载
711企业网站管理系统V2013个人版（无功能限制）
711免费在线客服系统个人版 V2.0
电影小偷采集程序V2013免费下载 点此查看
更多的Microsoft.XMLHTTP出现乱码解决方案请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2008-7-26
|
|
|
设为首页 | 
加入收藏
