a question regarding webpage design
登录 | 论坛导航 -> 华新鲜事 -> 社会百科 | 本帖共有 3 楼,分 1 页, 当前显示第 1 页 : 本帖树形列表 : 刷新 : 返回上一页
<<始页  [1]  末页>>
作者:楂楂兔 (等级:2 - 初出茅庐,发帖:70) 发表:2004-01-14 12:59:41  楼主  关注此帖
a question regarding webpage design
this project is to create a website for the company. one requirment is that the website can "extract" updated information from its competitor's website, which means, when i open our company's website, I can see updated info if the competitor's website updates.
how to realise this function? use what kind of programming language?
Put your OWN COOL signature here!
欢迎来到华新中文网,踊跃发帖是支持我们的最好方法!原文 / 传统版 / WAP版所有回复从这里展开收起列表
作者:楂楂兔 (等级:2 - 初出茅庐,发帖:70) 发表:2004-01-14 15:05:30  2楼
这也太阴了吧。。how about write a program that run in background, maybe run 10 mins once, to get those information and then save in xml or txt or ini whatever files each time ur company's main page loads, u can read from those files and decide what to do..
i found some info
but not very sure about it.
----->

如何利用xml来截取别人网站的内容

将下面代码保存为html格式,只要你的浏览器版本在IE5.0以上就行了.由于要数据要经过转换所以速度会有点慢,不知大家有什么好的方法欢迎一起来讨论lzppcc@21cn.com

<script language="VBScript">
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&quot; //---要截取的页面
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 = ""
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
</script>

欢迎来到华新中文网,踊跃发帖是支持我们的最好方法!原文 / 传统版 / WAP版所有回复从这里展开收起列表
作者:楂楂兔 (等级:2 - 初出茅庐,发帖:70) 发表:2004-01-14 15:05:48  3楼
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>的语句你的网页就可以时时有更新的内容了,特别适合 中小网站个人网站等没有采编能力的网站使用,以吸引更多的人来访问。

欢迎来到华新中文网,踊跃发帖是支持我们的最好方法!原文 / 传统版 / WAP版所有回复从这里展开收起列表
论坛导航 -> 华新鲜事 -> 社会百科 | 返回上一页 | 本主题共有 3 篇文章,分 1 页, 当前显示第 1 页 | 回到顶部
<<始页  [1]  末页>>

请登录后回复:帐号   密码