如何窃取别人网站上的信息显示在我的网站上?

qddoudouqd 2007-03-02 10:06:01
如何窃取别人网站上的信息显示在我的网站上?
谢谢!
...全文
473 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
theXhunter 2007-03-02
  • 打赏
  • 举报
回复
弊了你的IP
yangsnrt11 2007-03-02
  • 打赏
  • 举报
回复
抗议
robake 2007-03-02
  • 打赏
  • 举报
回复
反盗链!!!
楼主欠抽
pzhuyy 2007-03-02
  • 打赏
  • 举报
回复
楼上正解:)
qddoudouqd 2007-03-02
  • 打赏
  • 举报
回复
我想实现的功能是这样的,
别人网站上有信息,我自己再做一个搜索页,我搜索的时候,是搜索别人的网页上的信息,然后显示在我的网页上,我网站本身不存在数据库存放那些数据
这样的功能可以实现么?
yalan 2007-03-02
  • 打赏
  • 举报
回复
其实很简单,最笨的方法是用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

%>
satans18 2007-03-02
  • 打赏
  • 举报
回复
xmlhttp
yowbell 2007-03-02
  • 打赏
  • 举报
回复
找B帖,欠抽帖~~~~~~
darkcloud783 2007-03-02
  • 打赏
  • 举报
回复
“拿來主義”?不能這樣拿吧?拿別人的方法可以,怎麼能拿別人的成果呢?不主張這樣“拿來”。

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧