如何抓取该网页中的表格内容？有难度，普通的小偷程序无效哦。

好记忆不如烂笔头abc 2005-09-22 01:47:09
抓取网址如下：http://www.whois.sc/221.216.169.120

问题：如何抓取该页中间表格的信息并显示。

一般的页面抓取程序似忽无效，请经过测试成功抓取后再提交回复，谢谢。
...全文
314 20 打赏 收藏 转发到动态 举报
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
Shewontloveme 2005-11-20
  • 打赏
  • 举报
 回复
学习学习
晓疯馋曰 2005-09-23
  • 打赏
  • 举报
 回复
我试过,得到的信息跟用IE打开的信息是一样的呀.
不对吗?
好记忆不如烂笔头abc 2005-09-23
  • 打赏
  • 举报
 回复
楼上兄弟，试过没有？不行啊。
得到的结果是：
To see the Whois Record for 221.216.169.120 you will need to sign-up for a free account. We restrict how many whois records we give out to anonymous users per day. Sorry for the precaution but we need to limit wandering robots for the protection of everyone.

不是正确的221.216.169.120 IP地址信息啊。
晓疯馋曰 2005-09-23
  • 打赏
  • 举报
 回复
<%
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
function PostData(strurl)
dim mXmlHttp
set mXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
mXmlHttp.open "GET",strurl,false
mXmlHttp.setRequestHeader "Accept", "*/*"
mXmlHttp.setRequestHeader "Accept-Language","zh-cn"
mXmlHttp.setRequestHeader "UA-CPU","x86"
mXmlHttp.setRequestHeader "Accept-Encoding","gzip, deflate"
mXmlHttp.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)"
mXmlHttp.setRequestHeader "Host","www.whois.sc"
mXmlHttp.setRequestHeader "Connection","Keep-Alive"
mXmlHttp.setRequestHeader "Cookie","ss=732834423dc939d2d1db1b01d524abc5"
mXmlHttp.send
PostData=mXmlHttp.responseBody
end function
str=PostData("http://www.whois.sc/221.216.169.120")
Response.Write bytes2BSTR(str)
%>
好记忆不如烂笔头abc 2005-09-23
  • 打赏
  • 举报
 回复
不是吧,结果是这个吗？
To see the Whois Record for 221.216.169.120 you will need to sign-up for a free account. We restrict how many whois records we give out to anonymous users per day. Sorry for the precaution but we need to limit wandering robots for the protection of everyone.
上面的不对。

正确的应该是：
221.216.169.120

Blacklist Status: Listed - Cached Today (details)
Cached Whois: Cached today
Whois History: 2 records stored
Oldest: 2005-09-21
Newest: 2005-09-22
Record Type: IP Address
IP Location: China - Beijing - Beijing - Cncgroup Beijing Province Network
Reverse IP: No websites hosted using this IP address
Reverse DNS: not set


--------------------------------------------------------------------------------
% [whois.apnic.net node-2]
% Whois data copyright terms http://www.apnic.net/db/dbcopyright.html

inetnum: 221.216.0.0 - 221.223.255.255
netname: CNCGROUP-BJ
descr: CNCGROUP Beijing province network
descr: China Network Communications Group Corporation
descr: No.156,Fu-Xing-Men-Nei Street,
descr: Beijing 100031
country: CN
admin-c: CH455-AP
tech-c: SY21-AP
mnt-by: APNIC-HM
mnt-lower: MAINT-CNCGROUP-BJ
changed: 20031119
status: ALLOCATED PORTABLE
source: APNIC

role: CNCGroup Hostmaster
e-mail:
address: No.156,Fu-Xing-Men-Nei Street,
address: Beijing,100031,P.R.China
nic-hdl: CH455-AP
phone: +86-10-82993155
fax-no: +86-10-82993102
country: CN
admin-c: CH444-AP
tech-c: CH444-AP
changed: 20041119
mnt-by: MAINT-CNCGROUP
source: APNIC

person: sun ying
address: Beijing Telecommunication Administration
address: TaiPingHu DongLi 18, Xicheng District
address: Beijing 100031
country: CN
phone: +86-10-66198941
fax-no: +86-10-68511003
e-mail:
nic-hdl: SY21-AP
mnt-by: MAINT-CHINANET-BJ
changed: 19980824
source: APNIC
2599 2005-09-23
  • 打赏
  • 举报
 回复
整页?部分?
fantiny 2005-09-23
  • 打赏
  • 举报
 回复
我刚才比较了一下，我抓取出来的内容跟原来的一模一样。
好记忆不如烂笔头abc 2005-09-23
  • 打赏
  • 举报
 回复
顶一下
好记忆不如烂笔头abc 2005-09-22
  • 打赏
  • 举报
 回复
你看到的页面是没有表格里IP地址信息的页面，不是那样的。
fantiny 2005-09-22
  • 打赏
  • 举报
 回复
为什么我这里可以抓取出来？
HHH3000 2005-09-22
  • 打赏
  • 举报
 回复
果然，我也试了xmlhttp抓取和cdo.message抓取都不可以。。。
yyy502 2005-09-22
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift-JIS">
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
'Http.open "GET",url,false
Http.open "POST",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
'getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
getHTTPPage=bytesToBSTR(Http.responseBody,"Shift-JIS")
set http=nothing
if err.number<>0 then
err.Clear
end if
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

Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
%>
<title></title>
</head>
<body>
<%
Dim Url,Html
Url= "http://www.whois.sc/221.216.169.120"
Html = getHTTPPage(Url)
start=Newstring(Html,"<table width=700 border=")
over=Newstring(Html,"</td></tr></table></td></tr></table>")
bodytext=mid(Html,start,over-start)
Response.write bodytext
%>
</body>
</html>
好记忆不如烂笔头abc 2005-09-22
  • 打赏
  • 举报
 回复
to HHH3000(蓝色爱琴海 阿信fans 001号)
试过，不行！
HHH3000 2005-09-22
  • 打赏
  • 举报
 回复
这个函数试试~~

function getPageFromUrl(strPageUrl)

'参数为要抓的網址

Dim strStrem,objGetPage
ServerURL = strPageUrl
Set objGetPage = Server.CreateObject("CDO.Message")
objGetPage.CreateMHTMLBody ServerURL,31
strStrem = objGetPage.HTMLBody
Set objGetPage = Nothing
getPageFromUrl = strStrem
end function
tigerwen01 2005-09-22
  • 打赏
  • 举报
 回复
有这么一个组件AspHttp可以，不过是要money买的。http://www.newasp.net/Article/asp/other/2005/2005090918375.html
好记忆不如烂笔头abc 2005-09-22
  • 打赏
  • 举报
 回复
菜鸟兄，没试过就贴出来啊，不行哦，期待高手出现！
victor888 2005-09-22
  • 打赏
  • 举报
 回复
没有一个回答正确，我也正在找，找到了会贴出来。
fantiny 2005-09-22
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift-JIS">
<SCRIPT LANGUAGE="JavaScript">
<!--
function SelText(){
var oRangeRef = document.body.createTextRange();
alert(oRangeRef.text);
}
//-->
</SCRIPT>
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
'Http.open "GET",url,false
Http.open "POST",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
'getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
getHTTPPage=bytesToBSTR(Http.responseBody,"Shift-JIS")
set http=nothing
if err.number<>0 then
err.Clear
end if
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
%>

<title></title>
</head>

<body onload="SelText()">
<%
Dim Url,Html
Url= "http://www.whois.sc/221.216.169.120"
Html = getHTTPPage(Url)
Response.write Html
%>
</body>
</html>
好记忆不如烂笔头abc 2005-09-22
  • 打赏
  • 举报
 回复
虎哥，上面的方法不行，你试试？
tigerwen01 2005-09-22
  • 打赏
  • 举报
 回复
http://www.zahui.com/html/4/8351.htm
基于VC++的U盘行为监控系统设计与源码分析
htmltable {th, td {th {pre {简介：本文介绍了一款使用VC++开发的U盘行为监控程序“穿越者专版U盘小偷”，该程序可实现对U盘插入、文件读写等操作的实时监控与数据捕获。附带的完整源码有助于深入理解其技术实现机制，涵盖Windows API调用、设备监听、文件操作等关键技术。本项目适用于学习系统级编程、安全防护机制及逆向工程分析，同时警示开发者关注数据隐私与信息安全，倡导合法合规的技术应用。
为什么你学不会递归？告别递归，谈谈我的一些经验 关于集合中一些常考的知识点总结 .net辗转java系列（一）视野 彻底理解cookie，session，token...
为什么你学不会递归？告别递归，谈谈我的一些经验 可能很多人在大一的时候，就已经接触了递归了，不过，我敢保证很多人初学者刚开始接触递归的时候，是一脸懵逼的，我当初也是，给我的感觉就是，递归太神奇了！ 可能也有一大部分人知道递归，也能看的懂递归，但在实际做题过程中，却不知道怎么使用，有时候还容易被递归给搞晕。也有好几个人来问我有没有快速掌握递归的捷径啊。说实话，哪来那么多捷...
综合一
自我介绍 左固定右自适应布局 这是一个很常见的布局，当然也可以实现右侧自适应，左侧自适应。比如常见的网页中，左侧导航栏是固定的，右侧的内容区要自适应浏览器的大小。 现在我们来看下HTML布局： &lt;div id="outer"&gt;   &lt;div id="sidebar" style="height:240px;"&gt;固定宽度区&lt;/div&gt;   &lt;d
前端面试--111

<script type="text/javascript"> var obj = {} Object.defineProperty(obj, 'txt', { get: function () { return obj },
社会工程渗透测试教程（一）
我依然清晰地记得当我坐下来开始在写框架时的情景。我在互联网上搜索我想要涵盖的主题的有用提示。然而，社会工程当时并不是一个热门话题。我可以找到关于从驶入式快餐店获得免费食物或者追求女孩的视频……但没有关于安全的。在我写框架的同时，我努力尝试在我所做的任何安全工作中包含社会工程。大多数时候，公司会说：“为什么要尝试呢？我们知道我们会失败。”或者“像那样的事情绝不可能对我起作用！我甚至曾经不惜免费提供服务，只是为了证明社会工程是多么危险。现在几年过去了，人们每天都在通过电子邮件和电话询价社会工程工作。
ASP

28,406

社区成员

356,946

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章