再问高手关于新闻小偷的问题！

xcoco2000 2005-04-05 03:49:10

下面这段代码可以正常运行，我想问大家几个问题，
1，为什么一点里面的新闻，不能看到内容，跳出的页面是无法显示的，就是说下面这段代码不能显示新闻，请问要想看新闻的话，还需要什么代码？
2，下面代码偷的是整个页面，我想只是偷其中的一部分代码，那需要怎么办？
我刚刚接触小偷，还不会做，请做过的指点一下
如果有源代码的话请帖一下
网上差不多就一个版本，就是新浪小偷，不过里面的有很多地方我看不懂，也太复杂
请高手给个那种简单的实例程序
本人菜鸟一个，分数不够多了，不好意思，谢谢大家了！！
<%
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

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

Dim Url,Html
Url="http://www.sp.com.cn/dlyw"
Html = getHTTPPage(Url)
Response.write Html

%>

...全文

158 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

TSD 2005-04-05

打赏
举报

看看这个吧（不过，那个网站已经改版了，无法获取所要的东西，方法就是这样）
http://community.csdn.net/Expert/TopicView.asp?id=3381833

1、先确认目标是否存在

2、可以通过找页面中的一些特定标记或用正则来实现

笨笨兔兔兔兔兔 2005-04-05

打赏
举报

responsetext就是你要的信息你可以随便格式化的,xmlhttp的faq在asp版应该挺多的,搜索一下看看

还有我是不验证status的正常情况是需要检查的,还有你可以看看阿信的无限树他用的是xmlhttp做的,js版本的

我给的都是vbs版本,我第一个不是小偷程序是我自己因为某个事情不得不用的xmlhttp,而且得到的东西跟一般的小偷程序是不同的,这个是得到的xml文件,用treeview什么的很合适

笨笨兔兔兔兔兔 2005-04-05

打赏
举报

<html>
<head>
<%
Dim objXMLHTTP, xml
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://localhost/website/manageindex.htm", False
xml.Send

Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
function utf2str(binstr)

end function

%>

</head>

<body>
<%
response.Write bin2str(xml.responseText)
%>
</body>

</html>

xcoco2000 2005-04-05

打赏
举报

兔哥，可不可以加点注释呀？
希望大家继续写，
把我说的这个程序写完
要求：
我贴的源代码是index.asp
请高手加上代码，在页面上只留下新闻内容（也就是如何截取一部分页面），
还有就是一点出来的页面可以显示相应的内容，
谢谢大虾们
这些功能实现之后，我觉得就可以把新闻小偷的原理彻底搞懂了
不够可以加分

笨笨兔兔兔兔兔 2005-04-05

打赏
举报

class xmlhttprequest
dim xmlhttp1
dim blogdom
Private Sub Class_Initialize
set xmlhttp1 = CreateObject("Microsoft.XMLHTTP")
set blogdom=createobject("Microsoft.XMLDOM")
end sub
Public function opensend(xmlurl,xslurl)
xmlhttp1.open "GET",xmlurl,false
xmlhttp1.send()
blogdom.async=false
blogdom.load xslurl
end function
public function show(flag)
if flage=2 then
set text2 = xmlhttp1.responseXML
text2.loadXML xmlhttp1.responseText
set blogxml=text2.documentElement
set blogroot=blogxml.selectSingleNode("//blog")
show=blogroot.transformNode(blogdom)
else
show=xmlhttp1.responseBody
end if
end function
Private Sub Class_Terminate
set xmlhttp1=nothing
set blogdom=nothing
End Sub
end class

xcoco2000 2005-04-05