⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 play.asp

📁 ASP源码 / 影视音乐
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="conn.asp"-->
<%  
   see=request("see")
   id=request("id")
   sqlhits="update data set hits=hits+1 where id="&id
   set rs_hits=conn.execute(sqlhits)
   set rs_hits=nothing
   set rs=server.createobject("adodb.recordset")
   sql="select * from data where id="&id
   rs.open sql,conn,1,1
   typeid=rs("type")
   select case see
                         case 1
             real=rs("address1")
          case 2
             real=rs("address2")
          case 3
             real=rs("address3")
          case 4
             real=rs("address4")
          case 5
             real=rs("address5")
		   case 6
             real=rs("address6")
			 case 7
             real=rs("address7")
			 case 8
             real=rs("address8")
			 case 9
             real=rs("address9")
			 case 10
             real=rs("address10")
			 case 11
             real=rs("address11")
			 case 12
             real=rs("address12")
			 case 13
             real=rs("address13")
			 case 14
             real=rs("address14")
			 case 15
             real=rs("address15")
			 case 16
             real=rs("address16")
			 case 17
             real=rs("address17")
			 case 18
             real=rs("address18")
			 case 19
             real=rs("address19")
			 case 20
             real=rs("address21")
			 case 21
             real=rs("address21")
			 case 22
             real=rs("address22")
			 case 23
             real=rs("address23")
			 case 24
             real=rs("address24")
			 case 25
             real=rs("address25")
			 case 26
             real=rs("address26")
			 case 27
             real=rs("address27")
			 case 28
             real=rs("address28")
			 case 29
             real=rs("address29")
			 case 30
             real=rs("address30")
			 case 31
             real=rs("address31")
			 case 32
             real=rs("address32")
			 case 33
             real=rs("address33")
			 case 34
             real=rs("address34")
			 case 35
             real=rs("address35")
			 case 36
             real=rs("address36")
			 case 37
             real=rs("address37")
			 case 38
             real=rs("address38")
			 case 39
             real=rs("address39")
			 case 40
             real=rs("address40")
			 case 41
             real=rs("address41")
			 case 42
             real=rs("address42")
			 case 43
               real=rs("address43")
			 case 44
             real=rs("address44")
			 case 45
             real=rs("address45")
			 case 46
             real=rs("address46")
   end select 
%>
<%
if typeid="realplay" then
%>
<html>
<head>
<title>电影播放</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
<!-- 
td           { font-size: 12px; line-height: 17px }
body         { font-size: 12px; line-height: 17px }
p            { margin-type: 1px; margin-bottom: 1px }
a:link       { text-decoration: none; color: black }
a:visited    { text-decoration: none; color: black }
a:active     { text-decoration: none }
a:hover      { text-decoration: underline; color: red }
-->
</style>
</head>

<body marginwidth="0" leftmargin="0" topmargin="0" bgcolor="#000000" scroll="no" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">

<div align="center">
  <center>
  <table border="0" cellspacing="0" width="337" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
    <tr>
      <td width="100%">
      <table border="0" cellspacing="0" style="border-collapse: collapse" width="108%" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">
        <tr>
          <td width="50%" height="1" bgcolor="#E0E0E0">
          <p align="left"><font color="#FF0000" size="2">&nbsp;准备就绪请多刷新几次!!</font></td>
          <form name="fm0" onSubmit="0">
            <td width="6%" height="1" bgcolor="#E0E0E0">
            <input type="text" name="time_spent" size="5" onFocus="this.blur()" style="border-style: groove; border-width: 1; background-color: #EEEEEE"></td>
          

          <td width="153%" height="1" bgcolor="#E0E0E0">
          <input type="button" onclick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()" name value="全屏播放" style="border-style: ridge; border-width: 1">
          <font size="2">
          <span lang="en-us">ESC</span>返回</font></td></form>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td width="100%">
      <p align="center">
    <font size="2">
    <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 get_time_spent ()
{
var time_now = new Date();
return((time_now.getTime() - clock_start)/1000);
}

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);
//  End -->
          </script>      <script LANGUAGE="javaScript">              
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器,请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:未找到影片,可能是服务器问题,请更换其他影片!";
var ERR_NotLocateServer="播放器提示您:在线用户过多,服务器限制,请抢线或稍后观看!";
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://www.hao8.cn"
		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 id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="400" height="272">
      <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=0>
      <param name=SRC VALUE="<%=real%>">
      <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" height=58 width=400  CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"> 
    <param name="_ExtentX" value="9869"> 
    <param name="_ExtentY" value="1535"> 
    <param name="AUTOSTART" value="-1">
    <param name="SHUFFLE" value="0"> 
    <param name="PREFETCH" value="0"> 
    <param name="NOLABELS" value="0"> 
    <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">
    <embed type="audio/x-pn-realaudio-plugin" CONSOLE="Clip1" CONTROLS="ControlPanel,StatusBar" AUTOSTART="true">
    </object>
      <script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
      </script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -