网页小偷程序,取得sina滚动新闻的源代码,直接保存成asp文件执行,网上有直接提取好的程序
http://sindy.jyzxw.net/news 有时打不开
http://www.it365cn.com/show.asp?id=1507 ASP实现小偷程序原理和简单示例
http://www.mydown.com/code/439100963668623360.html 这个是天极网提供的下载版块
<%Dim url,Html
url = "http://news.sina.com.cn/iframe/o/allnews/input/index.htm"
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate=4 then
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Http.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
objstream.Close
set objstream = nothing
set http=nothing
html=Replace(html,"<","<")
html=Replace(html,">",">")
html=Replace(html," "," ")
html=Replace(html,vbcrlf,"<br/>")
response.write (html)
end if
%>
url = "http://news.sina.com.cn/iframe/o/allnews/input/index.htm"
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate=4 then
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Http.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
objstream.Close
set objstream = nothing
set http=nothing
html=Replace(html,"<","<")
html=Replace(html,">",">")
html=Replace(html," "," ")
html=Replace(html,vbcrlf,"<br/>")
response.write (html)
end if
%>