专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅

首页 »Asp教程 » asp小偷:ASP中实现小偷程序的原理和简单示例 »正文

asp小偷:ASP中实现小偷程序的原理和简单示例

来源: 发布时间:星期四, 2009年2月12日 浏览:366次 评论:0


  现在网上流行小偷比较多有新闻类小偷音乐小偷下载小偷那么它们是如何做下面我来做个简单介绍希望对各位站长有所帮助

  ()原理

  小偷实际上是通过了XML中XMLHTTP组件其它网站WebSite上网页比如新闻小偷很多都是了sina新闻网页并且对其中html进行了些替换同时对广告也进行了过滤用小偷优点有:无须维护网站WebSite小偷数据来自其他网站WebSite它将随着该网站WebSite更新而更新;可以节省服务器资源般小偷就几个文件所有网页内容都是来自其他网站WebSite缺点有:不稳定如果目标网站WebSite出错也会出错而且如果目标网站WebSite进行升级维护那么小偷也要进行相应修改;速度是远程速度和在本地服务器上读取数据比起来肯定要慢

  ( 2)事例

  下面就XMLHTTP在ASP中应用做个简单介绍说明
以下为引用内容: [ 保存 ]
<%
\'常用

\'1、输入url目标网页地址返回值getHTTPPage是目标网页html代码
function getHTTPPage(url)
 dim Http
  Http=server.createobject(\"MSXML2.XMLHTTP\")
 Http.open \"GET\",url,false
 Http.send
  Http.readystate<>4 then
  exit function
 end
 getHTTPPage=sToBSTR(Http.responseBody,\"GB2312\")
  http=nothing
  err.number<>0 then err.Clear
end function

\'2、转换乱玛直接用xmlhttp有中文网页得到将是乱玛可以通过adodb.stream组件进行转换
Function BytesToBstr(body,C)
 dim objstream
  objstream = Server.CreateObject(\"adodb.stream\")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Char = C
 BytesToBstr = objstream.ReadText
 objstream.Close
  objstream = nothing
End Function

\'下面试着http://www.3doing.com/earticle/html内容
Dim Url,Html
Url=\"http://www.3doing.com/earticle/\"
Html = getHTTPPage(Url)
Response.write Html
%>

0

相关文章

读者评论

发表评论

  • 昵称:
  • 内容: