您现在的位置:雪儿网络 >> 雪儿社区
RSS WAP
>> 最新动易整站、风格模板、插件讨论区
搜一搜更多此类问题 
雪儿社区建站专区『 动易专区 』 → [原创]动易电影系统播放器终极解决方案

第一视频广告联盟-站长赚钱的利器站长日进百元不是梦,加入Google Adsense!最新版遨游浏览器下载正版相片管理软件免费下载
您是本帖的第 2727 个阅读者
上一主题  下一主题      
树形 打印
标题:
[原创]动易电影系统播放器终极解决方案
佚仕
帅哥哟,离线,有人找我吗?
等级:超级版主
文章:367
积分:3948
门派:无门无派
注册:2006年12月7日
楼主
 用支付宝给佚仕付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给佚仕

发贴心情
[原创]动易电影系统播放器终极解决方案

看标题也许有点夸张,看我提供的代码后,觉得也很简单,根本没什么。但是,请看完它,也许很简单,但绝对实用,就是因为简单易用用,才符合动易的特性。

从学建站就与动易结下不解之缘,也曾经因用动易做电影系统的烦琐而烦恼过,用过马克斯、KingCMS、CBF001等电影系统,对我来讲,它们的唯一优点就是“播放器”的可扩展性,做电影站不需修改文件拿来就用。但是,其系统的单一性,模板的可塑性太弱等缺点,让人难以接受。下面,我将介绍的是动易电影站必备之“打造超级电影播放器,”让动易电影站播放器的可扩展性无限延伸…………

做电影站的都知道,一个电影站应该兼容多种文件播放格式,如.rm、.rmvb、.swf、.flv、.MPG等,还有如支持BoBo、迅雷、P2P等播放方式等,但是,如果利用动易论坛会员提供的其他什么全能播放器,什么超级播放器……,不可能支持所有格式播放,而且一旦支持了其中一种,另一种的设置很麻烦,甚至可能没办法支持。比如迅雷播放方式有一种包含服务ID:影片类别/片名集数ID.rmvb的格式,如地址为:9508:/动作片/行规cd1.rmvb

不用下面这种办法,是无法支持的。

而下面的解决方案,关键之处在于灵活易用,你无需熟知ASP,只要能看清楚规律,花点时间,看完所有代码,动易电影站播放器就任你修改,想要什么样式和调用方式,你说了算!!!只有你想不到的,没有你做不到的!!

演示地址:http://www.xueol.com/movie/PlayMovie.asp?UrlID=1&SoftID=9874

下面是解决方案:

步骤一:为你的电影频道添加自定义字段

后台---自定义字段管理---添加新字段

使用范围:所有同类频道    当前频道
字段名称:
字段的英文名称,一般为英文。如更新时间字段的名称为“UpdateTime”
填上MY_Player
字段标题:
字段的中文标题,一般为中文。如“UpdateTime”字段的中文标题为“更新时间”
播放器
附加提示:
后台录入时,在标题旁的提示信息
调用标签:
前台模板调用此字段内容的标签名。
{$MY_Player}
字段类型:
默认值:XunleiPlayer
列表项目:
每一行为一个列表项目
是否必填:是    


默认值:可根据你的电影频道实际修改,哪种格式多用哪种。

列表项目内容解释:XunleiPlayer(迅雷播放器,其他不用说明了吧!!),可根据你需要支持的格式增加。

[此贴子已经被作者于2008-9-4 23:00:20编辑过]
ip地址已设置保密
2008-4-8 10:38:00
佚仕
帅哥哟,离线,有人找我吗?
等级:超级版主
文章:367
积分:3948
门派:无门无派
注册:2006年12月7日
2
 用支付宝给佚仕付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给佚仕

发贴心情

步骤二:修改ShowSoftDown.asp文件为播放页。

建议利用自定义页面功能为电影频道增加一个文件,如增加文件名为的PlayMovie.asp文件

文件改名后,请仔细看这一贴,下载模块做影视频道终极解决方案http://bbs.powereasy.net/dispbbs.asp?BoardID=28&ID=364522&replyID=&skin=1,在点击播放地址时,调用URL为PlayMovie.asp

1、复制ShowSoftDown.asp文件,重命名为PlayMovie.asp

2、删除多余代码(这里不用的调用)

找到

End If
以下代码除
%>

保留外,其余全部删除。

3、增加对数据库中电影名称、播放ID和播放器的判断。

End If

下加入以下代码:

'获取电影名称、ID、播放器
Dim rs, DownID, DownName, DUrlID, Player
DownID = Trim(request("SoftID"))
DUrlID = Trim(request("UrlID"))
Call openconn
Set rs = Conn.Execute("select SoftName,MY_Player from PE_Soft where SoftID = " & DownID & " ")
DownName = rs("SoftName")
Player = rs("MY_Player")
Set rs = Nothing
Call closeconn
'获取电影名称、ID、播放器

注意,红色部分请与你的播放器自定义字段名保持一致。

4、增加播放器的判断条件:

在文件下面加入以下代码:

<%
IF Player =  "XunleiPlayer" Then
DownloadUrl=replace(DownloadUrl," http://v.xueol.com/UploadFiles_7325/ ","")
ShowXunleiPlayer (DownloadUrl)
ElseIF Player =  "RealPlayer" Then
ShowRealPlayer (DownloadUrl)
ElseIF Player =  "MediaPlayer" Then
ShowMediaPlayer (DownloadUrl)
ElseIF Player =  "SwfPlayer" Then
ShowSwfPlayer (DownloadUrl)  
ElseIF Player =  "FlvPlayer" Then
ShowFlvPlayer (DownloadUrl)  
ElseIF Player =  "BoboPlayer" then  
DownloadUrl=BoBoConvert(DownloadUrl,SiteUrl)
ShowP2PPlayer (DownloadUrl)
ElseIF Player =  "P2PPlayer" then  
ShowP2PPlayer (DownloadUrl)
End If
%>

绿色部分对应你的电影频道播放器字段中的选择值。

红色部分请修改为你的电影频道URL和上传目录。如你的电影频道URL是http://bbs.powereasy.net/movie/,上传目录是UploadFiles,此处即改为http://bbs.powereasy.net/movie/UploadFiles/

5、增加播放器:在文件最下面加入以下代码,注意红色部分是播放器的输出语句,每一段对应一个播放器。

<%
Function ShowMediaPlayer(strUrl)
%>

<OBJECT id="Playerd" codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=Loading type=application/x-oleobject height=453 width=563 classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT><PARAM NAME="URL" VALUE="<%=strUrl%>"><PARAM NAME="rate" VALUE="1"><PARAM NAME="balance" VALUE="0"><PARAM NAME="currentPosition" VALUE="-1"><PARAM NAME="defaultFrame" VALUE=""><PARAM NAME="playCount" VALUE="1"><PARAM NAME="autoStart" VALUE="-1"><PARAM NAME="currentMarker" VALUE="0"><PARAM NAME="invokeURLs" VALUE="-1"><PARAM NAME="baseURL" VALUE=""><PARAM NAME="volume" VALUE="70"><PARAM NAME="mute" VALUE="0"><PARAM NAME="uiMode" VALUE="full"><PARAM NAME="stretchToFit" VALUE="-1"><PARAM NAME="windowlessVideo" VALUE="0"><PARAM NAME="enabled" VALUE="-1"><PARAM NAME="enableContextMenu" VALUE="0"><PARAM NAME="fullScreen" VALUE="0"><PARAM NAME="SAMIStyle" VALUE=""><PARAM NAME="SAMILang" VALUE=""><PARAM NAME="SAMIFilename" VALUE=""><PARAM NAME="captioningID" VALUE=""><PARAM NAME="enableErrorDialogs" VALUE="0"><PARAM NAME="_cx" VALUE="11906"><PARAM NAME="_cy" VALUE="9790"></OBJECT>
<%
End Function
Function ShowRealPlayer(strUrl)
%>
<OBJECT height=395 width=563 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA id="Playerd"><PARAM NAME="_ExtentX" VALUE="7938"><PARAM NAME="_ExtentY" VALUE="5292"><PARAM NAME="AUTOSTART" VALUE="-1"><PARAM NAME="SHUFFLE" VALUE="0"><PARAM NAME="PREFETCH" VALUE="0"><PARAM NAME="NOLABELS" VALUE="0"><PARAM NAME="SRC" VALUE="<%=strUrl%>"><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 height=60 width=563 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA><PARAM NAME="_ExtentX" VALUE="7938"><PARAM NAME="_ExtentY" VALUE="1588"><PARAM NAME="AUTOSTART" VALUE="0"><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"></OBJECT>
<%
End Function
Function ShowSwfPlayer(strUrl)
%>

<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 height=453 width=563 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 id="Playerd"><PARAM NAME="_cx" VALUE="12674"><PARAM NAME="_cy" VALUE="10636"><PARAM NAME="FlashVars" VALUE=""><PARAM NAME="Movie" VALUE="<%=strUrl%>"<PARAM NAME="Src" VALUE="<%=strUrl%>"<PARAM NAME="WMode" VALUE="Window"><PARAM NAME="Play" VALUE="-1"><PARAM NAME="Loop" VALUE="-1"><PARAM NAME="Quality" VALUE="High"><PARAM NAME="SAlign" VALUE=""><PARAM NAME="Menu" VALUE="-1"><PARAM NAME="Base" VALUE=""><PARAM NAME="AllowScriptAccess" VALUE=""><PARAM NAME="Scale" VALUE="ShowAll"><PARAM NAME="DeviceFont" VALUE="0"><PARAM NAME="EmbedMovie" VALUE="0"><PARAM NAME="BGColor" VALUE=""><PARAM NAME="SWRemote" VALUE=""><PARAM NAME="MovieData" VALUE=""><PARAM NAME="SeamlessTabbing" VALUE="1"><PARAM NAME="Profile" VALUE="0"><PARAM NAME="ProfileAddress" VALUE=""><PARAM NAME="ProfilePort" VALUE="0"><PARAM NAME="AllowNetworking" VALUE="all"><PARAM NAME="AllowFullScreen" VALUE="false">
><embed src="<%=strUrl%>" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=480 height=405></embed></OBJECT>
<%
End Function
Function ShowFlvPlayer(strUrl)
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="563" height="453" id="Playerd">
<param name="movie" value="Flvplayer.swf">
<param name="quality" value="high">
<param name="allowFullScreen" value="true" />
<param name="FlashVars" value="vcastr_file=<%=strUrl%>&LogoText=www.SHiove.com&BufferTime=3" />
<embed src="Flvplayer.swf" allowFullScreen="true" FlashVars="vcastr_file=<%=strUrl%>&LogoText=www.SHiove.com" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="450" height="380"></embed>
</object>
<%
End Function
Function ShowXunleiPlayer(strUrl)
%>
<!--请在页面中需要展现的位置加入代码,尺寸为500x420-->
<script src="http://play.kankan.xunlei.com/u/UPlayer/KKPlayer.js"></script><div id="KKPlayerContainer" width="563" height="420" autoplay="1" unid="22722" source="<%=strUrl%>"></div>
<%
End Function
Function ShowP2PPlayer(strUrl)
%>

<SCRIPT LANGUAGE="JavaScript">
  function CheckPlayer()
  {
  var bobo;
  try
  {
  bobo = new ActiveXObject("BOBO_ACTIVEX_V3.BoBo_V3Ctrl.1");
  if( bobo == null )
  {
  window.alert("请安装BoBo P2P多媒体点播/广播/直播控件!");
  return false;
  }
  }
  catch( e )
  {
  window.alert("请安装BoBo P2P多媒体点播/广播/直播控件!");
  return false;
  }
  delete bobo;
  return true;
  }
  CheckPlayer()
  </SCRIPT>
  
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
              <TBODY>
                <TR>
                  <TD width=563 height=390>
    <object id="Playerd" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" height="100%" width="100%" viewastext="" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" standby="Loading Microsoft Windows Media Player components..." type="application/x-oleobject" style="display:none">
                      <param name="URL" value="" />
                      <param name="animationatStart" value="true" />
                      <param name="autoStart" value="true" />
                      <param name="showControls" value="true" />
                    </object>
                    <div id="hg">
                      <embed name=RealObj src=test.rpm width="100%" height="100%" maintainaspect="true" controls="ImageWindow" console="one"></div></TD>
                </TR><tr><td height="22" valign="bottom">
<object id="Playerd" width="100%" height="22" classid="clsid:EC0978ED-24E3-403C-AB7A-060E388553E6" codebase="http://www.17BoBo.com/Software/BoBo_ActiveX_V3.ocx">
<param name="MaxLinkCount" value="100" />
<param name="MaxCacheTimeS" value="120" />
<param name="MinCacheTimeS" value="60" />
<param name="MaxCacheSizeMB" value="100" />
<param name="MaxDownloadKbps" value="800" />
<param name="MaxUploadKbps" value="500" />
<param name="RealMediaType" value=".mp4,.mp3" />
<param name="AllowDrag" value="1" />
<param name="ActName" value="<%=strUrl%>" />
</object></td></tr></TBODY></TABLE>
<%
End Function
%>

呵呵

ip地址已设置保密
2008-4-8 10:38:00
佚仕
帅哥哟,离线,有人找我吗?
等级:超级版主
文章:367
积分:3948
门派:无门无派
注册:2006年12月7日
3
 用支付宝给佚仕付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给佚仕

发贴心情

下面是播放器文件完整代码示例:

<!--#include file="CommonCode.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim DownloadUrl, FileExt
DownloadUrl = PE_Content.GetDownloadUrl()
If DownloadUrl = "ErrorDownloadUrl" Then Response.End
Set PE_Content = Nothing
FileExt = LCase(Mid(DownloadUrl, InStrRev(DownloadUrl, ".") + 1))
If InStr(DownloadUrl, "://") <= 0 Then
DownloadUrl = "http://" & Trim(Request.ServerVariables("HTTP_HOST")) & DownloadUrl
End If
'获取电影名称和ID
Dim rs, DownID, DownName, DUrlID, Player
DownID = Trim(request("SoftID"))
DUrlID = Trim(request("UrlID"))
Call openconn
Set rs = Conn.Execute("select SoftName,MY_Player from PE_Soft where SoftID = " & DownID & " ")
DownName = rs("SoftName")
Player = rs("MY_Player")
Set rs = Nothing
Call closeconn
'获取电影名称和ID
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rev=stylesheet media=all href="images/DefaultSkin.css" type=text/css rel=stylesheet>
<title><%=DownName%>_在线播放_雪影在线</title>
</head>
<body  oncontextmenu='return false' ondragstart='return false' onselectstart ='return false' onselect='document.selection.empty()' oncopy='document.selection.empty()' onbeforecopy='return false'><div id="player"><div id="head"><div id="head1"><a href=""><img src="images/play-2.gif" border="0"></a></div><div id="head2"><%=DownName%>_在线播放</div></div><div id="midd"><div id="midd1"></div><div id="midd2"><div id="axplay" style="width:563px;height:453px;top:74px;left:116px;z-index:1;">
<%
IF Player =  "XunleiPlayer" Then
DownloadUrl=replace(DownloadUrl,"http://v.xueol.com/UploadFiles_7325/","")
ShowXunleiPlayer (DownloadUrl)
ElseIF Player =  "RealPlayer" Then
ShowRealPlayer (DownloadUrl)
ElseIF Player =  "MediaPlayer" Then
ShowMediaPlayer (DownloadUrl)
ElseIF Player =  "SwfPlayer" Then
ShowSwfPlayer (DownloadUrl)  
ElseIF Player =  "FlvPlayer" Then
ShowFlvPlayer (DownloadUrl)  
ElseIF Player =  "BoboPlayer" then  
DownloadUrl=BoBoConvert(DownloadUrl,SiteUrl)
ShowP2PPlayer (DownloadUrl)
ElseIF Player =  "P2PPlayer" then  
ShowP2PPlayer (DownloadUrl)
End If
%>
</div>
</div><div id="midd3"></div><div id="midd4">
<div id="midd41"></div>
<div id="midd42">
<input name="Submit" onClick='copyToClipBoard()' type="image" src="images/play-7.gif" width="188" height="50" border="0"><br>
<a href="http://v.xueol.com/"><img src="images/play-8.gif" width="188" height="50" border="0"></a><br>
</div><div id="midd43">
<p>小贴士:<br>如果看不了本站电影,请下载安装<a href="http://fpdownload.macromedia.com/get/flashplayer/current/install_flash_player.exe" target="_blank">(AdobeFlashPlayer9.0) Flash播放插件</a>,同时保证您的电脑上装有<a href="http://download.microsoft.com/download/a/f/8/af8c3ece-6a0c-4980-abf2-28172420ccb5/MP10Setup.exe" target="_blank">Windows Media Player 10.0</a>    和<a href="http://software-dl.cn.real.com/18c8b475557b3f6d7803/windows/installer/R41CND/RealPlayer11GOLD_cn.exe" target="_blank">Realplayer 11.0</a>,观看流媒体电影您还需要安装<a href="http://www.17bobo.com/Software/bobo/BoBo_ActiveX_V3.exe">BoBo视频插件</a>。</p>
<p><span>  欢迎您点播放雪影在线视频,您可以到雪儿网络寻求帮助或了解更多资讯。</span></p>
<p><div align="center">雪影在线 mv.xueol.com</div>
</p><script src='http://s70.cnzz.com/stat.php?id=266686&web_id=266686' language='JavaScript' charset='gb2312'></script>
</div>
<div id="midd44">
<div class="midd441"><script language=javascript>function FullScreen(){document.Playerd.SetFullScreen();}</script><input type='image' onclick='javascript:FullScreen()' width="80" height="27" border="0"src="images/play-11.gif"></div>
<div class="midd441"><a href="http://v.xueol.com/" target="_blank"><img src="images/play-12.gif" width="80" height="27" border="0" /></a></div>
</div></div><div id="midd5"></div></div></div>
<script language="JavaScript" type="text/JavaScript">
function copyToClipBoard(){
   var clipBoardContent='';
   clipBoardContent+='雪影在线';
   clipBoardContent+=window.location;
   window.clipboardData.setData("Text",clipBoardContent);
   alert("复制成功,请粘贴到你的QQ/MSN上推荐给你的好友");
  }
</script>
<script language="JavaScript" type="text/JavaScript">
function SetFont(size){
document.getElementById("logPanel").style.fontSize=size
}
</script>
</body>
</html>
<%
Function ShowMediaPlayer(strUrl)
%>
<OBJECT id="Playerd" codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=Loading type=application/x-oleobject height=453 width=563 classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT><PARAM NAME="URL" VALUE="<%=strUrl%>"><PARAM NAME="rate" VALUE="1"><PARAM NAME="balance" VALUE="0"><PARAM NAME="currentPosition" VALUE="-1"><PARAM NAME="defaultFrame" VALUE=""><PARAM NAME="playCount" VALUE="1"><PARAM NAME="autoStart" VALUE="-1"><PARAM NAME="currentMarker" VALUE="0"><PARAM NAME="invokeURLs" VALUE="-1"><PARAM NAME="baseURL" VALUE=""><PARAM NAME="volume" VALUE="70"><PARAM NAME="mute" VALUE="0"><PARAM NAME="uiMode" VALUE="full"><PARAM NAME="stretchToFit" VALUE="-1"><PARAM NAME="windowlessVideo" VALUE="0"><PARAM NAME="enabled" VALUE="-1"><PARAM NAME="enableContextMenu" VALUE="0"><PARAM NAME="fullScreen" VALUE="0"><PARAM NAME="SAMIStyle" VALUE=""><PARAM NAME="SAMILang" VALUE=""><PARAM NAME="SAMIFilename" VALUE=""><PARAM NAME="captioningID" VALUE=""><PARAM NAME="enableErrorDialogs" VALUE="0"><PARAM NAME="_cx" VALUE="11906"><PARAM NAME="_cy" VALUE="9790"></OBJECT>
<%
End Function
Function ShowRealPlayer(strUrl)
%>
<OBJECT height=395 width=563 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA id="Playerd"><PARAM NAME="_ExtentX" VALUE="7938"><PARAM NAME="_ExtentY" VALUE="5292"><PARAM NAME="AUTOSTART" VALUE="-1"><PARAM NAME="SHUFFLE" VALUE="0"><PARAM NAME="PREFETCH" VALUE="0"><PARAM NAME="NOLABELS" VALUE="0"><PARAM NAME="SRC" VALUE="<%=strUrl%>"><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 height=60 width=563 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA><PARAM NAME="_ExtentX" VALUE="7938"><PARAM NAME="_ExtentY" VALUE="1588"><PARAM NAME="AUTOSTART" VALUE="0"><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"></OBJECT>
<%
End Function
Function ShowSwfPlayer(strUrl)
%>
<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 height=453 width=563 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 id="Playerd"><PARAM NAME="_cx" VALUE="12674"><PARAM NAME="_cy" VALUE="10636"><PARAM NAME="FlashVars" VALUE=""><PARAM NAME="Movie" VALUE="<%=strUrl%>"<PARAM NAME="Src" VALUE="<%=strUrl%>"<PARAM NAME="WMode" VALUE="Window"><PARAM NAME="Play" VALUE="-1"><PARAM NAME="Loop" VALUE="-1"><PARAM NAME="Quality" VALUE="High"><PARAM NAME="SAlign" VALUE=""><PARAM NAME="Menu" VALUE="-1"><PARAM NAME="Base" VALUE=""><PARAM NAME="AllowScriptAccess" VALUE=""><PARAM NAME="Scale" VALUE="ShowAll"><PARAM NAME="DeviceFont" VALUE="0"><PARAM NAME="EmbedMovie" VALUE="0"><PARAM NAME="BGColor" VALUE=""><PARAM NAME="SWRemote" VALUE=""><PARAM NAME="MovieData" VALUE=""><PARAM NAME="SeamlessTabbing" VALUE="1"><PARAM NAME="Profile" VALUE="0"><PARAM NAME="ProfileAddress" VALUE=""><PARAM NAME="ProfilePort" VALUE="0"><PARAM NAME="AllowNetworking" VALUE="all"><PARAM NAME="AllowFullScreen" VALUE="false">
><embed src="<%=strUrl%>" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=480 height=405></embed></OBJECT>
<%
End Function
Function ShowFlvPlayer(strUrl)
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="563" height="453" id="Playerd">
<param name="movie" value="Flvplayer.swf">
<param name="quality" value="high">
<param name="allowFullScreen" value="true" />
<param name="FlashVars" value="vcastr_file=<%=strUrl%>&LogoText=www.SHiove.com&BufferTime=3" />
<embed src="Flvplayer.swf" allowFullScreen="true" FlashVars="vcastr_file=<%=strUrl%>&LogoText=www.SHiove.com" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="450" height="380"></embed>
</object>
<%
End Function
Function ShowXunleiPlayer(strUrl)
%>
<!--请在页面中需要展现的位置加入代码,尺寸为500x420-->
<script src="http://play.kankan.xunlei.com/u/UPlayer/KKPlayer.js"></script><div id="KKPlayerContainer" width="563" height="420" autoplay="1" unid="22722" source="<%=strUrl%>"></div>
<%
End Function
Function ShowP2PPlayer(strUrl)
%>
<SCRIPT LANGUAGE="JavaScript">
  function CheckPlayer()
  {
  var bobo;
  try
  {
  bobo = new ActiveXObject("BOBO_ACTIVEX_V3.BoBo_V3Ctrl.1");
  if( bobo == null )
  {
  window.alert("请安装BoBo P2P多媒体点播/广播/直播控件!");
  return false;
  }
  }
  catch( e )
  {
  window.alert("请安装BoBo P2P多媒体点播/广播/直播控件!");
  return false;
  }
  delete bobo;
  return true;
  }
  CheckPlayer()
  </SCRIPT>
  
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
              <TBODY>
                <TR>
                  <TD width=563 height=390>
    <object id="Playerd" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" height="100%" width="100%" viewastext="" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" standby="Loading Microsoft Windows Media Player components..." type="application/x-oleobject" style="display:none">
                      <param name="URL" value="" />
                      <param name="animationatStart" value="true" />
                      <param name="autoStart" value="true" />
                      <param name="showControls" value="true" />
                    </object>
                    <div id="hg">
                      <embed name=RealObj src=test.rpm width="100%" height="100%" maintainaspect="true" controls="ImageWindow" console="one"></div></TD>
                </TR><tr><td height="22" valign="bottom">
<object id="Playerd" width="100%" height="22" classid="clsid:EC0978ED-24E3-403C-AB7A-060E388553E6" codebase="http://www.17BoBo.com/Software/BoBo_ActiveX_V3.ocx">
<param name="MaxLinkCount" value="100" />
<param name="MaxCacheTimeS" value="120" />
<param name="MinCacheTimeS" value="60" />
<param name="MaxCacheSizeMB" value="100" />
<param name="MaxDownloadKbps" value="800" />
<param name="MaxUploadKbps" value="500" />
<param name="RealMediaType" value=".mp4,.mp3" />
<param name="AllowDrag" value="1" />
<param name="ActName" value="<%=strUrl%>" />
</object></td></tr></TBODY></TABLE>
<%
End Function
%>

我把这个文件存为PlayMovie.asp,请点击下载点击浏览该文件


ip地址已设置保密
2008-4-8 10:39:00
wvzj
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:12
积分:144
门派:无门无派
注册:2008年6月24日
4
 用支付宝给wvzj付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给wvzj

发贴心情
怎么没人顶?
ip地址已设置保密
2008-6-26 16:40:00
rnsr
帅哥哟,离线,有人找我吗?
等级:待审会员
文章:1
积分:71
门派:无门无派
注册:2008年7月29日
5
 用支付宝给rnsr付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给rnsr

发贴心情
ip地址已设置保密
2008-7-29 1:18:00
lyt77
帅哥哟,离线,有人找我吗?
等级:待审会员
文章:2
积分:88
门派:无门无派
注册:2008年7月23日
6
 用支付宝给lyt77付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给lyt77

发贴心情

playmovie.asp有问题的,如果设置“只有注册用户可以看”

就报错

Microsoft VBScript 运行时错误 错误 '800a005e'

无效使用 Null: 'Replace'

/dy/Include/PowerEasy.Soft.asp,行1676

不知道楼主测试过没?

ip地址已设置保密
2008-8-12 11:24:00
佚仕
帅哥哟,离线,有人找我吗?
等级:超级版主
文章:367
积分:3948
门派:无门无派
注册:2006年12月7日
7
 用支付宝给佚仕付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给佚仕

发贴心情
以下是引用lyt77在2008-8-12 11:24:00的发言:

playmovie.asp有问题的,如果设置“只有注册用户可以看”

就报错

Microsoft VBScript 运行时错误 错误 '800a005e'

无效使用 Null: 'Replace'

/dy/Include/PowerEasy.Soft.asp,行1676

不知道楼主测试过没?

没试过,雪影在线目前的演示地址是用的其他系统(马克斯程序),动易版的地址变为http://www.xueol.com/movie

http://v.xueol.com/

http://mv.jkrj.cn/

上面两个是马克斯内核

http://movie.xueol.com/

这是PHP内核

四个电影系统,你比较一下,再考虑用哪个做电影站吧!!!

ip地址已设置保密
2008-8-12 16:20:00
wangqiang108
帅哥哟,离线,有人找我吗?
等级:待审会员
文章:5
积分:229
门派:无门无派
注册:2008年4月11日
8
 用支付宝给wangqiang108付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给wangqiang108

发贴心情
很喜欢佚仕的作品,请问怎么在播放页调用正在播放影片的其它地址?????
ip地址已设置保密
2008-9-4 16:20:00
佚仕
帅哥哟,离线,有人找我吗?
等级:超级版主
文章:367
积分:3948
门派:无门无派
注册:2006年12月7日
9
 用支付宝给佚仕付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给佚仕

发贴心情
以下是引用wangqiang108在2008-9-4 16:20:00的发言:
很喜欢佚仕的作品,请问怎么在播放页调用正在播放影片的其它地址?????

很简单,用JS调用asp文件,换句话说,就是做一个调用文件,调取该电影ID的所有播放地址,然后用JS的形式在播放页调用。

你可以随便看一下雪儿网络电影频道的内容页的调用方式,其实也可以用在播放页上!

比如:http://www.xueol.com/movie/t1/200808/12979.htm

这个电视剧的播放地址是用这一段调用出来的

<script language="javascript" src="/movie/ShowMvUrl.asp?SoftID=12979"></script>

你把这段原封不动放在播放页也是一样的效果!!!

ip地址已设置保密
2008-9-4 23:06:00
wangqiang108
帅哥哟,离线,有人找我吗?
等级:待审会员
文章:5
积分:229
门派:无门无派
注册:2008年4月11日
10
 用支付宝给wangqiang108付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给wangqiang108

发贴心情
以下是引用佚仕在2008-9-4 23:06:00的发言:

很简单,用JS调用asp文件,换句话说,就是做一个调用文件,调取该电影ID的所有播放地址,然后用JS的形式在播放页调用。

你可以随便看一下雪儿网络电影频道的内容页的调用方式,其实也可以用在播放页上!

比如:http://www.xueol.com/movie/t1/200808/12979.htm

这个电视剧的播放地址是用这一段调用出来的

<script language="javascript" src="/movie/ShowMvUrl.asp?SoftID=12979"></script>

你把这段原封不动放在播放页也是一样的效果!!!


这个代码您能不能帮我变成活的呀,我不会改,比如说我要生成某个电影它就自动连接那个电影的集数!!

还有一个就是我的站有很多问题,能否帮我解决一下

第一     节目区域没有,点击欧美电影、港台、日韩等地区一个电影都没有

第二     就是我在showmvurl.asp加了一个弹出窗口之后全部电影的集数就变成看过电影之后的效果了,有删除线。

谢谢了

ip地址已设置保密
2008-9-5 13:12:00

| 论坛帮助 | 友情链接 | 版权申明 |

雪儿社区 Email:jkrjmail@126.com 站长QQ:408523623 Copyright ©2006 - 2008 Xueol.Com