Programalama > ASP

Etiketler: xmlhttp, ile, tek, ilin, hava

Ort. 0
Puan ver:
<%  
'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> 



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.