📄 play.asp
字号:
</TR>
<TR>
<TD valign="top" background="images/login-bg.jpg" >
<table width="90%" border="0" align="center">
<tbody>
<TR>
<TD align="center" height=35><FONT color=#000000 class="fontshadow"><b>系 统 提 示</b></FONT></TD>
</TR>
<tr>
<td align=right width="105%" height=76>
<p align="center"><FONT color=#000000 class="fontshadow">你 点 数 不 够 哦 ！</td>
</tr>
</table></TD>
</TR>
<tr>
<td><img border="0" src="images/login-bottom.gif" width="359" height="28"></td>
</tr>
</TABLE>
</body>
</html>
<%
response.end
end if
set rsb01=server.createobject("adodb.recordset")
rsb01.open "select * from tolook where title='"&rs("title")&"' and userid='"&request.cookies("userid")&"'",conn,1,3
if rsb01.eof and rsb01.bof or i>4 then
sql="update users set usercount=usercount-'"&rs("count")&"' where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
conn.Execute(sql)
end if
end if
rst.close
set rst=nothing
else
response.cookies("userid")=rst8("testok")
if now()>rst8("endtimes") then
response.write"该网吧使用已经到期，请续费。"
response.end
end if
set rst8=nothing
end if
set rsb=server.createobject("adodb.recordset")
rsb.open "select * from tolook",conn,1,3
rsb.addnew
rsb("title")=rs("title")
rsb("userip")=request.servervariables("remote_addr")
rsb("userid")=request.cookies("userid")
rsb("looktime")=Now()
rsb("lookordown")="在线"
rsb.update
rsb.close
set rsb=nothing
response.cookies(""&urlid&"")="yes"
%>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>【<%=rs("title")%>】如果始终在连接状态或者出现人证对话框，可关掉播放窗口重新点播!-</title>
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<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">
function click(e) {
if (document.all) {
if (event.button==2||event.button==3) {
oncontextmenu='return false';
}
}
if (document.layers) {
if (e.which == 3) {
oncontextmenu='return false';
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
document.oncontextmenu = new Function("return false;")
</script>
<% if rs("movietype")="rm" then%>
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<script LANGUAGE="javaScript">
var ERR_NonePlayer="播放器提示您: 在线人数已超过300人 请稍后在观看 ";
var ERR_FileNotFind="播放器提示您: 在线人数已超过300人 请稍后在观看 ";
var ERR_NotLocateServer="播放器提示您: 在线人数已超过300人 请稍后在观看 ";
var ERR_UnkownError="播放器提示您: 在线人数已超过300人 请稍后在观看 ";
</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://www.i-movie.cn/tools/RealOnePlayer2GOLD.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>
<object width="100%" height="100%" name="RP1" id="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="CONTROLS" value="Imagewindow">
<param name="CONSOLE" value="clip1">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="1">
<param name="MAINTAINASPECT" value="1">
<param name="BACKGROUNDCOLOR" value="#000000">
</object></td>
</tr>
<tr>
<td height="60">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<td align="center" bgcolor="#000000"> <table border=1 cellpadding=0 cellspacing=0 width="100%">
<td width="50"><img src="images/ctrl-fullscreen.gif" alt="如果你窗口播放效果不好，请改用全屏方式播放。" width="50" height="30" border="0" onClick="document.RP1.SetFullScreen()"></td>
<td> <object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=30 id="RP2" name="RP2" width=100%>
<param name="_ExtentX" value="4657">
<param name="_ExtentY" value="794">
<param name="AUTOSTART" value="-1">
<param name="SRC" value="govodurl.asp?urlid=<%=urlid%>&serverip=<%=serverip%>">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="CONTROLS" value="ControlPanel">
<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>
</td>
</tr>
<tr>
<td align="center" bgcolor="#000000"><object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=30 id="RP3" name="RP3" width=100%>
<param name="_ExtentX" value="4657">
<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="CONTROLS" value="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>
</table>
<%
rs.close
set rst=nothing
conn.close
set conn=nothing
response.end
%>
</td>
</tr>
<%elseif rs("movietype")="md" then
set rst=server.createobject("adodb.recordset")
sql="select url from movieurl where id="&urlid
rst.open sql,conn,1,1
real=rst("url")
set rst=server.createobject("adodb.recordset")
sql="select * from movie where id="&serverip
rst.open sql,conn,1,1
%>
<script language="JavaScript">
function click(e) {
if (document.all) {
if (event.button==2||event.button==3) {
oncontextmenu='return false';
}
}
if (document.layers) {
if (e.which == 3) {
oncontextmenu='return false';
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
document.oncontextmenu = new Function("return false;")
</script>
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<object id="MediaPlayer1" style="left: 0px; top: 0px" type="application/x-oleobject" height="100%" standby="Loading Media Player components..." width="100%" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" codebasr="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" name="msplayer">
<param name="AutoStart" value="-1">
<param name="ShowStatusBar" value="-1">
<PARAM NAME='enableContextMenu' value='false'>
<param name="Filename" value="<%=rst("ipsip")%><%=real%>">
</object></td>
</tr>
</table>
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
response.end%>
<%end if%>
</table>
</center>
</div>
</body>
</body>
</html>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -