📄 play1.asp
字号:
<html>
<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.redirect "http://www.23mn.net/"
response.end
end if
%>
<head>
<%if request("Action") = "No" then%>
<title><%=request("Title")%> - 爱上美女娱乐网 - 网络电台_在线电台_广播电台_中央人民广播电台</title>
<meta name="keywords" content="<%=request("Title")%>网络电台,<%=request("Title")%>在线电台,<%=request("Title")%>在线广播,<%=request("Title")%>广播电台">
<meta name="description" content="本站提供<%=request("Title")%>在线直播及<%=request("Title")%>节目表等服务">
<%elseif request("Action") = "Yes" then%>
<title><%=request("Title")%> - 爱上美女娱乐网 - 网络电视_在线电视_中央电视台_NBA直播</title>
<meta name="keywords" content="<%=request("Title")%>网络电视,<%=request("Title")%>免费网络电视,<%=request("Title")%>电视直播,<%=request("Title")%>免费电视">
<meta name="description" content="本站提供<%=request("Title")%>在线直播及<%=request("Title")%>节目表等服务">
<%end if%>
<style>
<!--
TD {FONT-SIZE: 9pt; LINE-HEIGHT: 18px}
.f10 {font-size:10.5pt}
.tt6{ font-size:14px ;LINE-HEIGHT: 135%}
-->
</style>
</head>
<body bgcolor="#000000" topmargin="0" leftmargin="0">
<script LANGUAGE="javaScript">
var ERR_NonePlayer="提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="提示您:在线用户过多，服务器限制，请抢线或稍后观看！";
var ERR_NotLocateServer="提示您:服务器地址不存在或者正在重启，请5分钟后收看！";
var ERR_UnkownError="提示您:视频地址以改，请更换到其他播放点或请按F5刷新本页";
</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.4j4j.com/down/RealOnePlayer.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>
<%if request("Action") = "No" then%>
<div align="center">
<table border="0" width="536" cellspacing="0" cellpadding="0" height="311">
<tr>
<td align="center"></td>
<td width="125" rowspan="2" align="center" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td align="center" height="64">
<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="410" height="64">
<param name="_ExtentX" value="10001">
<param name="_ExtentY" value="1270">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="SRC" value="rm.asp?From=<%=request("From")%>&Title=<%=request("Title")%>">
<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>
</td>
</tr>
</table>
</div>
<script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<%elseif request("Action") = "Yes" then%>
<div align="center">
<table border="0" width="536" cellspacing="0" cellpadding="0" height="311">
<tr>
<td align="center">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<object width="410" 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="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
</object>
</td>
</tr>
<tr>
<td height="50">
<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%">
<tr>
<td width="50"><img src="../images/full.gif" alt="如果你窗口播放效果不好，请改用全屏方式播放。" width="50" height="25" border="0" onClick="document.RP1.SetFullScreen()"></td>
<td>
<object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=25 id="RP2" name="RP2" width=100%>
<param name="_ExtentX" value="9366">
<param name="_ExtentY" value="661">
<param name="AUTOSTART" value="-1">
<PARAM NAME="SRC" VALUE="rm.asp?From=<%=request("From")%>&Title=<%=request("Title")%>">
<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=25 id="RP3" name="RP3" width=100%>
<param name="_ExtentX" value="10848">
<param name="_ExtentY" value="661">
<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>
</td>
</tr>
</table>
</td>
<td width="125" align="center" bgcolor="#FFFFFF"> </td>
</tr>
</table>
</div>
<%end if%>
<body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -