发新话题
打印

提供给大家一个好的系统,盗链bobo电影的信任域站点的电影

提供给大家一个好的系统,盗链bobo电影的信任域站点的电影

第一步:安装好云网互动影视v5.0 进入后台 电影管理--服务器管理--选择一个P2P的服务器地址改成你要盗链的需要信任域站点的一站图片 比如()图片越小越好
第二步:就可以添加BOBO电影了
第三步:需要修改该系统跟目录下的playp2p.asp这个文件
复制内容到剪贴板
代码:
<STYLE type=text/css>
.font1 {
FONT-SIZE: 12px; COLOR: #ffffff; LINE-HEIGHT: 17px; PADDING-TOP: 3px; TEXT-DECORATION: none
}
A.font1:hover {
FONT-SIZE: 12px; COLOR: #cccccc; LINE-HEIGHT: 17px; PADDING-TOP: 3px; TEXT-DECORATION: none
}
.font2 {
FONT-SIZE: 12px; COLOR: #000000; TEXT-DECORATION: none
}
TD {
FONT-SIZE: 12px; COLOR: #ffffff
}
A {
COLOR: #cccccc; TEXT-DECORATION: none
}
</STYLE>
<%set rst=server.createobject("adodb.recordset")
   sql="select urlp2p from moviep2p where id="&urlid
   rst.open sql,conn,1,1
   real=rst("urlp2p")
   response.Cookies("avii")("url")=real
   rst.close
   set rst=nothing
   set rst=server.createobject("adodb.recordset")
   sql="select * from movie where id="&serverip
   rst.open sql,conn,1,1
   ipsip=rst("ipsipp2p")
   session("ipsip")=ipsip
   rst.close
  set rst=nothing
Set objXML = Server.CreateObject("MSXML2.XMLHTTP")
objXML.open "GET","http://www.ywnt.net/p2p/Video.asp?filename="&real&"&sourceserver="&ipsip&"",false
objXML.send()
set   objStream   =   Server.CreateObject("Adodb.Stream")
objStream.Type   =   1
objStream.Mode   =   3
objStream.Open
objStream.Write   objXML.responseBody
objStream.Position   =   0
objStream.Type   =   2
objStream.Charset   =   "gb2312"
BytesToBstr   =   objStream.ReadText
objStream.Close
%>
<table width="100%" height="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="26" colspan="3"><table width="100%" height="26"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="27"><img src="play/play_1.gif" width="27" height="26" /></td>
        <td width="99%" background="play/play_3.gif"><font color="#0C6AB8"><%=homes%></font></td>
        <td width="65"><img src="play/play_5.gif" width="65" height="26" border="0" usemap="#Map" /></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td width="7" height="100%" background="play/play_11.gif"></td>
    <td width="100%" height="100%" rowspan="2" valign="top"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="30%" height="38" background="play/play_8.gif"></td>
        <td width="58%" background="play/play_8.gif"><font color="#ffffff"><b>影片:<%=rs("title")%></b></font></td>
        <td width="12%" align="center" background="play/play_8.gif"> </td>
      </tr>
      <tr>
        <td height="100%" colspan="3">
        <SCRIPT LANGUAGE="JavaScript">
    function CheckPlayer()
    {
    var bobo;
    try
    {
    bobo = new ActiveXObject("Bobo_ex.BOBOEX.1");
    if( bobo == null )
    {
    window.alert("首次点播将安装播放器插件...");
    parent.window.location.href = "http://www.cnk.name/templets/bobo_ex.exe";
    return false;
    }
    }
    catch( e )
    {
  window.alert("首次点播将安装播放器插件...");
  parent.window.location.href = "http://www.cnk.name/templets/bobo_ex.exe";
    return false;
    }
    delete bobo;
    return true;
    }
    CheckPlayer()
  </SCRIPT>
        <OBJECT ID="BOBOEx" CLASSID="CLSID:C04A6A04-731D-44F8-B246-7F716A5BD478"  width="100%" height="100%" align="center" data="DATA:application/x-oleobject;BASE64,BGpKwB1z+ESyRn9xalvUeAADAADHNgAA0isAAAgAAAAAAA==" border="0">
  </OBJECT>
  <script>
  BOBOEx.WebParam = "?id=";
  BOBOEx.Start();
  </script>
        </td>
      </tr>
    </table></td>
    <td width="7" background="play/play_13.gif"> </td>
  </tr>
  <tr>
    <td height="67"><img src="play/play_16.gif" width="7" height="67" /></td>
    <td><img src="play/play_18.gif" width="7" height="67" /></td>
  </tr>
  <tr>
    <td height="5"><img src="play/play_19.gif" width="7" height="5" /></td>
    <td height="5" background="play/play_20.gif"></td>
    <td><img src="play/play_22.gif" width="7" height="5" /></td>
  </tr>
</table>
直接覆盖就可以了

第四步:需要在你的网站的根目录下建立一个文件夹bobo 其下也建立2个文件夹 一个为conf   该文件夹下的默认文件里面写的代码为
复制内容到剪贴板
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%=session("ipsip")%>
一个为JS    该文件夹下的默认文件里面写的代码为
复制内容到剪贴板
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
var body_content ="<div style=\"position:absolute; top:0px; left:0px; width:110%; height:100%;\" >";
body_content += "<EMBED NAME=RealObj SRC=\"test.rpm\" height=\"362\" width=\"540\" CONSOLE=one CONTROLS=ImageWindow MAINTAINASPECT=true>";
body_content += "<Object id=\"BoBo\" width='540' height=23 classid='clsid:EC0978ED-24E3-403C-AB7A-060E388553E6' codebase='http://www.17bobo.com/Software/BoBo_ActiveX_V3.ocx' VIEWASTEXT>";
body_content +="<PARAM NAME=\"MaxCacheTimeS\" VALUE=100>";
body_content +="<PARAM NAME=\"MinCacheTimeS\" VALUE=30>";
body_content +="<PARAM NAME=\"MaxCacheSizeMB\" VALUE=100>";
body_content +="<PARAM NAME=\"MaxDownloadKbps\" VALUE=600>";
body_content +="<PARAM NAME=\"MaxUploadKbps\" VALUE=800>";
body_content +="<PARAM NAME=\"ActName\" VALUE='<%=request.Cookies("avii")("url")%>'>";
body_content +="<PARAM NAME=\"MinHTTPPort\" VALUE=6868>";
body_content +="<PARAM NAME=\"MinTCPPort\" VALUE=12888>";
body_content +="<PARAM NAME=\"MinUDPPort\" VALUE=6598>";
body_content +="<PARAM NAME=\"RealMediaType\" VALUE=\".rm,.rmvb,\">";
body_content +="</Object>";
body_content +="</div>";
document.body.innerHTML = body_content;
就这样OK了

演示站点http://yunnet.c003.oyksoft.com/movie.asp?id=30

附件

云网5.2本站插件.rar (2.34 KB)

2007-6-15 10:47, 下载次数: 110

这个是本站已经写好的上面的几个文件,提供大家下载测试,直接覆盖就OK

TOP

我看到你的文章很有价值,也为我们小站长提供可有之处,希望你把新的程序云网互动影视v6.1.0收改插件发出来好吗?

TOP

TOP

可以留个QQ吗?我的QQ195573346

TOP

发新话题