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
相关文章读者评论发表评论 |
|