I have been reading this section and saw someone was asking about a random player. Below is the code for 2 pages i use on my private intranet and also have a link from my homepage so I can listen at work.
First I am by no means a programmer. A friend and I have been working on this on our lunch hours and have used public code we found on the internet and made some modifications.
I am sure there are much better ways to do this but this is working for me.
This random player will allow you to play a random file from a database. I have also included a song select page where you can search your mp3 files and list by artist and title.
I am working on adding a couple of features, first a play list that you build from the song select page and will be adding a random play by genre when I get all my mp3s tagged correctly.
Enjoy.....
Copy and paste this code into a webpage and name it wmp1.asp
<%@ LANGUAGE="VBScript" %>
<%response.buffer=true%>
<%
'*******************************************************************************************
' create a database titled readdrives.mdb and a table titled list2
' Access database format:
' vfile = actual path to song (e.g. http://www.domain.com/virtual drive/folder/song title.mp3)
' counter = number each song in the database (e.g. 1,2,3,... etc.)
' artist = artist title (e.g. grateful_dead)
' title = song title without extension (e.g.truckin')
' title1 = song title with extension (e.g. truckin'.mp3)
' my songs are formated artist-song_title.mp3
' my mp3s are one a windows 2000 Pro box and my webserver is on a windows 2000 server box
' this is why I show the virtual path in the example
' modify to meet your needs
' This is the button I have on my homepage to start the player
' <form>
' <input type="button"
' value="JeMP3Player"
' onclick="openwindow3()">
' </form>
' This is the javascript I call up with the button
' <script type="text/javascript">
' function openwindow3()
' {
' window.open('http://www.yourdomain.net/wmp1.asp','JeMP3Player','toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=350, height=175')
'}
'</script>
'*******************************************************************************************
Function ChkString(string)
if string = "" then string = " "
string = Replace(string, chr(34), """")
string = trim(Replace(string, "'", "''"))
ChkString = string
End Function
vf1 = request.querystring("song")
va1 = request.querystring("artist")
RANDOMIZE
SET MY_CONN= SERVER.CREATEOBJECT("ADODB.Connection")
MYDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
MYDSN=MYDSN & "DBQ=" & "h:\mp3\mp3_uploads\readdrives.mdb" '<------be sure to change this
MY_CONN.OPEN MYDSN
SET RECORDSET = SERVER.CREATEOBJECT("ADODB.Recordset")
if request.querystring("song") <> "" then
vf1 = ChkString(request.querystring("song"))
SQL = "SELECT * FROM list2 where vfile = '" & vf1 & "'"
relode_flg = "false"
elseif request.querystring("artist") <> "" then
va1 = ChkString(request.querystring("artist"))
SQL = "SELECT * FROM list2 where artist = '" & va1 & "'"
relode_flg = "true"
else
relode_flg = "true"
SQL = "SELECT * FROM list2"
end if
RECORDSET.OPEN SQL, MY_CONN, 3,1
INTTOTALRECORDS = RECORDSET.RECORDCOUNT
if INTTOTALRECORDS > 1 then
RANDNO = INT(RND*INTTOTALRECORDS)
RECORDSET.MOVEFIRST
RECORDSET.MOVE RANDNO
end if
RandomLineItem = TRIM(RECORDSET("vfile"))
artist = trim(recordset("artist"))
title = trim(recordset("title"))
RECORDSET.CLOSE
SET RECORDSET = NOTHING
MY_CONN.CLOSE
SET MY_CONN = NOTHING
Song2Play = RandomLineItem
songname = artist & " - " & title
%>
<html>
<head>
<title>JeMP3Player</title>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<script language="JavaScript">
//Song title scroller
var behavior = "scroll" // can be alternate or slide
var direction = "left" // can be right, left , up or down
var ScrollDelay = 500; // speed of scroller
function scrollMe(text,width,height)
{
document.write('<div style="border: thin inset rgb(225,225,225); font: 11px arial bold; width: '+width+'px; height: '+height+'px; background: #000000; color: #ffff99;" ><marquee behavior='+behavior+' direction='+direction+' scrolldelay='+ScrollDelay+'>'+text+'</marquee></div>');
}
</script>
<script language="JavaScript">
var state;
//URL of song - Direct path
function playerinit()
{
player.url="<% = Song2Play %>";
player.settings.autoStart = true ;
}
// start the section if you want to use your own buttons
//Play Function
function play()
{
if (player.controls.isavailable('play'))
{
player.controls.play();
state=setInterval("updatetime()",1000);
playerinfo.innerHTML = "Play";
}
}
//Pause Function
function pause()
{
if (player.controls.isavailable('pause'))
{
player.controls.pause();
clearInterval(state);
playerinfo.innerHTML = "Paused";
}
}
//Stop Function
function stop()
{
if (player.controls.isavailable('stop'))
{
player.controls.stop();
clearInterval(state);
playerinfo.innerHTML = "Stopped";
}
}
//Step Function
function step()
{
if (player.controls.isavailable( 'step' ))
player.controls.step( 1 );
}
//Volume down function
function voldown()
{
if ( player.settings.volume < 5 )
{
player.settings.volume = 0;
playerinfo.innerHTML = "0";
}
else
{
player.settings.volume -= 20;
playerinfo.innerHTML = "Volume " + player.settings.volume +"%";
}
}
//Volume up function
function volup()
{
if ( player.settings.volume > 90 )
{
player.settings.volume = 10;
playerinfo.innerHTML = "Volume 50%";
}
else
{
player.settings.volume += 20;
playerinfo.innerHTML = "Volume " + player.settings.volume +"%";
}
}
//Mute Function
function mute()
{
player.settings.mute = !player.settings.mute;
playerinfo.innerHTML = "Mute";
}
//Fast Forward function (NOT USED - FIX)
function fastforward()
{
player.settings.rate = 2.0;
playerinfo.innerHTML = "Fastforwording";
}
//Rewind function (NOT USED - FIX)
function rewind()
{
player.settings.rate = -0.0;
playerinfo.innerHTML = "Rewinding";
}
//Balance Function
function balance()
{
switch (player.settings.balance)
{
case 0:
player.settings.balance = 100;
playerinfo.innerHTML = 'Balance: Right';
break;
case 100:
player.settings.balance = -100;
playerinfo.innerHTML = 'Balance: Left';
break;
case -100:
player.settings.balance = 0;
playerinfo.innerHTML = 'Balance: Center';
break;
default :
player.settings.balance = 0;
playerinfo.innerHTML = '???';
break;
}
}
//Time Function
function updatetime()
{
playerinfo.innerHTML = " <font color='#3A445C' size='1' face=verdana> " + player.controls.currentPositionString + " | " + player.currentMedia.durationString +" <font color='#3A445C' size='1' face=verdana>" + player.status + "</font>";
}
// end the use your own button section
</script>
</head>
<body bgcolor="#9BA4BF" text="#555555" link="#555555" alink="#555555" vlink="#555555"onload="playerinit();">
<!-- START PLAYER -->
<table width='100%' cellpadding=5 cellspacing=0 style='border: 0px solid #566494' >
<td>
<div align='center'>
<!-- Default Player Settings -->
<div id="layer1" style="position:absolute; left:0; width:0; height:0; top:0; visibility:visible;">
<table>
<tr>
<td>
</td>
</tr>
</table>
</div>
<!-- END Default Player Settings -->
<%
' my file format is artist-song_title.mp3
songname = replace(songname,"_"," ")
%>
<!-- Title Scroller -->
<div id="layer1" style="position:absolute; left:25; width:150; height:10; top:10; visibility:visible;">
<table background='musicplayer_bg.gif' style="FILTER: alpha(opacity=90);" bgcolor='#9BA4BF' align='center' width='308' cellpadding=3 cellspacing=0 style='border: 1px solid #566494' >
<td>
<script>scrollMe("<%= SONGNAME %>",300,15);</script>
<!--<MARQUEE BEHAVIOR="slide" DIRECTION="left" SCROLLDELAY="1000" ALIGN="middle" WIDTH="100%"><font color='#0000C0' size='1' face=verdana><b><% = songname %></b></font></MARQUEE>-->
<br>
<br>
</td>
</table>
</div>
<!-- END Title Scroller -->
<!-- Player info & statistics -->
<div id="layer1" style="position:absolute; left:25; width:225; height:10; top:54; visibility:visible;">
<table bgcolor='#919BB9' style="FILTER: alpha(opacity=100);" bgcolor='#9BA4BF' align='center' width='308' cellpadding=3 cellspacing=0 style='border: 1px solid #566494' >
<td>
<font color='#3A445C' size='2' face=verdana><b> <span id="playerinfo"></span></b></font>
</td>
</table>
</div>
<!-- END Player info & statistics -->
<!-- Player Controls -->
<div id="layer4" style="position:absolute; left:25; width:300; height:10; top:73; visibility:visible;">
<table style="FILTER: alpha(opacity=100);" bgcolor='#8A95B5' width='300' cellpadding=3 cellspacing=0 style='border: 1px solid #566494' >
<!-- bgcolor='#8A95B5' bgcolor='#9BA4BF' -->
<td align=center>
<object id="player" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" type="application/x-oleobject" width="300" height="42">
<param name="autoStart" value="true">
<param name="balance" value="0">
<param name="currentPosition" value="0">
<param name="currentMarker" value="0">
<param name="enableContextMenu" value="false">
<param name="enableErrorDialogs" value="false">
<param name="enabled" value="true">
<param name="fullScreen" value="false">
<param name="invokeURLs" value="false">
<param name="mute" value="false">
<param name="playCount" value="1">
<param name="rate" value="1">
<param name="uiMode" value="full">
<param name="volume" value="50">
<embed autostart="true" loop="false" width="200" height="30" controller="true" bgcolor="#FF9900" name="player"></embed></object>
<!-- if you want to use your own buttons instead of the Windows Media Player controls
you'll need to add your own buttons and possibly css file
<input TYPE="image" src="volmax_button.gif" class="" onmouseover=""; onmouseout=""; value="" name="" onclick="location.reload(true);">
<input TYPE="image" src="play_button.gif" class="but21" onmouseover=this.className="but22"; onmouseout=this.className="but21"; value="Play " name="play" onclick="play();">
<input TYPE="image" src="stop_button.gif" class="but41" onmouseover=this.className="but42"; onmouseout=this.className="but41"; value="Stop" name="stop" onclick="stop();">
<input TYPE="image" src="pause_button.gif" class="but31" onmouseover=this.className="but32"; onmouseout=this.className="but31"; value="Pause" name="pause" onclick="pause();">
<input TYPE="image" src="mute_button.gif" class="but61" onmouseover=this.className="but62"; onmouseout=this.className="but61"; value="Mute" name="mute" onclick="mute();">
<input TYPE="image" src="bal_button.gif" class="but61" onmouseover=this.className="but62"; onmouseout=this.className="but61"; value="Balance" name="balance" onclick="balance();"> -->
<TABLE bgcolor='#8A95B5' align='center' width='100%'>
<TR>
<!-- You'll need to add small button gifs mine are
.gif files 12 pix wide by 10 pix height
-->
<FORM action=wmp1.asp>
<TD bgcolor='#8A95B5' align=center><INPUT TYPE=IMAGE SRC="small_button.gif"></TD>
</FORM>
<TD bgcolor='#8A95B5' align=center><A href=# onclick="location.reload(true);"><IMG src="small_button.gif" border="0"></A></TD>
<TD bgcolor='#8A95B5' align=center><A href=songselect.asp target="_new" onClick="javascript:window.close();"><IMG src="small_button.gif" border="0"></A></TD>
<TD bgcolor='#8A95B5' align=center><A href=# onClick="javascript:window.close();"><IMG src="small_button.gif" border="0"></a></TD>
</TR><TR>
<TD bgcolor='#8A95B5' align=center><font color='#3A445C' size='1' face=verdana>Random<BR>Play</TD>
<TD bgcolor='#8A95B5' align=center><font color='#3A445C' size='1' face=verdana>Skip<BR>Song</TD>
<TD bgcolor='#8A95B5' align=center><font color='#3A445C' size='1' face=verdana>Select<BR>Song</TD>
<TD bgcolor='#8A95B5' align=center><font color='#3A445C' size='1' face=verdana>Close<BR>Player</TD>
</TR>
</TABLE>
<!--
more buttons for the volume if you want to use your own
</td>
<td width='52' bgcolor='#8A95B5' align=center>
<input TYPE="image" src="volmax_button.gif" class="" onmouseover=""; onmouseout=""; value="" name="" onclick="location.reload(true);">
<input TYPE="image" src="volmax_button.gif" class="but61" onmouseover=this.className="but62"; onmouseout=this.className="but61"; value="+" name="volup" onclick="volup();"><BR>
<input TYPE="image" src="volmin_button.gif" class="but61" onmouseover=this.className="but62"; onmouseout=this.className="but61"; value="-" name="voldown" onclick="voldown();">
<form action="wmp1.asp">
<button type="submit">Rand</button>
-->
</td>
</table>
</div>
<!-- END Player Controls -->
<!-- Player New State -->
<script language = "JavaScript" for = player event = playstatechange(newstate)>
switch (newstate){
case 1:
playerinfo.innerHTML = "<font color='#3A445C' size='1' face=verdana>Loading..</font>";
break;
case 2:
playerinfo.innerHTML = "<font color='#3A445C' size='1' face=verdana>Loading...</font>";
break;
case 3:
playerinfo.innerHTML = "<font color='#3A445C' size='1' face=verdana>Loading....</font>";
{
player.controls.play();
state=setInterval("updatetime()",1000);
playerinfo.innerHTML = "<font color='#3A445C' size='1' face=verdana>Play</font>";
}
break;
case 10:
playerinfo.innerHTML = "<font color='#3A445C' size='2' face=verdana>Press play button to load song</font>";
case 8:
<% if relode_flg = "true" then%>
location.reload(true);
<% end if %>
break;
}
</script>
<!-- END Player New State -->
</body>
Be sure to read each file and make the necessary changes.
I have to post the songselect.asp webpage as a separate reply because of the length limits
Stewball