Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Patrique

Previsão do Tempo asp Ajax

Recommended Posts

Fala ae galera, tudo tranquilo.

 

Vou passar aqui para vocês um code que eu fiz para previsão do tempo, no caso ele sempre mostra uma cidade que eu especificar como principal, depois se o usuário quiser ir mudando basta ele clicar no botão atualizar para o sistema mostra outras previsões, no caso eu coloquei resende que é minha cidade e coloquei todas as capitais brasileiras em seguida, este code utiliza dados resgatados do site climatempo.

 

Para ver um demo, veja aqui --> http://www.metodistavilanova.com.br/imasters/

 

Agora vamos ao code,

 

Primeiramente crie um arquivo chamado previsao_tempo_ajax.js nele coloque o seguinte code

 

function PrevisaoTempo(idcid)
{
	document.getElementById('previsaotempotopo').innerHTML = '<img src="carregador_tempo.gif" align="middle" />';
	
	var xmlhttp;
	try {xmlhttp = new XMLHttpRequest();} catch(ee){try{xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");} catch(e){try{xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");} catch(E){ xmlhttp = false; }}}
	xmlhttp.open('GET', 'func_tempo_todas.asp?trocarCidadePrev='+idcid, true);
	xmlhttp.onreadystatechange = function()
	{
		if (xmlhttp.readyState==4)
			document.getElementById('previsaotempotopo').innerHTML=xmlhttp.responseText;
	}
	xmlhttp.send('');
}

Agora crie um arquivo chamado func_tempo_todas.asp nele coloque o seguinte code

 

<%
Response.Charset="ISO-8859-1"

Function PrevisaoTempo(cidade,id)
set xmlTempo = createObject("MSXML2.DOMDocument")
On Error Resume Next
	xmlTempo.async = False
	xmlTempo.setProperty "ServerHTTPRequest", true
	xmlTempo.load("http://selos.climatempo.com.br/selos/selo.php?CODCIDADE="& cidade &"")

	nometempo	 = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("nome").Text
	data		  = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("data").Text
	minima		= xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("low").Text
	maxima		= xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("high").Text
	probabilidade = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("prob").Text
	mm			= xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("mm").Text
	icone		 = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("ico").Text
	frase		 = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("frase").Text
	
	nometempo = split(nometempo,"-")
	
	Response.Write("<table width=""145"" border=""0"" cellpadding=""1"" cellspacing=""0"" class=""txt_topo"">")
		Response.Write("<tr>")
			Response.Write("<td width=""41"" rowspan=""2"" align=""center""><img src="""& icone &".gif"" title="""& frase & " - " & data &"""></td>")
			Response.Write("<td colspan=""5""><strong>"& nometempo(1) &" - "& nometempo(0) &"</strong></td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
			Response.Write("<td width=""10""><img src=""seta_topo1.gif"" alt=""Temperatura Mínima"" width=""10"" height=""9"" /></td>")
			Response.Write("<td width=""21""><strong>"& Minima &"º</strong></td>")
			Response.Write("<td width=""10""><img src=""seta_topo2.gif"" alt=""Temperatura Máxima"" width=""10"" height=""9"" /></td>")
			Response.Write("<td width=""20""><strong>"& Maxima &"º</strong></td>")
			Response.Write("<td><a onclick=""PrevisaoTempo('"& id &"'); return false"" href=""#""><img src=""seta_topo3.gif"" alt=""Atualizar"" width=""12"" height=""14"" border=""0"" /></a></td>")
		Response.Write("</tr>")
	Response.Write("</table>")
	If Err Then
	   Response.write("<strong>nada</strong>")
	   Err.Clear
	End If
End Function

idtempo = Request.QueryString("trocarCidadePrev")

If idtempo = 2 Then
	Call PrevisaoTempo("343","3")' PORTO VELHO
ElseIf idtempo = 3 Then
	Call PrevisaoTempo("347","4")'BOA VISTA
ElseIf idtempo = 4 Then
	Call PrevisaoTempo("6","5")'RIO BRANCO
ElseIf idtempo = 5 Then
	Call PrevisaoTempo("232","6")'BELÉM
ElseIf idtempo = 6 Then
	Call PrevisaoTempo("25","7")'MANAUS
ElseIf idtempo = 7 Then
	Call PrevisaoTempo("39","8")'MACAPÁ
ElseIf idtempo = 8 Then
	Call PrevisaoTempo("593","9")'PALMAS
ElseIf idtempo = 9 Then
	Call PrevisaoTempo("256","10")'JOÃO PESSOA
ElseIf idtempo = 10 Then
	Call PrevisaoTempo("264","11")'TERESINA
ElseIf idtempo = 11 Then
	Call PrevisaoTempo("334","12")'NATAL
ElseIf idtempo = 12 Then
	Call PrevisaoTempo("94","13")'SÃO LUIS
ElseIf idtempo = 13 Then
	Call PrevisaoTempo("259","14")'RECIFE
ElseIf idtempo = 14 Then
	Call PrevisaoTempo("60","15")'FORTALEZA
ElseIf idtempo = 15 Then
	Call PrevisaoTempo("56","16")'SALVADOR
ElseIf idtempo = 16 Then
	Call PrevisaoTempo("384","17")'ARACAJU
ElseIf idtempo = 17 Then
	Call PrevisaoTempo("8","18")'MACEIÓ
ElseIf idtempo = 18 Then
	Call PrevisaoTempo("88","19")'GOIÂNIA
ElseIf idtempo = 19 Then
	Call PrevisaoTempo("218","20")'CUIABÁ
ElseIf idtempo = 20 Then
	Call PrevisaoTempo("212","21")'CAMPO GRANDE
ElseIf idtempo = 21 Then
	Call PrevisaoTempo("61","22")'BRASILIA
ElseIf idtempo = 22 Then
	Call PrevisaoTempo("558","23")'SÃO PAULO
ElseIf idtempo = 23 Then
	Call PrevisaoTempo("107","24")'BELO HORIZONTE
ElseIf idtempo = 24 Then
	Call PrevisaoTempo("84","25")'VITÓRIA
ElseIf idtempo = 25 Then
	Call PrevisaoTempo("321","26")'RIO DE JANEIRO
ElseIf idtempo = 26 Then
	Call PrevisaoTempo("363","27")'PORTO ALEGRE
ElseIf idtempo = 27 Then
	Call PrevisaoTempo("377","28")'FLORIANOPOLIS
ElseIf idtempo = 28 Then
	Call PrevisaoTempo("271","29")'CURITIBA
Else
	Call PrevisaoTempo("319","2")'RESENDE
End If
%>

Por fim crie um arquivo chamado index.asp e coloque o seguinte code

 

<script type="text/javascript" src="previsao_tempo_ajax.js"></script>

<style type="text/css">
.txt_topo {
  font-family: Tahoma, Verdana, Arial, sans-serif;
  font-size: 11px;
}
</style>

<table>
<td width="206" id="previsaotempotopo">
<%
set xmlTempo = createObject("MSXML2.DOMDocument")

On Error Resume Next

	xmlTempo.async = False
	xmlTempo.setProperty "ServerHTTPRequest", true
	xmlTempo.load("http://selos.climatempo.com.br/selos/selo.php?CODCIDADE=319")

	nometempo	 = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("nome").Text
	data		  = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("data").Text
	minima		= xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("low").Text
	maxima		= xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("high").Text
	probabilidade = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("prob").Text
	mm			= xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("mm").Text
	icone		 = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("ico").Text
	frase		 = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("frase").Text

	nometempo = split(nometempo,"-")

	Response.Write("<table width=""145"" border=""0"" cellpadding=""1"" cellspacing=""0"" class=""txt_topo"">")
		Response.Write("<tr>")
			Response.Write("<td width=""41"" rowspan=""2"" align=""center""><img src="""& icone &".gif"" title="""& frase & " - " & data &"""></td>")
			Response.Write("<td colspan=""5""><strong>"& nometempo(1) &" - "& nometempo(0) &"</strong></td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
			Response.Write("<td width=""10""><img src=""seta_topo1.gif"" alt=""Temperatura Mínima"" width=""10"" height=""9"" /></td>")
			Response.Write("<td width=""21""><strong>"& Minima &"º</strong></td>")
			Response.Write("<td width=""10""><img src=""seta_topo2.gif"" alt=""Temperatura Máxima"" width=""10"" height=""9"" /></td>")
			Response.Write("<td width=""20""><strong>"& Maxima &"º</strong></td>")
			Response.Write("<td><a onclick=""PrevisaoTempo('2'); return false"" href=""#""><img src=""seta_topo3.gif"" alt=""Atualizar"" width=""12"" height=""14"" border=""0"" /></a></td>")
		Response.Write("</tr>")
	Response.Write("</table>")

	If Err Then
	   Response.write("<strong>nada</strong>")
	   Err.Clear
	End If
%>
</td>
</table>

As imagens estão nos links abaixo... basta salvar na mesma pasta dos arquivos

 

http://www.metodistavilanova.com.br/imasters/1.gif

http://www.metodistavilanova.com.br/imasters/2.gif

http://www.metodistavilanova.com.br/imasters/3.gif

http://www.metodistavilanova.com.br/imasters/4.gif

http://www.metodistavilanova.com.br/imasters/5.gif

http://www.metodistavilanova.com.br/imasters/6.gif

http://www.metodistavilanova.com.br/imasters/7.gif

http://www.metodistavilanova.com.br/imasters/8.gif

http://www.metodistavilanova.com.br/imasters/9.gif

http://www.metodistavilanova.com.br/imasters/seta_topo1.gif

http://www.metodistavilanova.com.br/imasters/seta_topo2.gif

http://www.metodistavilanova.com.br/imasters/seta_topo3.gif

http://www.metodistavilanova.com.br/imaste...gador_tempo.gif

 

Bom é isso, se alguém ae ganhar na megasena hoje não esqueça de me recompensar hein!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.