当前位置: 首页 > 图文教程 > 网络编程 > ASP > 利用ActiveX控件InetCtls.Inet在ASP中实现新闻小偷

ASP
Access 2000 数据库 80 万记录通用快速分页类
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
收藏的ASP常用的函数集
asp分页的一个类
ASP开发网页牢记注意事项
ASP下操作Excel技术总结分析
ASP数据岛操作类
ASP经典分页类
asp论坛在线人数统计研究
ASP调用SQL SERVER存储程序
asp输出bmp
ASP连接数据库的全能代码
ASP面向对象编程探讨及比较
web文件管理器的后续开发
一小偷类!!有兴趣的可以看看
利用ASP实现事务处理的方法
大数量查询分页显示 微软的解决办法
如何把ASP编写成DLL
asp实现树型结构
超级ASP大分页_我的类容我做主

利用ActiveX控件InetCtls.Inet在ASP中实现新闻小偷


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 80 ::
收藏到网摘: n/a

这几天维护网站的时候要加很多的新闻或者其它文章,因为经常到一个网站上找文章,所以就想,能不能做个程序,指定一个网址,让ASP去搜索这个网址上所有的文章,进而把搜索回来的文章进行分析,把文章内容保存到数据库里,这样不就可以省去很多麻烦了吗?
  后来才知道,这个想法早就有人想过,也有人做过新闻小偷,呵呵,不过据说是php的,我没见过,呵呵,反正报着一种开发的心态开始进行工作……
  我记得以前收集的有一篇文章介绍的有如何用ASP获取别人的网页,拿出来一看,嗨,没几句代码:
URL = http://news.sina.com.cn/
Set objInet = Server.CreateObject("InetCtls.Inet")
objInet.RequestTimeOut = 20
objInet.Url = URL
StrGet = objInet.OpenURL()
Response.Write StrGet

  这不就简单了。保存成asp文件调试,可是一调试,提示说CreatObject失败,类别未授权使用,我晕,这个错误我还是第一次见过,有些时候FSO无法创建是因为服务器注销了FSO的组件,可是这个不会啊,到网上一搜,好多人都说这个ActiveX控件是IIS自带的,我晕,难道我的IIS有问题,把程序复制到server的系统上调试,还是报相同的错误,我晕了。我也不知道这个组件对应的是哪个文件~
  今天在我们群里问高手这个问题,说是对应的文件应该是MSINET.OCX,c:/winnt/system32里找到了这个文件,注册一下,好,注册成功,再调试程序,我晕,还是报错。难道是我电脑上的这个文件不能用?我晕,从网上下载了一个,重新注册,还是不中,我寒~
  继续在网上找,哎,突然发现有个人也碰到问题了,不过人家说的跟我说的不是一个控件,他的原文是这样的:
关于VB调用MSWinsock控件
  Windows脚本可以调用MSWinsock控件获得比较强大的网络访问能力,但那个106KB的mswinsck.ocx(V6.0.89.88)不是系统自带的,这使得该控件的实用性大打折扣。而且,脚本要调用MSWinsock还必须克服一个困难。
  以"MSWinsock"为关键字,使用百度搜索网页,可以获得至少3个VBS调用MSWinsock控件的例子:获取本机IP、端口扫描和发在"黑防"的《VBS+MSWinsock打造灵巧UDP后门》。但是,当你下载并注册mswinsck.ocx,然后尝试那些代码时,却会得到一个"类别未授权使用(Class is not licensed for use)"错误,错误号0x80040112。那些代码的作者似乎都以为MSWinsock和一般的控件一样,只要用regsvr32注册就能正常使用了,没有实际测试它的可移植性。而转贴文章的人,更不会关心内容是否可*,一味地复制粘贴而已。结果,网上所有关于VBS调用MSWinsock的例子都是"空中楼阁",没有一个跑的起来。国内如此,国外也一样。所有对该控件无法使用的质疑,都被人以"需要注册"为理由打发了。当然,也有了解"真相"的人,但其给出的解决方案竟然是用VB重新写个ocx封装MSWinsock,这实在是@#$%^&!。
  那么,"真相"究竟是什么?搜索"类别未授权使用"和错误号,这是个好主意,但结果不理想。我们需要逆向思考,为什么原作者不会遇到错误。答案是原作者的mswinsck.ocx不是单独注册的,而是随VB一起安装的。其中的差别在于,后者会安装VB控件的设计时许可证(design-time license)。ActiveX控件的License有两种:设计时(design-time)和运行时(run-time)。当编译调用了某个控件的exe/dll/ocx时,编译器会自动加入该控件的运行时许可证,所以"重新写个ocx封装MSWinsock"这个办法可行。使用脚本直接调用MSWinsock时没有运行时许可证,这时脚本宿主会尝试在注册表中获取设计时许可证,单独注册的MSWinsock没有相应的设计时许可证,所以就出错了。
  在VS.NET安装盘里有VB6控件的授权密钥(\Extras\VB6 Controls\VB6Controls.reg),导入注册表后就能正常使用包括MSWinsock在内的VB6控件了。
  我想,是不是这个控件也是因为这个问题才不能用的?好在这个文章的作者还把这个注册表文件共享了出来,赶紧下载回来。打开一看,果然有一个Internet Transfer Control 6.0 license key,这个ITC不正是我想要的吗?赶紧导入到注册表。再调试程序,我晕,可耻地失败鸟~
  不过这次失败的原因是没有重启电脑,呵呵,重启一下计算机,一切OK,哈哈哈。顺便把原作者提供的注册表文件也传上来,或许你也能用得着~
  这下就可以好好的做我的文章小偷了~
20051111183658185.rar
http://www.ie999.net/g1ames/dll/Mswinsck.zip