[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
Current Stream Information |
", "")
veri = Replace(veri, "
", "")
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
%