【先锋海盗类】Ver2005 最终版
鉴于大家对ASP十分关注，我们编辑小组在此为大家搜集整理了“【先锋海盗类】Ver2005 最终版”一文，供大家参考学习!
复制代码 代码如下:
<%
''转发时请保留此声明信息,这段声明不并会影响你的速度!
''************************** 【先锋海盗类】Ver2005 最终版********************************
''作者:孙立宇、apollosun、ezhonghua
''改进者：arllic
''【消除所有的BUG，去掉了一些不易使用，容易使人误解的功能，优化了执行效率，此为最终版】
''官方网站:http://www.lkstar.com 技术支持论坛：http://bbs.lkstar.com
''电子邮件:kickball@netease.com 在线QQ:94294089
''版权声明:版权没有,盗版不究,源码公开,各种用途均可免费使用,欢迎你到技术论坛来寻求支持。
''——小偷程序的原理是通过XHTML和ASP技术相结合,定向集中采集远程网页内容加工后转为本地虚拟网页。
''——此技术自诞生以来由于它的信息覆盖面、广同步更新和免维护的特性一直受到各编程爱好者的关注和追捧。
''——目前国内比较流行的实时新闻、闪客动漫、流行歌曲、软件下载、天气预报、股票查询等优秀作品。
''——然而由于制作小偷程序的过程过于复杂和繁琐,还由于远程网页代码的变更而经常失效,这使小偷网页的
''维护成为一个噩梦!所以到目前为止,目前此类佳作不多,技术也集中在小部分人手中。
''——先锋海盗类的诞生将使小偷程序的制作和维护变得容易起来。先锋海盗类提供的12种类方法将使你对采集
''内容的编辑掌控能力变得空前强大,另有贴心的类排错debug方法可以使你随时观察自己在各步骤获得的代码和
''页面显示效果,彻底掌握这些类方法将使你为所欲为地采集编辑各种远程页面,而且维护也相当方便！
''——总而言之,使用先锋海盗类将使你的"小偷"程序晋升为"海盗"程序！
''详细使用说明或范例请见下载附件或到本人官方站点下载！
''-------------------------------------------------------------------------------------
Class clsThief
''____________________
Private value_ ''窃取到的内容
Private src_ ''要偷的目标URL地址
Private isGet_ ''判断是否已经偷过
public property let src(str) ''赋值—要偷的目标URL地址/属性
src_=str
end property
public property get value ''返回值—最终窃取并应用类方法加工过的内容/属性
value=value_
end property
Public Property get Version
Version="先锋海盗类 Version 2005"
End Property
private sub class_initialize()
value_=""
src_=""
isGet_= false
end sub
private sub class_terminate()
end sub
private Function BytesToBstr(body,Cset) ''中文处理
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
public sub steal() ''窃取目标URL地址的HTML代码/方法
if src_<>"" then
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",src_ ,false
Http.send()
if Http.readystate<>4 then
exit sub
end if
value_=BytesToBSTR(Http.responseBody,"GB2312")
isGet_= True
set http=nothing
if err.number<>0 then err.Clear
else
response.Write("<script>alert(""请先设置src属性！"")</script>")
end if
end sub
''删除偷到的内容中里面的换行、回车符以便进一步加工/方法
public sub noReturn()
if isGet_= false then call steal()
value_=replace(replace(value_ , vbCr,""),vbLf,"")
end