script weather.com

[elton]

esiste un script ptonto per il servizio xoap di weather.com?

grazie

[[trodat]]

Dicci di cosa parli.

[elton]

weather.com ti permete di usare i suoi dati sul tuo sito, ho visto un script, ma è a pagamento

http://www.joshcook.net/weather/

una cosa come questa, ma non a pagamento

[byluciani]

se ti iscrivi a weather.com (gratuitamente) puoi scaricarti le istruzioni per interpretare i feed xml contenenti le informazioni meteo

[byluciani]

dato che la discussione mi ha intrigato ti propongo qualche riga di codice su cui sviluppare qualcosina di più concreto
è naturale che per usufruire delle informazioni di weather.com devi iscriverti per ottenere codice e chiave di iscrizione

<%
Function GetWeather(sPartnerID, sLicenseKey, sLocationID)

  sURL = "http://xoap.weather.com/weather/local/" & sLocationID & "?cc=*&prod=xoap&par=" & sPartnerID & "&key=" & sLicenseKey & "&unit=m"
		
  Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objXMLHTTP.Open "GET", sURL, False
  objXMLHTTP.Send
  sData = objXMLHTTP.ResponseText
  Set objXMLHTTP = Nothing
	
  GetWeather = CStr(sData)

End Function

PartnerID = ""                  'proprio codice di iscrizione a weather.com
LicenseKey = ""                 'propria chiave di licenza
LocationID = "ITXX0003"         'previsione per bari

xmlWeatherInfo = GetWeather(PartnerID, LicenseKey, LocationID)

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.LoadXML(xmlWeatherInfo)

Set xmlNode = objXML.documentElement.selectSingleNode("head/ut")
sUnitTemperature = "°" & xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/ud")
sUnitDistance = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/us")
sUnitSpeed = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/ur")
sUnitPrecipitation = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("head/up")
sUnitPressure = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/dnam")
sLocation = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/tm")
sRetrievedTime = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/lat")
sLatitude = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/lon")
sLongitude = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/sunr")
sSunrise = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/suns")
sSunset = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("loc/zone")
sTimezone = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/bar/r")
sBarometer = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/bar/d")
sBarometerDirection = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/dewp")
sDewPoint = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/flik")
sFeelsLike = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/t")
sForecast = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/hmid")
sHumidity = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/icon")
sImageID = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/lsup")
sLastUpdated = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/moon/icon")
sMoonImageID = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/moon/t")
sMoonText = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/obst")
sObservationStation = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/tmp")
sTemperature = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/vis")
sVisibility = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/s")
sWindSpeed = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/t")
sWindDirection = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/gust")
sWindGust = xmlNode.Text
Set xmlNode = objXML.documentElement.selectSingleNode("cc/wind/d")
sWindCompass = xmlNode.Text

Response.Write "
"
Response.Write "Informazioni meteo a cura di weather.com&reg
"

Response.Write "
"

Response.Write "Unità di misura
"
Response.Write "Temperatura: " & sUnitTemperature & "
"
Response.Write "Distanza: " & sUnitDistance & "
"
Response.Write "Velocità: " & sUnitSpeed & "
"
Response.Write "Precipitazione: " & sUnitPrecipitation & "
"
Response.Write "Pressione: " & sUnitPressure & "
"

Response.Write "
"

Response.Write "Località
"
Response.Write "Nome: " & sLocation & "
"
Response.Write "Orario: " & sRetrievedTime & "
"
Response.Write "Latitudine: " & sLatitude & "
"
Response.Write "Longitudine: " & sLongitude & "
"
Response.Write "Ora alba: " & sSunrise & "
"
Response.Write "Ora tramonto: " & sSunset & "
"
Response.Write "Zona: " & sTimezone & "
"

Response.Write "
"

Response.Write "Condizioni correnti
"
Response.Write "Stazione di osservazione: " & sObservationStation & "
"
Response.Write "Ultima osservazione: " & sLastUpdated & "
"
Response.Write "Previsione: " & sForecast & "
"
Response.Write "Previsione, #immagine: " & sImageId & " (" & sImageId & ".gif)
"
Response.Write "Temperatura: " & sTemperature & sUnitTemperature & "
"
Response.Write "Sensazione: " & sFeelsLike & sUnitTemperature & "
"
Response.Write "Umidità: " & sHumidity & "%
"
Response.Write "Pressione: " & sBarometer & sUnitPressure & "
"
Response.Write "Direzione barometro: " & sBarometerDirection & "
"
Response.Write "Vento, velocità: " & sWindSpeed & " " & sUnitSpeed & "
"
Response.Write "Vento, direzione: " & sWindCompass & " "  & sWindDirection & "
"
Response.Write "Vento, max raffiche: " & sWindGust & " " & sUnitSpeed & "
"
Response.Write "Visibilità: " & sVisibility & " " & sUnitDistance & "
"
Response.Write "Luna: " & sMoonText & "
"
Response.Write "Luna, #immagine: " & sMoonImageID & " (" & sMoonImageId & ".gif)
"

Set objXML = Nothing
%>