ASP电影播放器

<% MovURL=Request(\”MovURL\”) %><body style=\”BACKGROUND-COLOR: white; MARGIN: 0px\” scroll=no marginheight=\”0\”><table width=\”100%\” height=\”100%\” border=\”1\” cellpadding=\”0\” cellspacing=\”0\”> <tr> <td align=\”center\”><script LANGUAGE=\”javaScript\”> var ERR_NonePlayer=\”播放器提示您: 您的系统中没有安装Real Player播放器，请到主页上下载。\\n\\n\\nMovie播放器将关闭。\”;var ERR_FileNotFind=\”播放器提示您: 对不起，未发现你要点播的影片。\\n\\n\\n请您更换其他影片！\”;var ERR_NotLocateServer=\”播放器提示您: 对不起，你的IP还不能观看此电影！\\n\\n\\n请把本站的网址：http://www.zh1861.net/发给你QQ上的5位网友,你就可以看了。\”;var ERR_UnkownError=\”播放器提示您: 影片地址错误，请给管理员留言，让管理员修正地址！\\n\\n\\n请大家把本站的网址：http://www.zh1861.com/发给你QQ上的5位网友再回来观看哦。\\n\\n\\n或者更换其它影片观看！\”; </script> <script LANGUAGE=\”VBScript\”> on error resume nextRealPlayerG2 = (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 ifend if

Sub player_OnBuffering(lFlags,lPercentage) if (lPercentage=100) then StartPlay=false if (FirstPlay) then FirstPlay=false end if exit sub end ifEnd SubSub 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 selectEnd Sub </script>

<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=\”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=\”<%=MovURL%>\”> <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> </td> </tr><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>

</tr></table>

总算搞拈了