Xml Http抓取数据时乱码问题解决
作者：佚名 来源：新云 发布时间：2008-04-24 11:16:00
标签：
内码问题.用这段代码的吧,我已经改得很精简了.
使用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
0
投稿猜你喜欢
- SecureFile功能是oracle 11g中对大对象(LOB)存储格式的完全重新设计实现，原来的LOB存储格式现在通称为BASIXFIL
- 很早前就遇到这个空值的属性，它既出现在 html 文档中，也出现在 xml 中，一直都回避，放之任之，反正也不影响文档的正确性。隐隐约约过了
- ASP的强大不仅仅局限于接受和显示的交互，更多的是运用ActiveX 组件进行更强大的Web应用。那究竟ActiveX组件为何物？
- 本人最近在当当网上购买了一本关于用户体验的书，在此把最实在的内容整理下发给大家分享下。第一步：表现层视觉设计，也就是我们说的网页设计师做的工
- 代码如下:'===================================== '获取内容中所有图片 '==
- 用法： 按住鼠标左键拖拽一个框后释放洗洗睡了<!DOCTYPE html public "-//W3C//DTD XHTML
- 一：文字加粗 倾斜的代码文字加粗的代码是: <b>你好</b>文字倾斜的代码是: <i>你好！</
- 抽象工厂模式Abstract Factory Pattern是什么抽象工厂模式是一种创建型模式，它提供了一种创建一系列相关或相互依赖对象的最
- 注:所有文字,除注明网站类型外,其他均针对企业站点.请随时注意留言,若修改则会在首页提示文字里标注.若牵扯到业务方面的问题,我可能不会做过多
- 第一种情况是返回的游标是某个具体的表或视图的数据，如：SQL-Code:CREATE OR REPLACE P
- 内容摘要：本文介绍了使用CSS结合javascript来实现对超链接的类型进行标注，让浏览者明确是zip，doc,pdf或其它格式的文件。这
- 又发一个js版幻灯片，接口比较少，但功能和外观都还不错的，可自定义切换时间：）method: adRotator.initialize(容器
【原文地址】 Recipe: Deploying a SQL Database to a Remote Hosting Environmen- 文档格式的排错 我妈妈_的清单中有数十条菜谱，甚至数百条。如果产生一个致命错误，排错将非常困难 - 你将一行一行地寻找丢失的标记符。如果使用
- 在介绍GROUP BY 和 HAVING 子句前，我们必需先讲讲sql语言中一种特殊的函数:聚合函数，例如SUM, COUNT, MAX,
- 是否曾经有过这样的经历：把一个元素置于另一个元素之上，而希望下面的那个元素成为可点击的？现在，利用css的pointer-events属性即
- 减少HTTP请求，是可以提高网站速度的，把所有的背景图像都放到一个图片文件中，然后通过CSS的background-image和backgr
- 1069错误（由于登录失败而无法启动服务）解决方法在本版面出现这个问题的频率也算是很高的了，新手通常会比较多遇到这个问题原因很简单，安装SQ
- 九宫格是一种比较古老的设计，它最基本的表现其实就像是一个三行三列的表格。其实它最初是在window的c/s结构中用得比较多，比如我们经常看到
- <％ dim total(7,2) total(1,1)=200 total(2,1)=800
