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

newyearday 2002-07-23 05:24:01

我想在网页上制作天气预报，但是我不想每天都录入，想从其它网站上获得数据，请问怎么样自动更新呢？有源程序更好，不够了，我再加分！

...全文

212 8 打赏收藏转发到动态举报

写回复

用AI写文章

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>