Web And Application Developer & Oracle DBA
asp veri çekme olarak etiketli yazılar
Namaz Vakitleri Çekme
25 Ağu
Merhaba ARkadaşlar şuanda yapmakta olduğum bir firma rehberinde lazım olmuştu.
hemen paylaşayım dedim.
çalışan halini görmek için www.adapazarinet.com
Kodu:
PHP- Kodu:
<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP")
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function
strAdres = "http://www.vakitci.com/vakit.php?id=46"
strVeri = VeriAL(strAdres)
imsak=InStr(strVeri,"İmsak</td>" )
strImsak=Mid(strVeri,imsak+60,4)
gunes=InStr(strVeri,"Güneş</td>" )
strGunes=Mid(strVeri,gunes+61,4)
ogle=InStr(strVeri,"Öğle</td>" )
strOgle=Mid(strVeri,ogle+60,4)
ikindi=InStr(strVeri,"İkindi</td>" )
strikindi=Mid(strVeri,ikindi+61,5)
aksam=InStr(strVeri,"Akşam</td>" )
straksam=Mid(strVeri,aksam+60,5)
yatsi=InStr(strVeri,"value=""ezan.mp3""" )
stryatsi=Mid(strVeri,yatsi+92,5)
%>
İmsak: <%= strImsak %><br>
Güneş: <%= strGunes %><br>
Öğle : <%= strOgle %><br>
İkindi : <%= strikindi %><br>
Akşam : <%= straksam %><br>
Yatsı: <%= stryatsi %><br>
Kolay gelsin ..
56 views
Güncel Döviz Kurları
25 Ağu
Merhaba arkadaşlar
aşağıdaki örneğimizle
Dolar ve Euro dövizlerini sitemizde dinamik olarak gösterebiliriz…
PHP- Kodu:
<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function
strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+39,10)
strDolarSatis=Mid(strVeri,iDolar+52,10)
iEuro=InStr(strVeri,"EUR" )
strEuroAlis=Mid(strVeri,iEuro+39,11)
strEuroSatis=Mid(strVeri,iEuro+52,11)
%>
Dolar Alış için; <%= strDolarAlis %>
Dolar Satış için; <%= strDolarSatis %>
EuroAlış için; <%= strEuroAlis %>
Euro Satış için; <%= strEuroSatis %>
kullanabilirsiniz…
kolay gelsin.
120 views
