关于关于在网页上制作天气预报

newyearday 2002-07-23 05:24:01
我想在网页上制作天气预报,但是我不想每天都录入,想从其它网站上获得数据,请问怎么样自动更新呢?有源程序更好,不够了,我再加分!
...全文
111 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
newyearday 2002-07-25
我查过了,那一段程序和你说德一样,但是仍然不行,麻烦你把w.asp文件发给我。
回复
nice90 2002-07-24
错在:
function Send(Str,URL)
{
这里:
Http.open("GET",URL,true)
Http.send()
Http.onreadystatechange=doit;
return;
}
1、
不知道你将下面这个文件考下来没有:
tojava.js
2、
如果你愿意你可以到http://www.dev-club.com的asp精华区去搜索一下。
dev-club地址:
http://www.dev-club.com/club/bbs/showEssence.asp?id=14958&page=1
但是你必须登录后才能够使用。

该帖子包含了三个文件,第一个文件是weather.htm,第二个是tojava.js,第三个是一张图片chinamapzj.gif。这张图片在dev-club上面没有了。到这里找:
http://club.esnai.com/club/weather/w.asp
将那张图片保存下来。按照说明,将三个文件放在同一级目录里。就可以看到了。
3、如果实在不行,可以给我发信,让我发给你。连同w.asp的文件。
flash90@sohu.com

这里对dev-club的netnice 很诚挚的说声“谢谢!”
回复
newyearday 2002-07-24
对不起,我的仍然有问题,提示说:网页上有问题
问题在第49行,没有权限?怎么回事?
我的网页连接地址
http://www.hncd.gov.cn/bbs/newweb/weather/weather.htm
帮忙看看吧!
回复
ChinaOk 2002-07-24
到yahoo上提供了 webservices接口??
去看看
回复
nice90 2002-07-23
请将上面的http://202.106.103.44/forecast/fc06024.php地址换成下面的地址:

http://club.esnai.com/club/weather/w.asp
这个问题我和另外一个高手在http://www.dev-club.com的ASP版里讨论过,去那里的精华区查找,上面的例子就是里面的原版。一定能够实现。
回复
online 2002-07-23
到yahoo上去
提供了 webservices接口
回复
newyearday 2002-07-23
我是过了,但是只是显示正在读取数据,什么都没有呀?
回复
freezwy 2002-07-23
给你个使用XMLHTTP获得的例子,你可以照这个修改或者直接使用,建议收藏。
分想给就给吧。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="0">
<style>body{font-size:9pt}</style>
<title>全国24小时早间城市天气预报</title>
<script language="vbscript">
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>
<script language="Javascript">
self.onerror=null;
var isLoad = '<HTML><BODY text=#003366><center><span style=\"font-size:9pt\">正在读取数据, 请稍候 ......</span></center></BODY></HTML>';
try{
var Http = new ActiveXObject("Microsoft.XMLHTTP"); //建立XMLHTTP对象
}
catch(e){alert("Wrong!使用本服务您必须使用IE5.0以上版本的浏览器");
}
function doit()
{if (Http.readystate!=4){return;}
Back=bytes2BSTR(Http.responseBody)
Back=Back.substr(Back.indexOf("<MAP name=Map>"));
parent.tqif.document.open();
parent.tqif.document.writeln("<HTML><style>td,body{font-size:9pt}</style><body leftmargin=0 topmargin=0 >");
parent.tqif.document.writeln("<DIV id=overDiv style=\"Z-INDEX: 1; POSITION: absolute\"></DIV>");
parent.tqif.document.writeln("<\SCRIPT language=JavaScript1.1 src=\"tojava.js\"><\/SCRIPT>");
parent.tqif.document.writeln (Back);
parent.tqif.document.writeln("<IMG src=\"chinamapzj.gif\" width=559 useMap=\"#Map\" border=0></body></html>");
parent.tqif.document.close();
delete(Http);
}
function Send(Str,URL)
{
Http.open("GET",URL,true)
Http.send()
Http.onreadystatechange=doit;
return;
}
function rp2(Str,Fs,Is)
{while (Str.indexOf(Fs)!=-1)
Str = Str.replace(Fs,Is)
return(Str)
}
function init()
{Send("","http://202.106.103.44/forecast/fc06024.php");
}</script>
</head>
<body onload="init()">
<SCRIPT language=JavaScript1.1 src="tojava.js"></SCRIPT>
<IMG src="chinamapzj.gif" width=1 border=0>
<iframe width=560 height=560 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR="#000000" name=tqif src="javascript:parent.isLoad"></iframe>
</body>

</html>

回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告