ジュークBOX

下のタグをコピぺしてお使いください
修正するとことろは、曲の名前のところ（第一曲目）
Case 9
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
のURLのところです。
曲の数増やす時は
<OPTION>第十曲目</OPTION>
の追加
Case10
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
の追加してください。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META content=ScoobyWizard name=ORGINALGENERATOR>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<STYLE>

</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<META http-equiv="Content-Style-Type" content="text/css">
</HEAD>
<BODY bgColor=#808000 background=cid:006001c4ab74$8ce35040$cf3d1dac@AFIA>
<DIV> </DIV>
<DIV><B>ジュークBOX</B></DIV>
<DIV><BR></DIV>
<DIV> </DIV>
<CENTER>
<TABLE cellSpacing=4 cellPadding=9 width=800 border=0>
  <TBODY>
  <TR>
      <TD valign="center" width="25%" bgcolor="#00ff00" rowspan="2" TD>
      <P align=center><A 
      href="写真にどこかリンクする場所のURL"><IMG height=81 
      src="ここに写真のURLを入れる" width=88 border=3></A> 
    </P></TD>
      <TD valign="center" width="125%" bgcolor="#000000" TD>
      <OBJECT id=MEDPLAYER1 
      codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 
      type=application/x-oleobject height=30 
      standby="Loading Microsoft  Windows  Media Player components..." width=276 
      classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95></OBJECT></TD>
    </TR>
  <TR>
    <TD vAlign=top width="55%" bgColor=#cf2263><SELECT 
      style="WIDTH: 296px; HEIGHT: 118px; BACKGROUND-COLOR: #ffff00" size=8 
      name=SONGLIST> <OPTION>第零曲目</OPTION>
        <OPTION>第一曲目</OPTION>
        <OPTION>第二曲目</OPTION>
        <OPTION>第三曲目</OPTION>
        <OPTION>第四曲目</OPTION>
        <OPTION>第五曲目</OPTION>
        <OPTION>第六曲目</OPTION>
        <OPTION>第七曲目</OPTION>
        <OPTION>第八曲目</OPTION>
        <OPTION>第九曲目</OPTION>
      </SELECT>
      <DIV> </DIV>
      <INPUT type=button value="ボックス内の曲を選曲反転したらここを押してねください" name=tstbuttonSELECT><SCRIPT language=VBScript>
SUB tstbuttonSELECT_onClick()
Select Case Songlist.selectedIndex
Case 0
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
case 1
MEDPLAYER1.FILENAME = "URL"//ここに選んだ曲のURLを入れるパソコン内のURLではだめです　ホームページなどにおいたものですよ
MEDPLAYER1.AutoStart = "-1"
case 2
MEDPLAYER1.FILENAME = "URL"

MEDPLAYER1.AutoStart = "-1"
Case 3
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
Case 4
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
Case 5
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
Case 6
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
Case 7
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
Case 8
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
Case 9
MEDPLAYER1.FILENAME = "URL"
MEDPLAYER1.AutoStart = "-1"
end select
end sub
 </SCRIPT>
        </TD></TR></TBODY></TABLE></CENTER>
</BODY></HTML>