Xml Http抓取数据时乱码问题解决_Xml教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!

推荐:XML字符串的读写操作函数及示例程序
以下为引用的内容: // OpXML.cpp : Defines the entry point for the console application. // //-------------------

内码问题.用这段代码的吧,我已经改得很精简了.

使用XMLHTTP抓取地址并进次内容处理

以下为引用的内容:
Function GetBody(Url)
Dim objXML
On Error Resume Next
Set objXML = CreateObject("Microsoft.XMLHTTP")
With objXML
.Open "Get", Url, False, "", ""
.Send
GetBody = .ResponseBody
End With
GetBody=BytesToBstr(GetBody,"GB2312")
Set objXML = Nothing
End Function

使用Adodb.Stream处理二进制数据

以下为引用的内容:
Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function

分享:如何在HTML中引用XML数据
1,内嵌XML数据 <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=gb2312"> <title>第一次亲密接触(非

来源:模板无忧//所属分类:Xml教程/更新时间:2008-08-22
相关Xml教程