<!--#include file="function.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="path.asp"-->
<!--#include file="stAR.INC"-->

 
<%
id=request.QueryString("id")
If id="" Then
	Response.Write ("<SCRIPT language=JavaScript>alert('错误!\n\n您至少需要选择一首歌曲');javascript:window.close();</SCRIPT>")
	Response.end
End If
set rs=server.createobject("adodb.recordset")
sql="select Musicname,Wma,Singer,hits,song_path,SpecialID,SongWords,Musictype from [ylmv_MusicList] where id ="&id
	rs.open sql,conn,1,1
	If not rs.eof Then
		MusicName=rs("MusicName")
		songpath=rs("song_path")
		SongWords=rs("SongWords")
		hits=rs("hits")
		singer=rs("singer")
		SpecialID=rs("SpecialID")
		Musictype=rs("Musictype")
		If songpath="" or IsNull(songpath) Then
			songpath=1
		End If
		Select Case songpath
			Case 1
				song_path=song_path1
			Case 2
				song_path=song_path2
			Case 3
				song_path=song_path3
			Case 4
				song_path=song_path4
			Case 5
				song_path=song_path5
			Case 6
				song_path=song_path6
			Case 7
				song_path=song_path7
			Case 8
				song_path=song_path8
			Case 9
				song_path=song_path9
			Case 10
				song_path=song_path10
			Case else
				song_path=song_path1
		End Select
		song_path=song_path&rs("Wma")

%>
<% if rs("Musictype")="1" then%>
<body bgcolor=eaeaea>
<table width="100%" border="0" align="center">
<tr> <td align=center>
  <input type='text' name='url' value='' maxlength='2047' style='cursor:default; height:20; width:210; font-size:9pt'> <input type='button' value='本地媒体' onclick='loadfile()' style='height:20; width:70; font-size:9pt' title='播放你本地的这首歌曲'><input type='file' name='file' style='display:none'></div>
		<OBJECT ID="Exobud" CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" type="application/x-oleobject" style="width: 290px; height: 160px" border="0">
		<param name="URL" value="Play.Asp?ID=<%=id%>">
		<param name="rate" value="1">
		<param name="balance" value="0">
		<param name="currentPosition" value="0">
		<param name="defaultFrame" value>
		<param name="playCount" value="10">
		<param name="autoStart" value="-1">
		<param name="currentMarker" value="0">
		<param name="invokeURLs" value="-1">
		<param name="baseURL" value>
		<param name="volume" value="84">
		<param name="mute" value="0">
		<param name="uiMode" value="full">
		<param name="stretchToFit" value="-1">
		<param name="windowlessVideo" value="0">
		<param name="enabled" value="-1">
		<param name="enableContextMenu" value="-1">
		<param name="fullScreen" value="0">
		<param name="SAMIStyle" value>
		<param name="SAMILang" value>
		<param name="SAMIFilename" value>
		<param name="captioningID" value>
		<param name="enableErrorDialogs" value="0">
		</OBJECT>
<span id=lrcdata>

<iframe name="LrcShow" width="290" height="180" src="LrcShow.Asp?id=<%=id%>">对不起，你的浏览器不支持框架。</iframe>

</span>

<%elseif rs("Musictype")="2" then%>
<body bgcolor=eaeaea>
<table width="100%" border="0" align="center">
<tr> <td align=center>
<object id=RP2 height=60 width=300 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>
        <param name=_ExtentX value=7938>
        <param name=_ExtentY value=1323>
        <param name=AUTOSTART value=-1>
        <param name=SHUFFLE value=0>
        <param name=PREFETCH value=0>
        <param name=NOLABELS value=-1>
        <param name=SRC value='<%=song_path%>'>
        <param name=CONTROLS value=ControlPanel,StatusBar>
        <param name=CONSOLE value=clip1>
        <param name=LOOP value=0>
        <param name=NUMLOOP value=0>
        <param name=CENTER value=0>
        <param name=MAINTAINASPECT value=0>
        <param name="BACKGROUNDCOLOR" value="#000000">
      </object>
<span id=lrcdata>

<iframe src="http://c03.caishow.com/u/300300.asp?style=3&f=61780&lower_cooid=0&ad_id=5159" height="300" width="300" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe>


</span>

<%elseif rs("Musictype")="3" then%>
<body bgcolor=eaeaea>
<table width="100%" border="0" align="center">
<tr> <td align=center>
		<OBJECT ID="Exobud" CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" type="application/x-oleobject" style="width: 296px; height: 260px" border="0">
		<param name="URL" value="Play.Asp?ID=<%=id%>">
		<param name="rate" value="1">
		<param name="balance" value="0">
		<param name="currentPosition" value="0">
		<param name="defaultFrame" value>
		<param name="playCount" value="10">
		<param name="autoStart" value="-1">
		<param name="currentMarker" value="0">
		<param name="invokeURLs" value="-1">
		<param name="baseURL" value>
		<param name="volume" value="84">
		<param name="mute" value="0">
		<param name="uiMode" value="full">
		<param name="stretchToFit" value="-1">
		<param name="windowlessVideo" value="0">
		<param name="enabled" value="-1">
		<param name="enableContextMenu" value="-1">
		<param name="fullScreen" value="0">
		<param name="SAMIStyle" value>
		<param name="SAMILang" value>
		<param name="SAMIFilename" value>
		<param name="captioningID" value>
		<param name="enableErrorDialogs" value="0">
		</OBJECT>
<span id=lrcdata>

<iframe width="296" height="100" src="http://code3.caiku.com//296x100.aspx?style=1&uid=4986" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>

</span>

<%elseif rs("Musictype")="4" then%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" scroll="no" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">
<script language="JAVASCRIPT">
<!-- Begin
var ap_name = navigator.appName;
var ap_vinfo = navigator.appVersion;
var ap_ver = parseFloat(ap_vinfo.substring(0,ap_vinfo.indexOf('(')));

var time_start = new Date();
var clock_start = time_start.getTime();
var dl_ok=false;

function init ()
{
if(ap_name=="Netscape" && ap_ver>=3.0)
dl_ok=true;
return true;
}

function get_time_spent ()
{
var time_now = new Date();
return((time_now.getTime() - clock_start)/1000);
}

function show_secs () 
{
var i_total_secs = Math.round(get_time_spent());
var i_secs_spent = i_total_secs % 60;
var i_mins_spent = Math.round((i_total_secs-30)/60);
var s_secs_spent = "" + ((i_secs_spent>9) ? i_secs_spent : "0" + i_secs_spent);
var s_mins_spent = "" + ((i_mins_spent>9) ? i_mins_spent : "0" + i_mins_spent);
document.fm0.time_spent.value = s_mins_spent + ":" + s_secs_spent;
window.setTimeout('show_secs()',1000);
}
init();
window.setTimeout('show_secs()',1);
//  End -->
          </script>
<div align="center">
  <center>
  <table width="100%" height="360" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
    
    <tr>
      <form name="fm0" onSubmit="0">
          <td width="100%" height="1"> <p align="center"> 
              <input name="time_spent" type="hidden" id="time_spent">
              <input type="button" onclick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()" name value="全屏播放  ESC返回" style="border-style: ridge; border-width: 1">
          </td>
      </form>
    </tr>
    <caption></caption>
    </form>
    </tr>
    <tr>
      <td width="100%" height="310">
      <script LANGUAGE="javaScript">              
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="播放器提示您:无法定位Movie服务器。请更换其他影片！";

      </script>
      <script LANGUAGE="VBScript">                                    
on error resume next
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n'); 
RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))


Sub player_OnBuffering(lFlags,lPercentage)
	if (lPercentage=100) then
		StartPlay=false
		if (FirstPlay) then
			FirstPlay=false
		end if	
		exit sub
	end if
End Sub
Sub player_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString)
select case player.GetLastErrorRMACode()
		case -2147221496
			window.alert("播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！")
		case -2147221433,-2147221428,-2147221417,-2147217468
			window.alert("播放器提示您:无法定位Movie服务器。请更换其他影片！")
		case else
			window.alert("播放器提示您:对不起,由于在线观看人数过多。无法播放该影片，请重新点击播放按钮进行抢线观看！")
	end select
End Sub
      </script>
      <p align="center">      
          <table width="100%" height="310"  border="0" cellpadding="0" cellspacing="0">
              <td height="310"><object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="100%" height="91%">
                  <param name="_ExtentX" value="9869">
                  <param name="_ExtentY" value="7726">
                  <param name="AUTOSTART" value="-1">
                  <param name="SHUFFLE" value="0">
                  <param name="PREFETCH" value="0">
                  <param name="NOLABELS" value="-1">
                  <param name="SRC" value="<%=song_path%>">
                  <param name="CONTROLS" value="Imagewindow">
                  <param name="CONSOLE" value="clip1">
                  <param name="LOOP" value="0">
                  <param name="NUMLOOP" value="0">
                  <param name="CENTER" value="0">
                  <param name="MAINTAINASPECT" value="0">
                  <param name="BACKGROUNDCOLOR" value="#000000">
                </object> <OBJECT id=RP3 height=54 width="100%" 
                  classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA name=RP3 
                  VIEWASTEXT>
                  <PARAM NAME="_ExtentX" VALUE="20161">
                  <PARAM NAME="_ExtentY" VALUE="794">
                  <PARAM NAME="AUTOSTART" VALUE="-1">
                  <PARAM NAME="SHUFFLE" VALUE="0">
                  <PARAM NAME="PREFETCH" VALUE="0">
                  <PARAM NAME="NOLABELS" VALUE="-1">
                  <PARAM NAME="SRC" VALUE="<%=song_path%>">
                  <PARAM NAME="CONTROLS" VALUE="All">
                  <PARAM NAME="CONSOLE" VALUE="clip1">
                  <PARAM NAME="LOOP" VALUE="0">
                  <PARAM NAME="NUMLOOP" VALUE="0">
                  <PARAM NAME="CENTER" VALUE="0">
                  <PARAM NAME="MAINTAINASPECT" VALUE="0">
                  <PARAM NAME="BACKGROUNDCOLOR" VALUE="#000000">
                </OBJECT></td>
            </tr>
          </table>
	  
	  
	  
	  
	  
	  
      
                    <script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
        </script>
           
      </td>
    </tr>
    
  </table>
  </center>
</div>
<body oncontextmenu='return false'="return false" onselectstart="return false" >
</body>
<%end if%>
<%  
End If
rs.close
conn.close
set rs=nothing
%>