如何读取别人的页面中的信息,谢谢各位

[wefhl]

因为太忙,很久没来这里了,但一旦有问题,我首先还是想到CSDN.好地方.
我现要做的一个ASP网站中有些动态的数据要求及时更新,但这些数据是在别人的网页中的,如何可以让自己的ASP程序能够自动读到别人网页上这些对应数据??谢谢..
而且如果他的数据更新了,我也要能及时更新,又如何呢?再次向大虾致谢.

[姐夫唐]

新闻小偷程序?

[wefhl]

不是。当然有点类似了，哈哈。

[patchclass]

xmlhttp 或者，用个iframe框架得了

[net205]

人家说了是小偷，你不信，，
我给一个类似的，如果满足不了你的要求，那我没办法了
功能：根据关键字在Google里搜索，列出num条记录
调用：FairFromGoogle(6,Key)

Function FairFromGoogle(num,Key)
Dim strReturn,objRegExp,strUrl,Re,Matches,Match,Count,MaxCount

strReturn=""
Count=0
If num="" or not isNumeric(num) Then MaxCount=6 Else MaxCount=num
strUrl="http://www.google.com/search?hl=zh-CN&q="+Key
Re="<p class=g><a(.*?)href=""(.*?)""(.*?)>(.*?)</a>"

Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = Re

strReturn=Trim(GetBody(strUrl))
Set Matches = objRegExp.Execute(strReturn)
strReturn = ""
Re="(.*?)(<a)(.*?)(href="")(.*?)("")(.*?)(>)(.*?)(</a>)"
objRegExp.Pattern = Re
For Each Match in Matches
Re=""
If Count>=MaxCount Then Exit For
strReturn = strReturn &"<li><a href="""&objRegExp.Replace(Match,"$5")&""" target=_blank title="""&NoHtml(objRegExp.Replace(Match,"$9"))&""">"&CutStr(NoHtml(objRegExp.Replace(Match,"$9")),26)&"</a></li>"
Count=Count+1
Next
FairFromGoogle=strReturn
End Function

上面用到的相关函数：
Function BytesToBstr(strBody, CodeBase)
Set objStream = Server.CreateObject("Adodb.Stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set objStream = Nothing
End Function

Function GetBody(Url)
On Error Resume Next
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
With objXML
.Open "Get", Url, False, "", ""
.Send
GetBody = .ResponseBody
End With
If Err Then GetBody=""
GetBody = BytesToBstr(GetBody, "UTF-8") 'GB2312
Set objXML = Nothing
End Function


Function CutStr(str,strlen)
Dim l,t,c,i
l=len(str)
t=0
If str="" Or IsNull(str) Then str="" : Exit Function
For i=1 To l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)
Exit for
Else
cutStr=str
End If
Next
CutStr=replace(cutStr,chr(10),"")
End Function

'*******************************************************
'Function: NoHtml(str)
'Description: 去掉HTML代码
'Parameter: str 字符串
'Return: 返回字符串
'Author: Written by net205,Modifide by net205
'Date: 2004/9/16----?
'********************************************************
Function NoHtml(str)
If str="" Or IsNull(str) Then NoHtml="" : Exit Function
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.*?\>)"
str=re.replace(str,"")
re.Pattern="(\<\/.*?\>)"
str=re.replace(str,"")
NoHtml=str
End Function

[wefhl]

谢谢了

[net205]

Google每页是10条，所以最多这只能列10条记录，如果要更多，那要修改下
然后偶的正则用得不熟练，上面的代码不知道能更好的修改不，请各位看官指点

[ybfqlyq]

XMLHTTP獲取

[bluechen]

还真是类似小偷程序。

我觉得信息采集代码行不？

[wniy]

根本就是小偷程序

[cestar2005]

xmlhttp 或者，用个iframe框架得了
----------------------------------
正解

[苍白之月]

小偷怎么了？盗亦有道啊

[wefhl]

不是小偷程序，顶，大家误解了。
其实我要做的一个网站是关足球方面的，然后不可能总是自己去更新比分吧？
所以如果能够从国外的网站中读取到信息后，让自己的页面也更新了，就比较方便了。
哪位有没有例程可以给来看看呢？谢谢！