📄 video_play.asp
字号:
<!-- #include file="include/config_video.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim html,error,power,emoney,movieid,urlid,vtitle,vtype,vurl
n_sort="video"
movieid=request("id2")
urlid=request("id1")
tit="影视收看"
call web_head(0,0,4,0,0)
if movieid="" or urlid="" then
response.write error
response.end
end if
sql="select power,emoney,type,title from video where id="&movieid
set rs=conn.execute(sql)
if not rs.eof then
power=rs("power")
emoney=rs("emoney")
vtitle=rs("title")
vtype=rs("type")
else
rs.close:set rs=nothing
conn.close:set conn=nothing
response.write error
response.end
end if
call emoney_notes(power,emoney,n_sort,movieid,"js",1,1,"video_view.asp?id="&movieid&"",p_name)
rs.close:set rs=nothing
sql="update video set counter=counter+1 where id="&movieid
conn.execute(sql)
dim rst
set rst=server.createobject("adodb.recordset")
sql="select url from videourl where id="&urlid
rst.open sql,conn,1,1
vurl=rst("url")
rst.close:set rst=nothing
call close_conn()
' serverip=rs("serverip")
' tdate=date()
response.cookies(""&urlid&"")="yes"
%>
<body bgcolor="#000000" scroll="no" marginwidth="0" leftmargin="0" topmargin="0" 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 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);
-->
</script>
<div align="center">
<center>
<table border="0" cellspacing="0" width="373" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<% if vtype="rm" then%>
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="373" id="AutoNumber1" background="images/video/menu_bg.gif" cellpadding="0">
<tr>
<td width="80%" height="20"> 影片名称：<font class=red_3><%=vtitle%></font> <%=action%></td>
<td height="1" align="right">
<input type="button" onclick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()" name value="全屏播放" style="border-style: ridge; border-width: 1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<script LANGUAGE="javaScript">
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="播放器提示您:无法定位Movie服务器。请更换其他影片！";
var ERR_UnkownError="播放器提示您:在线用户过多，服务器限制，请抢线或稍后观看！";
</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)")))
if not RealPlayerG2 and RealPlayer5 and RealPlayer4 then
if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then
window.location = "http://51cd.com/2.exe"
end if
end if
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(ERR_FileNotFind)
case -2147221433,-2147221428,-2147221417,-2147217468
window.alert(ERR_NotLocateServer)
case else
window.alert(ERR_UnkownError)
end select
End Sub
</script>
<p align="center">
<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="373" height="290">
<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="<%=vurl%>">
<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>
<br>
<object ID="RP2" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH="373" HEIGHT="50">
<param name="_ExtentX" value="9869">
<param name="_ExtentY" value="741">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="SRC" value="<%=vurl%>">
<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>
<script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
</td>
</tr>
<%elseif vtype="md" then %>
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="373" id="AutoNumber1" background="images/video/menu_bg.gif" cellpadding="0">
<tr>
<td width="80%" height="20"> 影片名称：<font class=red_3><%=vtitle%></font> <%=action%></td>
<script language="JavaScript">
<!--
var Real;
Real='MediaPlayer1.';
var Mute=false;
var CanSetPos=true;
var SetPosStart=false;
var SetVolStart=false;
var loop, timer, initialised;
var speed=50;
var oldwidth=566,oldheight=502;
function DoFull()
{
eval(Real+'DisplaySize=3');
}
NetShowServer = "" ;
var mPath = NetShowServer + "";
function LoadVideo(c1,c2) {
if (c1=="") return;
video_filename = c1;
MusicPlayer.Cancel()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -