ÇIKTI

Fahir Atakoglu


İZ


ÇIKTI

Tarkan


METAMORFOZ/REMİXES


ÇIKTI

Ebru Aydın


MÜSAADENİZLE


ÇIKTI

Ajda Pekkan


AYNEN ÖYLE


ÇIKTI

Deniz Seki


SAHİCİ



   
 
  calan parca bilgisi3
 
[ASP] XMLHTTP ile ShoutCast Radyo Bilgileri Yayınlama « : 20 Şubat 2008, 13:00:19 » -------------------------------------------------------------------------------- php- kodu <% Function fonkVeriCek(strVeri, strBaslamaEtiket, strBitisEtiket) dim intBaslama intBaslama = InStr(1, strVeri, strBaslamaEtiket, vbTextCompare) if intBaslama then intBaslama = intBaslama + Len(strBaslamaEtiket) intBitis = InStr(intBaslama + 1, strVeri, strBitisEtiket, vbTextCompare) fonkVeriCek = CStr(Mid(strVeri, intBaslama, intBitis - intBaslama)) else fonkVeriCek = " " end if End Function function fonkXmlHttp(strUrl) dim objXmlHttp set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") objXmlHttp.Open "GET", strUrl, false objXmlHttp.SetRequestHeader "Pragma", "no-cache" objXmlHttp.SetRequestHeader "Cache-control", "no-cache" on error Resume next objXmlHttp.Send if Err.Number<>0 then fonkXmlHttp = "" exit function end If on error Goto 0 if (objXmlHttp.Status = 200) then fonkXmlHttp = objXmlHttp.ResponseText fonkXmlHttp = fonkStream(objXmlHttp.ResponseBody,"iso-8859-9") else fonkXmlHttp = "Hata : " & objXmlHttp.StatusText end if end function function fonkStream(Veri,KarakterSet) dim objStream set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 objStream.Mode = 3 objStream.Open objStream.Write Veri objStream.Position = 0 objStream.Type = 2 objStream.Charset = KarakterSet fonkStream = objStream.ReadText objStream.Close set objStream = Nothing end function veri = fonkXmlHttp("http://radyo5.alyasoft.net:8782/") veri = Replace(veri, "%", "x") veri = Replace(veri, "SHOUTcast Administrator
U SHOUTcast D.N.A.S. Status
SHOUTcast Server Version 1.9.7/Linux[/url]
Status[/url] | Song History[/url] | Listen[/url] | Stream URL[/url] | Admin Login[/url]
Current Stream Information
", "") veri = Replace(veri, "
Written by Stephen 'Tag Loomis, Tom Pepper and Justin Frankel
Copyright Nullsoft Inc[/url].[/url] 1998-2004
", "") veri = Replace(veri, "Server is currently up and public.", "Radyo su an yayinda!") veri = Replace(veri, "Stream is up at", "Yayin kalitesi") veri = Replace(veri, "with", " Toplam dinleyici") veri = Replace(veri, "of", " Toplam kapasite") veri = Replace(veri, "listeners", "dinleyici.") veri = Replace(veri, " unique", "") veri = Replace(veri, "Server Status", "Radyo durumu") veri = Replace(veri, "Stream Status", "Yayin durumu") veri = Replace(veri, "Listener Peak", "Dinleyici") veri = Replace(veri, "Average Listen Time", "Dinlenme süresi") veri = Replace(veri, "Stream Title", "Yayin adi") veri = Replace(veri, "Content Type", "Icerik") veri = Replace(veri, "Stream Genre", "Tür") veri = Replace(veri, "Stream URL", "Adres") veri = Replace(veri, "Stream ICQ", "ICQ") veri = Replace(veri, "Stream AIM", "AIM") veri = Replace(veri, "Stream IRC", "IRC") veri = Replace(veri, "Current Song", "Calan Sarki") veri = Replace(veri, "align=center", "align=left") response.write veri %
 
   
 
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=




Anasayfam Yap- Sık Kullanılanlara Ekle-E-Mail yolla-İletişim sayfası