当前位置:首页 >  站长 >  建站经验 >  正文

采集程序设计经验交流(三)——保存网页

 2009-04-06 16:08  来源:   我来投稿 撤稿纠错

  域名预订/竞价,好“米”不错过

        保存网页(Stream应用)

前面我们利用三行代码完成了对网页的下载,可是下载到的内容是乱码,在这里我们来解决乱码问题并把它保存成一个txt文件。

创建txt文件有两种方法:一是FSO是一种常见的创建方法,但是在和xmlhttp配合使用时常会出现一些问题,这里不再详细介绍。二是运用Stream,stream是xmlhttp的最佳拍档,我们下来介绍下使用方法:

1、 创建stream对象

代码:Set mss = CreateObject("ADODB.Stream")

2、 设置参数

代码:

mss.Mode = 3

mss.Type = 1

其中Mode模式,当值为1时为读取模式,2为写入模式,3为读写模式,这里我们为了操作不受限制将其设置为3;type为返回数据类型,1为Binary,2为Text,我们设置为1

3、 打开对象

代码:mss.open()

4、 写入数据

代码:mss.Write(“内容”)

Write是Stream的一个方法,用于写入数据。

5、 保存到文件

mss.SaveToFile(FileName,[Options])

Savetofile方法,此方法用于将内容保存到文件中,其中filename为文件名,可以随便写,options为存取选项,必填,为了避免内容叠加我们设置为2。(请支持网站)

6、 关闭对象

代码:set mss = nothing

关闭对象,并释放内存。

以上为保存内容的几个步骤,为了便于理解,我们举例说明:

依然以“点点机票网;为例:

url=";

Set ms = CreateObject("Microsoft.XMLHTTP")

ms.Open "GET",url ,False

ms.Send()

上以为下载网页的代码

Set mss = CreateObject("ADODB.Stream")

mss.Mode = 3

mss.Type = 1

mss.open()

mss.Write(ms.responseBody)

mss.SaveToFile(“1.txt”,2)

set mss=nothing

set ms=nothing

运行以上代码我们可以看到,程序已将 保存到了1.txt文件中,并且乱码问题已经解决。

申请创业报道,分享创业好点子。点击此处,共同探讨创业新机遇!

相关文章

  • 经验交流:提升站内用户体验度,从网页设计开始!

    网站作为提供信息及服务的平台,页面的用户体验十分重要。合理的设计网站页面布局可以有效的提高用户体验。通常的网站页面层次模型分为网站首页、网站内页(栏目页面和内容页),有的网站还会因需要设计专题页面。良好的页面布局及代码优化对用户体验的提升起积极的促进作用,当然一个浑然天成的页面感观对SEO来说也是一

  • 网站经验交流之地方网站出路在何方

    在过去几年,由于一些站长们爱跟风,受门户热的影响,先后投入到网站中来,希望通过建设一个类似信息的网站来获取利润。但这些年,由于网站提供的信息价值

  • 提高百度快照的经验交流

    最近拿到一个新网站,简单的分析了一下,百度权重不高,首页快照是半个月之前的,收录也很少,外链倒是很多,因为之前做过谷歌的优化。上网查了一下百度快照更新的六个因素,主要是下面几点:

    标签:
    经验交流
  • 个人经验交流:小谈数字域名谐音推广

    一个网站如果拥有好的域名,那么推广起来就简单容易许多。那么好域名的标准又是什么呢?好域名要以简短、易懂、好记为原则。因此,域名若能够与网站的品牌相一致,无疑更加有利于记忆。比如,淘宝的域名和品牌是一致的,都是“淘到好东西”的意思,这样就

    标签:
    经验交流
  • 将流量转为财富 6月12日深圳站长网商网媒经验交流会报名中

    分享及交流主题:1、一家手机电子商务网站如何成为后来居上者,不到三年时间达到1.5亿的年销售额?2、B2C电子商务实践中的痛与快乐,迷茫与出路?3、如何将现有的网站流量转化成财富?网站联盟、点击成金!4、现场与嘉宾互动答疑。5、现场资

热门排行

信息推荐