Programalama > ASP

ASP / Xmlhttp Ile Tek Ilin Hava Bilgisi......

Ben Örnek Olarak Aksaray Aldim Kafaniza Göre Degistirin.....

Etiketler: xmlhttp, ile, tek, ilin, hava

Ort. 0

Puan ver:

hazirkod 19 July 19:32 0

0 kişiden 0 puan aldı

6326

<%  
'XMLHTTP Open   
private Function GETHTTP(adres)  
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )  
    StrHTTP.Open "GET" , adres, false  
    StrHTTP.sEnd  
    GETHTTP = StrHTTP.Responsetext  
Set StrHTTP = Nothing 
End Function 
'XMLHTTP Close   
URL = "http://meteo.tr.net/cgi-bin/wfa.pl?Aksaray+ "  
 
bilgicek = GETHTTP(URL)  
 
 
a=InStr(1,bilgicek,"Pztesi" )  
 
Ptesi=Mid(bilgicek,a+10,79)  
ptesi=Replace(ptesi,"/images/" , "http://meteo.tr.net/images/" ) 
 
c=InStr(1,bilgicek,"Sali" )  
 
SalI=Mid(bilgicek,a+10,79)  
SalI=Replace(SalI,"/images/" , "http://meteo.tr.net/images/" ) 
 
c=InStr(1,bilgicek,"Çrs" )  
 
crs=Mid(bilgicek,a+10,79)  
crs=Replace(crs,"/images/" , "http://meteo.tr.net/images/" ) 
%> 
<div align="center"><center> 
 
<table border="0"> 
    <tr> 
        <td colspan="3"><p align="center"><font size="1"
        face="Verdana"><strong>Aksaray</strong></font></p> 
        </td> 
    </tr> 
    <tr> 
        <td><p align="center"><font size="1" face="Verdana"><strong>Ptesi<br><%=Ptesi %> 
        </strong></font></p> 
        </td> 
        <td><p align="center"><font size="1" face="Verdana"><strong>Sali<br><%=SalI %> 
        </strong></font></p> 
        </td> 
        <td><p align="center"><font size="1" face="Verdana"><strong>Çrs<br><%=crs %> 
        </strong></font></p> 
        </td> 
    </tr> 
</table> 
</center></div> 