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