怎么抓取网站内容!高手指教高分送出!

wenyang2004 2005-03-23 01:09:34

我想抓取网站上的内容

然后把它保存下来

该如何实现

...全文

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

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

wenyang2004 2005-03-23

打赏
举报

已经取到了我的网站上

怎么存到数据库里呢

wenyang2004 2005-03-23

打赏
举报

上面的大家可以试一试

怎么分成表格的形式

请求帮忙了

wenyang2004 2005-03-23

打赏
举报

下面这段代码可以把想要的东西复制下来
但我想做成表格的格式该怎么写呢

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
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

%>

<html>

<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>

<%
Dim wstr,str,url,start,over,dtime
dtime="区县"
url="http://rent.online.sh.cn/zjlist.php/"
wstr=getHTTPPage(url)
start=Newstring(wstr,dtime)
over=Newstring(wstr,"共找到")
body=mid(wstr,start,over-start)

response.write " "&body&" "

%>

</body></html>

zugou_com 2005-03-23

打赏
举报

顶你一下，大家帮忙看看
http://community.csdn.net/Expert/topic/3873/3873931.xml?temp=.3310511
这个问题啊

iasky 2005-03-23

打赏
举报

中文有乱码,别忘了转换哦

wenyang2004 2005-03-23

打赏
举报

可以留下你们的MSN 或是QQ 号吗?

mind_1220 2005-03-23

打赏
举报

以前大笨狼发过一个
XMLHTTP的方法。
你搜索一下吧

wenyang2004 2005-03-23

打赏
举报

写了一段代码可以把数据抓取到自己的网站

但我把抓取来的数据分成一个表格

比如说这样: 姓名年龄学历
王小 23 大专
王一 22 本科

这样的话代码应该怎么写呢

wenyang2004 2005-03-23

打赏
举报

写了一段代码可以把数据抓取到自己的网站

但我把抓取来的数据分成一个表格

比如说这样: 姓名年龄学历
王小 23 大专
王一 22 本科

该怎么分啊

lovebanyi 2005-03-23

打赏
举报

oStream.ToSaveFile 改一下.ostream.SaveToFile 改一下..上面的这句写错了这样就可以保存文件了

TSD 2005-03-23

打赏
举报

用XMLHTTP很好的一个例子(原创)

http://blog.csdn.net/tsd/archive/2005/01/27/270602.aspx

wzhiyuan 2005-03-23

打赏
举报

mark

lovebanyi 2005-03-23

打赏
举报

方法二:
Set Retrieval = Server.CreateObject("microsoft.xmlhttp")
Retrieval.Open "GET", vurl, False, "", ""
Retrieval.Send
set oStream = server.CreateObject("ADODB.Stream")
oStream.Type=1
oStream.Mode=3
oStream.Open()
oStream.Write(Retrieval.responseBody)
oStream.Position= 0
oStream.Type= 2
oStream.Charset="gb2312"
result= oStream.ReadText()
oStream.Close()
oStream.ToSaveFile(server.mappath("文件名"))保存的
set oStream = nothing
'Response.Write(server.HTMLEncode(result))'这边是内容

flashasp 2005-03-23

打赏
举报

试试
<%
on error resume next
vurl="http://www.pconline.com.cn//market/price/price/city=4&BigkindProduct=2&SmallKindProduct=2&.html"
Set Retrieval = Server.CreateObject("microsoft.xmlhttp")
Retrieval.Open "GET", vurl, False, "", ""
Retrieval.Send
GetURL = Retrieval.ResponseText
Response.Write GetURL
Set Retrieval = Nothing

%>

lovebanyi 2005-03-23

打赏
举报

set winhttp = server.CreateObject("WinHttp.WinHttpRequest.5.1")
winhttp.open "GET",url,false
winhttp.SetRequestHeader "Accept","image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-powerpoint, */*"
winhttp.SetRequestHeader "Referer","http://esales.qq.com/login/sell_qb.shtml"
winhttp.SetRequestHeader "Accept-Language","zh-cn"
winhttp.SetRequestHeader "Accept-Encoding","gzip, deflate"
winhttp.SetRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.1.4322)"
winhttp.SetRequestHeader "Host","esales.qq.com"
winhttp.SetRequestHeader "Connection","Keep-Alive"
winhttp.SetRequestHeader "Cookie",""&QQcookie_D&""
winhttp.send
set oStream = server.CreateObject("ADODB.Stream")
oStream.Type=1
oStream.Mode=3
oStream.Open()
oStream.Write(winhttp.responseBody)
oStream.Position= 0
oStream.Type= 2
oStream.Charset="gb2312"
result= oStream.ReadText()
oStream.Close()
oStream.ToSaveFile(server.mappath("文件名"))保存的
set oStream = nothing
'Response.Write(server.HTMLEncode(result))'这边是内容