ASP Veri Alma Poolsoft Havadurumu Scripti

Hoşgeldiniz giriş yapmak için tıklayın veya ücretsiz üye olun.

BANA ÖZEL

KOD EKLE

ASP> Veri Alma>

Poolsoft Havadurumu Scripti

Id No : 100

Detaylar

Ekleyen : efkan

Üyelik : 30.09.2006

Son Giriş : 25.08.2010

Kullanıcı Profili | Üyenin Diğer Kayıtları | Üyeye Mesaj Gönder

Tavsiye Et

Hata Bildir

Spurl'e kaydet! http://reddit.com/submit?url=%url%&title=%title%

İçerik Hakkında

XMLHTTP aracılığıyla istediğiniz illerin hava durumunu almanızı sağlayan en iyi örnek uygulama.

İçerik Kodu

<%

dim  strText,strOrjinalString, strPattern, strReplacement
dim  strlink, stremail
dim  objVeriAl, kaynakURL, strAdres, strveri
dim  iller
dim  s, x
dim  strdizi

iller = ("K.MARAS,istanbul,ankara")

Function img_yap(strText)
strText = trim(strText)
Select Case strText
 case "Acik"
 img_yap = "<img src=""hava/img/032.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "AzBulutlu"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "Puslu"
 img_yap = "<img src=""hava/img/021.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "Acik2"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>" 
 case "Acik3"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "Acik4"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "Acik5"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "Acik6"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case "Acik7"
 img_yap = "<img src=""hava/img/034.gif""width=""35"" height=""21"" alt='"&strText&"'>"
 case else 
 img_yap = "<img src=""hava/img/044.gif""width=""35"" height=""21"" alt='"&strText&"'>" 
end select 
 
End Function

' <Function lar />
 
Public Function VeriAl(strGelen)
On Error Resume Next
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
if Err <> 0 then
Response.Write "  <img src='ico/dikkat.gif'> Bir hata oluştu: "& Err.Description
Response.Write " "
Response.Write "<img src=""images/line-1.gif"" style=""margin-top:2px;margin-bottom:5px"" width=""169"" height=""1""> "
end if
SET objVeriAl = Nothing
End Function

iller =  Split(iller,",")

For  x=0 To  Ubound(iller)
strAdres ="http://www.meteor.gov.tr/wap/simdi/" & iller(x) & ".wml"

strVeri = VeriAL(strAdres)
strVeri = Replace(strVeri,"<wml>","" )
strVeri = Replace(strVeri,"</wml>","" )
strVeri = Replace(strVeri,"</card>","" )
strVeri = Replace(strVeri,"<card id=""meteor"" title=""MeteorWap"">","" )

strVeri = Replace(strVeri,"<do type=""prev"" label=""geri""><prev/></do>","" )
strVeri = Replace(strVeri,"<a href=""../index.wml"">AnaSayfa</a>","" )

strVeri = Replace(strVeri,"","" )
strVeri = Replace(strVeri,"","" )
strVeri = Replace(strVeri,"","" )
strVeri = Replace(strVeri,chr(13),"" )
strVeri = Replace(strVeri,chr(10),"" )
strVeri = Replace(strVeri,"","|" )

strDizi =  Split(strVeri,"|")

strDizi(3)=  Replace(strDizi(3),"C","°C" )

'<Dizi İçerik Açıklamaları>
'0 il adı

'2 tarih
'3 sıcaklık
'4 durum
'5 nem
'6 rüzgar
'7 basınc

'8 bugünün tahmin
'9 tarih
'10 durum
'11 En düşük sıcaklık
'12 En yüksek sıcaklık

'13 Bir Sonraki Günün Tahmini
'14 Durum
'15 Min Sıcaklık
'16 max sıcaklık

'17 İki Sonraki Günün Tahmini
'18 Durum
'19 Min Sıcaklık
'20 Max Sıcaklık
'<Dizi İçerik Açıklamaları />

response.write "<img src=""images/b-1.gif"" style=""margin-left:3px;margin-right:2px"" width=""7"" height=""6"">  " & strDizi(0) & ""
response.write " (" & strDizi(3) & ") " & img_yap(strDizi(4)) & " "
response.write "<div style=""margin-left:15px;margin-right:2px"">  " 
response.write "[" & strDizi(4) & "]</div><hr>"
'response.write "<hr>"

next
%> 
Diğer İller
<HR> 
Script provided by <A HREF=http://www.poolsoft.net>Poolsoft.NET</a>

İncelenme sayısı : 1360 Eklenme Tarihi : 29.10.2006 18:31:54

Ana Sayfam yap

Sık Kullanılanlara Ekle

Üyelik

İletişim

Web sayfamızda yayımlanan içerik ve linklerden oluşabilecek sorunlardan Kod Merkezi sorumlu tutulamaz. 0,16