Hallootjess,
Is het mogelijk om de status van u zender te laten zien op de site.
Bijvoorbeeld: NU ONLINE of NU AUTO-DJ of NU OFF-AIR!
Heeft iemand enig iedee??
Het is voor www.goldfm-nederland.nl [smilie=dance4.gif] [smilie=dance4.gif]
Gr, Jorn Bijen;....;
Online status laten zien..
-
goldfm
Re: Online status laten zien..
Ga het proberen Thxx!pergo schreef:hoi,
ik heb deze link gevonden
http://forums.winamp.com/showthread.php ... did=162031
grt,
Pergo
-
goldfm
Re: Online status laten zien..
Code: Selecteer alles
'USER DEFINED VARIABLES (CHANGE THESE)
ServerDomain = "**.**.***.**" 'DOMAIN
ServerPass = "******" 'PASSWORD
ServerPort = "8000" 'PORT
'MAKE SERVERURL
ServerURL = "http://"& ServerDomain &":"& ServerPort &"/admin.cgi?pass="& ServerPass &"&mode=viewxml"
'INITIATE XMLDOM ENGINE
Set objXMLDOM = Server.Createobject("Microsoft.XMLDOM")
objXMLDOM.async = false
objXMLDOM.setProperty "ServerHTTPRequest", true
objXMLDOM.Load ServerURL
'CREATE COLLECTIONS AND STUFF
ServerStatus = objXMLDOM.SelectSingleNode("//STREAMSTATUS").text
StationName = objXMLDOM.SelectSingleNode("//SERVERTITLE").text
BitRate = objXMLDOM.SelectSingleNode("//BITRATE").text
ServerVersion = objXMLDOM.SelectSingleNode("//VERSION").text
MediaType = objXMLDOM.SelectSingleNode("//CONTENT").text
CurrentSong = objXMLDOM.SelectSingleNode("//SONGTITLE").text
Set UserList = objXMLDOM.SelectNodes("//LISTENER")
%>
<html>
<head>
<title><%=StationName%></title>
<style>
body, td {
font-family: Trebuchet MS, Tahoma, Verdana;
font-size: 10px;
color: #000000;
}
.bigheader {
font-size: 19px;
}
.songtitle {
font-size: 13px;
}
.tables {
border-width: 1px;
border-style: solid;
border-color: #000000;
background: #EEEEEE;
}
</style>
</head>
<body>
<table align="center" width="700" cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="center" colspan="2">
<font class="bigheader"><%=StationName%></font><br>
<% If ServerStatus = 0 Then %>
Server is currently down
</td>
<% Else %>
Shoutcast v<%=ServerVersion%> streaming <%=MediaType%> at <%=BitRate%> kbps
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2" align="center">
Current song
<table width="65%" class="tables">
<tr>
<td align="center">
<font class="songtitle"><%=CurrentSong%></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr> </table>
</td>
<td width="50%" align="center" valign="top">
<table cellpadding="2" cellspacing="0" border="0" class="tables" width="98%" align="right">
<% For Each User In UserList %>
<tr>
</tr>
<% Next %>
</table>
</td>
<% End If %>
</tr>
</table>
</body>
</html>
<%
'CLEAN UP
Set objXMLDOM = NOTHING
Set UserList = NOTHING
%>-
- Vergelijkbare Onderwerpen
- Reacties
- Weergaves
- Laatste bericht