i found some infobut not very sure about it.
----->
如何利用xml来截取别人网站的内容
将下面代码保存为html格式,只要你的浏览器版本在IE5.0以上就行了.由于要数据要经过转换所以速度会有点慢,不知大家有什么好的方法欢迎一起来讨论lzppcc@21cn.com
Option Explicit
Dim NextCharCode,ThisCharCode,i,strReturn,Retrieval,T,Start,Start2,get_url,start_char,end_char,start_char_len
get_url="http://news.sina.com.cn/news1000.shtml" //---要截取的页面
start_char="" //要从哪个地方开始截取
end_char="" //到哪个地方结束
start_char_len=len(start_char) //开始字符串长度
T=GetURL(get_url)
T=bytes2BSTR(T) //将数据转换为字符型式
start=Instr(1,t,start_char)
start2=Instr(start,t,end_char)
t=mid(T,start+start_char_len,start2-start-start_char_len) //取出数据
document.write t
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
'GetURL = .ResponseText
GetURL = .Responsebody
End With
Set Retrieval = Nothing
End Function
Function bytes2BSTR(vIn)
strReturn = (more...)
there's also a software
which dose the similar thing.
WebNews是一个自动帮助你更新你的主页上的及时性信息的工具软件，它从更新频率 较高的网站截取最新的信息，生成可以直接嵌入到自己的网页中的 JS 文件，只需在 网页的适合的地方放至类似<script language=javascript src="xxxxxx.JS"></script>的语句你的网页就可以时时有更新的内容了，特别适合 中小网站个人网站等没有采编能力的网站使用，以吸引更多的人来访问。
WebNews是一个自动帮助你更新你的主页上的及时性信息的工具软件，它从更新频率 较高的网站截取最新的信息，生成可以直接嵌入到自己的网页中的 JS 文件，只需在 网页的适合的地方放至类似<script language=javascript src="xxxxxx.JS"></script>的语句你的网页就可以时时有更新的内容了，特别适合 中小网站个人网站等没有采编能力的网站使用，以吸引更多的人来访问。
Huasing Association 1999 - 2013