HelixApp防盗链系统 - 大哥麻烦进来一下，搞了24小时有小小起色，开个新贴怕你看不到! - 防盗链软件_电影防盗链_flash防盗链_mp3防盗链_图片防盗链_流媒体防盗链_IIS防盗链_Media防盗链

游客，您好

免费注册

用户中心

支持中心

加入收藏

本版版规及导航

·本版禁止灌水，禁发广告帖及友情链接帖子，禁发与本版无关的帖子
·新手提问前请先看固顶帖及版块的精华帖子，常见问题已经在固顶帖或者精华里得到解决
·提问的帖子请将问题问得尽量详细，如方便，可以配以图示

交流论坛 -> 技术交流讨论区 -> HelixApp防盗链系统 -> 大哥麻烦进来一下，搞了24小时有小小起色，开个新贴怕你看不到!

本版专题：

[Real防盗链]

[IIS 防盗链]

[Media防盗链]

大个子西瓜田

您是本贴第 1880 位浏览者

主题：大哥麻烦进来一下，搞了24小时有小小起色，开个新贴怕你看不到!

spolai

等级:

城镇农民

发贴: 4

积分: 8

经验: 0

体力: 0

货币: 0 金币

1楼

大哥麻烦进来一下，搞了24小时有小小起色，开个新贴怕你看不到!

能不能帮我插入防盗的代码啊?我用的是Helix防盗1.5
平时我共两个文件的，一个Yxplay.asp 跟 mix.asp..用两个文件组合播放器
源码如下：Yxplay============
<html>

</head>
<body onload="start()" bgcolor="#ffffff" scroll="no" marginwidth="0" leftmargin="0" topmargin="0" background="images/gradient_background.jpg">
<table cellSpacing="0" cellPadding="0" width="492" border="0" id="table6">
<tr>
  <td width="10"><img height="1" alt="" src="images/-.gif" width="10"></td>
  <td>
  <table cellSpacing="0" cellPadding="0" width="482" border="0" id="table7">
   <tr>
    <td width="434">　</td>
    <td vAlign="top" width="49"><a href="javascript:window.close();">
    <img height="14" alt="Close" src="images/close1.gif" width="49" border="0"></a></td>
   </tr>
  </table>
  <table cellSpacing="0" cellPadding="0" width="472" bgColor="#ffffff" border="0" id="table8">
   <tr>
    <td bgColor="#ffffff" colSpan="5">
    <img height="2" alt="" src="images/-.gif" width="1"></td>
   </tr><%
if IsNumeric(request("id"))=False then
SongName="连播中……"
else
set rs=server.createobject("adodb.recordset")
sql = "SELECT musicname FROM MusicList WHERE id="&int(request("id"))
rs.open sql,conn,1,1
if rs.eof then
SongName="出错了"
else
SongName=rs("MusicName")
end if
rs.close
set rs=nothing
end if
conn.close
set conn=nothing%>
   <tr>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
    <td class="header" width="336" bgcolor="#3F7EB1"> <font color="#FFFFFF">正在播放:<%=SongName%></font></td>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
    <td width="120" bgColor="#3f7eb1">　</td>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
   </tr>
   <tr>
    <td bgColor="#ffffff" colSpan="5">
    <img height="2" alt="" src="images/-.gif" width="1"></td>
   </tr>
   <tr>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
    <td bgColor="#a6e1ff">
    <table cellSpacing="0" cellPadding="5" width="100%" bgColor="#a6e1ff" border="0" id="table9">
     <tr>
      <td>
      <table cellSpacing="0" cellPadding="4" width="100%" bgColor="#ffffff" border="0" id="table10">
       <tr>
        <td>
        <iframe border="0" name="I3" marginWidth="1" marginHeight="0" frameBorder="0" noResize width="321" height="165" src="guangao/2.htm" target="_blank">
        </iframe></td>
       </tr>
      </table>
  <div align="center">
    <center>
  <table border="0" cellspacing="0" width="100%" cellpadding="0" id="table11">
    <tr>
      <td width="100%" align="center">
            <script LANGUAGE="javascript">
var ERR_NonePlayer="365MiX舞之王提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\n播放器将关闭。";
var ERR_FileNotFind="365MiX舞之王提示您:对不起，未发现你要点播的文件。\n\n请更换其他舞曲！";
var ERR_NotLocateServer="365MiX舞之王提示您:无法定位舞曲试听服务器。请更换其他舞曲或稍后再试！";
var ERR_UnkownError="365MiX舞之王提示您:在线用户过多，服务器限制，请抢线或稍后试听！";
      </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.365mix.com"
  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>
<%
Session("365mixchk")="365mixok"
Session("Musicid")=server.URLEncode(request("id"))
Session("Musicid")=server.URLEncode(request("id"))
Dim num
Randomize
num = Int(99999999 * Rnd)
%>
      <script language="javascript">
function start(){
player.Source="mix_new.asp?365mixSessionid=<%=session.sessionid+num%>"
player.DoPlay();
}
      </script>
  <input id=code size="26" value="

http://www.365mix.com/yinyue/yxplay.asp?id=<;%=server.URLEncode(request("id"))%>" onclick=copy name="T1"><INPUT value="复制给好友分享" type=submit onclick=copy()>
<script>
function copy(){
code.select()
document.execCommand('Copy')
}
</script>
<BR>
<center>
    <object ID="RP2" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH="331" HEIGHT="24">
    <param name="_ExtentX" value="8758">
    <param name="_ExtentY" value="635">
    <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">
    <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="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="331" height="24">
        <param name="_ExtentX" value="8758">
        <param name="_ExtentY" value="635">
        <param name="AUTOSTART" value="-1">
        <param name="SHUFFLE" value="0">
        <param name="PREFETCH" value="0">
        <param name="NOLABELS" value="-1">
        <param name="CONTROLS" value="StatusPanel">
        <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>
</center>      <script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
      </script>

</td>
  </tr>
  </table>
    </center>
  </div></td>
     </tr>
    </table>
    </td>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
    <td vAlign="top" bgColor="#a6e1ff">
    <div>
     <%if IsNumeric(request("id"))=true then%><a href="#" onclick="window.open('Box.asp?action=add&id=<%=request("id")%>','add','scrollbars=no,resizable=no,width=10,height=10,menubar=no,top=98,left=198')"><%else%><a href="#"><%end if%>
     <img height="18" alt="Add to Playlist" src="images/add_to_playlist.gif" width="125" border="0" name="player1"></a></div>
    <div>
     <a onmouseover="turnOn('player2');" onclick="ConfirmFirst('In order to rate songs, you must be registered and logged in.  \n\nClick OK to register or log in.  \n\nClick CANCEL to remain on this page.','/MyPlanet/Register.asp?T=2719');" onmouseout="turnOff('player2')">
     <img height="18" alt="Rate/Review" src="images/rate_review.gif" width="125" border="0" name="player2"></a></div>
    <div>
     <%if IsNumeric(request("id"))=true then%><a href=down.asp?id=<%=request("id")%>><%else%><a href="#"><%end if%><img border="0" src="images/download1.gif" width="125" height="18"></a><table border="0" width="100%" id="table12">
      <tr>
       <td>
       <p>　</td>
      </tr>
     </table>
    </div>
    </td>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
   </tr>
   <tr>
    <td bgColor="#ffffff" colSpan="5">
    <img height="2" alt="" src="images/-.gif" width="1"></td>
   </tr>
   <tr>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
    <td bgColor="#2d597c" colSpan="3">
    <img height="2" alt="" src="images/-.gif" width="1"></td>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
   </tr>
   <tr>
    <td bgColor="#ffffff" colSpan="5">
    <img height="2" alt="" src="images/-.gif" width="1"></td>
   </tr>
   <tr>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
    <td colSpan="3">
    <iframe marginWidth="1" marginHeight="0" frameBorder="0" noResize width="468" scrolling="no" height="60" name="I4" src="guangao/1.htm">
    </iframe></td>
    <td width="2" bgColor="#ffffff">
    <img height="1" alt="" src="images/-.gif" width="2"></td>
   </tr>
   <tr>
    <td bgColor="#ffffff" colSpan="5">
    <img height="2" alt="" src="images/-.gif" width="1"></td>
   </tr>
  </table>
  </td>
</tr>
</table>

--------------------------------------------------------

2005-3-30 9:03:55

浏览器：Internet Explorer 6.0 操作系统：Windows XP

spolai

等级:

城镇农民

发贴: 4

积分: 8

经验: 0

体力: 0

货币: 0 金币

2楼

MIX.asp========================
<%
strTemp = Request.ServerVariables("HTTP_USER_AGENT")
strTemp=LCase(strTemp)
If Instr(strTemp,"url") or Instr(strTemp,"mozilla") then
%>
555<BR>播放器出错，本文件不能访问，请正确访问本站资源。谢谢合作！<%else%><%
dim chk365mix
chk365mix=Session("365mixchk")
id=Session("Musicid")

if id<>"" and chk365mix="365mixok" then%><%
serverurl=request("serverurl")

if serverurl="" then
serverurl="pnm://61.142.81.41:554/rm7/"
elseif serverurl="1" then
serverurl=""
elseif serverurl="2" then
serverurl=""
else
serverurl=""
end if

    set rs=server.createobject("adodb.recordset")
    id=replace(id, "%2C+", ", ")
    sql="select * from MusicList where id in (" & id & ")"
    rs.open sql,conn,1,3
    while not rs.eof
urlok=replace(rs("wma"), "'", "%27")
urlok=replace(urlok, " ", "%20")
s=s & "<par>" & vbCrLf
s=s & "<audio src='"&urlok&"' title=""365MiX(舞之王)""/>" & vbCrLf
s=s & "<textstream region=""right"" fill=""freeze"" src=""

http://www.365mix.com/yinyue/mix_mid.asp?id="&rs("id")&"""/>" & vbCrLf
s=s & "</par>" & vbCrLf
rs.movenext
wend
rs.Close
set rs=nothing
%><%
response.contenttype="application/smil"
response.addheader "Content-Disposition","inline; filename=playlist.smil"
response.write "<smil>"&_
"<head>" & vbCrLf &_
"<meta name='title' content='365MiX.CoM(舞之王)'/>" & vbCrLf &_
"<meta name='author' content='365MiX'/>" & vbCrLf &_
"<meta name='copyright' content='(c)2002-2003 舞之王'/>" & vbCrLf &_
"<meta name='base' content='" & serverurl & "'/>" & vbCrLf &_
"<layout>" & vbCrLf &_
"<root-layout width=""350"" height=""250""/>" & vbCrLf &_
"<region id=""right"" top= ""0"" left=""0"" width=""350"" height=""250""/>" & vbCrLf &_
"</layout>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body>" & vbCrLf &_
s & vbCrLf &_
"</body>" & vbCrLf &_
"</smil>"
%><%
Session("365mixchk")=""
Session("Musicid")=""
Session("365mixchk")=""
Session("Musicid")=""
Session("365mixchk")=""
Session("Musicid")=""%><%
else
response.contenttype="text/vnd.rn-RealText"
response.addheader "Content-Disposition","inline; filename=Error.rt"
response.write "<window bgcolor=""#333366"" link=""#000000"" width=""350"" height=""250"" underline_hyperlinks=""false"" wordwrap=""true"">" & vbCrLf &_
  "<font charset=""gb2312""><font face=""宋体"" size=""2"" color=""#FFFFFF""/>" & vbCrLf &_
  "<pos x=""6"" y=""6""/>播放器出现错误，请关闭本窗口，重新播放！" & vbCrLf &_
  "<br/></font/></window>"
end if
%><%end if%>

--------------------------------------------------------

2005-3-30 9:05:08