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

wenyang2004 2005-03-23 01:09:34
我想抓取网站上的内容

然后把它保存下来

该如何实现

...全文
280 16 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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))'这边是内容
mrshelly 2005-03-23
  • 打赏
  • 举报
回复
winhttp5.dll
XMLHTTP
Socket~~~
应该都可以~!~~

28,409

社区成员

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

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