如何窃取别人网站上的信息显示在我的网站上?
如何窃取别人网站上的信息显示在我的网站上?
谢谢!
------解决方案--------------------其实很简单,最笨的方法是用iframe将目标网页包含进来
一般普遍的做法是制作新闻小偷程序,这种程序太多了,原理也很简单。
小偷的原理就是xmlhttp远程抓取页面,然后根据关键字提取出需要的新闻
下面是我收集的一个小偷的原理程序,你看看:
<%
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
function getHTTPPage(url)
dim Http
set Http=server.createobject( "MSXML2.XMLHTTP ")
Http.open "GET ",url,false
Http.send()
if Http.readystate <> 4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody, "GB2312 ")
set http=nothing
if err.number <> 0 then err.Clear
end function
dim url,html
url = "http://www.sina.com.cn "
html = gethttppage(url)
response.write html
%>