<!--#include file="player.asp" -->
<html>
<head>
<title>无延迟播放器</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #FFFFFF;
}
-->
</style>
 <script language="javascript">
function GetPlayerVersion()
{
try{
		  var Player;
			var ret;
		  Player = new ActiveXObject("VodHelper.NetPlayer");
		  ret = Player.GetCurrentVersion();
		  if(ret < 3.74)
		  {
				alert("网络媒体播放器版本已过期，请重新下载并安装网络媒体播放器!");
				document.location.href = "./down/vodplayer.exe";
				return false;			
		  }	
		  delete Player;
		}
		catch(e)
		{
			alert("请首先下载安装网络媒体播放器!");
			document.location.href = "../down/vodplayer.exe";
			return false;
		}
}
</script>
</head>
<body oncontextmenu="return false;" onselectstart="return false" 
ondragstart="return false" onLoad="javascript:GetPlayerVersion();" onkeydown="if(event.keyCode==78 && event.ctrlKey) return false;" leftMargin=0 topMargin=0 rightmargin=0 bottommargin=0>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select DxUrl,CncUrl,TtUrl from YWNT_TMS_Sever Where ID="&SeverID
Rs.open sql,Conn,1,1
If Not RS.Eof Then
SeverUrl=RS.GetRows()
End If
RS.Close
Set RS = Nothing
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select MovieUrl from YWNT_TMS_MovieUrl Where ID="&UrlID
Rs.open sql,Conn,1,1
If Not RS.Eof Then
MovieUrl=RS("MovieUrl")
End If
RS.Close
Set RS = Nothing%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="37"><img src="play/player_03.gif" width="37" height="27" alt="" /></td>
        <td width="900" background="play/player_04.gif"></td>
        <td width="104"><img src="play/player_06.gif" width="104" height="27" alt="" /></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td width="8" height="100%" background="play/player_08.gif"></td>
    <td width="100%" valign="top" bgcolor="#000000"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="959" height="27" background="play/player_10.jpg"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="91%">影片：<%=MovieName%></td>
              <td width="9%"><img src="play/player_16.gif" width="75" height="20" alt="全屏播放" style="CURSOR: hand" onClick="SetFullScreen()"/></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td valign="top" height="100%">
<%FileExt = LCase(Mid(MovieUrl, InStrRev(MovieUrl, ".") + 1))
Select Case FileExt
Case "flv","swf"
    call FlashPlayer()
Case else
    call PowerPlayer()
End Select 
Sub PowerPlayer()%> 
              <script language="JavaScript" type="text/javascript"> 
function SetFullScreen()
{
	if (player.playState == 3){
		alert("还原窗口请按键盘左上角[ESC]");
		player.fullscreen=1;
		
	}else{
		alert("影片开始播放后才可以全屏播放.");
	}	
}
          </script>
              <object id="ActiveX"  name="player" classid="CLSID:C3D8F2C7-A508-4724-BC3A-C247058D17EB" width="100%" height="100%" viewastext="VIEWASTEXT">
                <param name="url" value="<%=SeverUrl(Request.QueryString("SeverType"),0)&MovieUrl%>" />
                <param name="uimode" value="1" />
                <param name="playmode" value="1" />
                <param name="autostart" value="1" />
				<param name="playinplayer" value="0">
				<param name="keephistory" value="0">
              </object>
<%end sub
sub FlashPlayer()%>
<script type="text/javascript">
var swf_width="100%"
var swf_height="100%"
var texts='<%=MovieName%>'
var files='<%=SeverUrl(Request.QueryString("SeverType"),0)&MovieUrl%>'
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="Play/vcastr22.swf"><param name="quality" value="high">');
document.write('<param name="menu" value="false"><param name="allowFullScreen" value="true" />');
document.write('<param name="FlashVars" value="vcastr_file='+files+'&vcastr_title='+texts+'&IsAutoPlay=1">');
document.write('<embed src="Play/vcastr22.swf" allowFullScreen="true" FlashVars="vcastr_file='+files+'&vcastr_title='+texts+'&IsAutoPlay=1" menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');
</script>
<%end sub%></td>
      </tr>
    </table></td>
    <td width="8" background="play/player_12.gif"></td>
  </tr>
  
  <tr>
    <td height="10" valign="top"><img src="play/player_20.gif" width="8" height="10" alt="" /></td>
    <td height="10" background="play/player_22.gif"></td>
    <td height="10" valign="top"><img src="play/player_24.gif" width="8" height="10" alt="" /></td>
  </tr>
</table>
<%call connclose()%>
</body>
</html>
