|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？注册
×
音乐小偷
http://www.5no.cn/music/index.asp
多用户播放器
http://www.5no.cn/player/index.asp
小偷是JG兄弟送我的
不过播放界面有点问题
谁能帮忙看下代码
错误演示地址
http://www.5no.cn/music/play.asp?ac=t&music=北京的月亮%20%20&word=mp3,http://fsk.fushikang.cn/mp3/YmNpbGhnbHFlYzM$.mp3,,[%B1%B1%BE%A9%B5%C4%D4%C2%C1%C1+%B0%A2%C5%A3]&si=%B1%B1%BE%A9%B5%C4%D4%C2%C1%C1;;%B0%A2%C5%A3;;65567;;65567&lm=16777216
代码如下
<!--#include file="inc.asp"--><%
dim url,lrcurl,musicname,action,art
url=request("url")
lrcurl=request("lrcurl")
musicname=request("music")
action=lcase(trim(request("ac")))
if action="t" then
dim qstr,thethie
qstr=request.querystring
qstr=replace(qstr,"ac=t&music=","http://220.181.27.54/m?ct=134217728&tn=baidumt,")
'response.write qstr:response.end
thethie=GetPage(qstr)
'response.write thethie:response.end
art=GetContent(TheThie,"<div id=""singer"" style=""display:none"">","</div>",0)
musicname=GetContent(TheThie,"<div id=""song"" style=""display:none"">","</div>",0)
url=GetContent(TheThie,"<a id=""song_url"" href=""","""",0)
end if
musicname=replace(musicname,"</font>","")
if url="" then
response.redirect "/"
response.end
end if
dim runsys
runsys="mp"
if lcase(request("t"))="r" then runsys="rp"
if lcase(request("t"))="s" then runsys="swf"
if Lcase(right(url,3))=".rm" or Lcase(right(url,3))="mvb" then runsys="rp"
if Lcase(right(url,3))="swf" then runsys="swf"
%>
<html>
<head>
<script language="JavaScript">
<!-- Funny text script by Bart Jellema
var hellotext="我牛哦-WWW.5NO.CN 音乐频道欢迎你！"
var thetext=""
var started=false
var step=0
var times=1
function welcometext()
{
times--
if (times==0)
{
if (started==false)
{
started = true;
window.status = hellotext;
setTimeout("anim()",1);
}
thetext = hellotext;
}
}
function showstatustext(txt)
{
thetext = txt;
setTimeout("welcometext()",4000)
times++
}
function anim()
{
step++
if (step==7) {step=1}
if (step==1) {window.status='>==='+thetext+'===<'}
if (step==2) {window.status='=>=='+thetext+'==<='}
if (step==3) {window.status='>=>='+thetext+'=<=<'}
if (step==4) {window.status='=>=>'+thetext+'<=<='}
if (step==5) {window.status='==>='+thetext+'=<=='}
if (step==6) {window.status='===>'+thetext+'<==='}
setTimeout("anim()",200);
}
// Funny text script by Bart Jellema -->
</script>
<title><%if musicname<>"" then response.write musicname&"--" end if%>免费mp3下载 我牛哦音乐频道同步音乐正在为您播放!****</title>
<link rel="stylesheet" type="text/css" href="images/play.css" />
<OBJECT classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" onreadystatechange="if (this.readyState==4) this.Click();" VIEWASTEXT>< ARAM name="Command" value="Maximize"></OBJECT>
</head>
<body onLoad="welcometext()">
<body background="images/bg.jpg">
<body scroll="no">
<br><br>
<div align="center"><font color=red>如缓冲慢，无法播放，请阁下另选服务器视听</font></div>
<% if runsys="swf" then%>
<OBJECT ID="movie" classid="clsid 27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100%" height="100%">
<ARAM NAME="movie" VALUE="<%=url%>"><ARAM NAME=quality VALUE=high><embed src="<%=url%>" loop=false menu=false quality=high height="100%" width="102%" TYPE=application/x-shockwave-flash PLUGINSPAGE=http://www.macromedia.com/shockwave/download/index.cgi?P1_Pro d_Version=ShockwaveFlash type="application/x-shockwave-flash">
</OBJECT>
<%else%>
<table align="center">
<tr>
</td>
</tr>
<tr>
<td>
<%if runsys="rp" then%>
<object classid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" id="feiyes_player" width="400" height="60">
<param name="_ExtentX" value="12383">
<param name="_ExtentY" value="1667">
<param name="AUTOSTART" value="-1">
<param name="PlayCount" value="5">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="<%=url%>"> <param name="CONTROLS" value="StatusBar,ControlPanel">
<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>
<%else%>
<object classid="clsid:6bf52a52-394a-11d3-b153-00c04f79faa6" id="feiyes_player" width="400" height="96">
<param name="url" value="<%=url%>">
<param name="volume" value="100">
<param name="enablecontextmenu" value="0">
<param name="enableerrordialogs" value="0">
</object>
<%end if%>
</td>
</tr>
</table><div align="center">
<iframe name="Aspxplrc" id="Aspxplrc" src="lrc.asp?t=<%=runsys%>&music=<%=musicname%>" width="400" height="240" scrolling="no">
</iframe></div>
<center>
<table width="400">
<tr style="position:relative; top: -0px;left:0px;" >
<td align="left"><b>
<input type=button class="button" value="换歌词" onclick='javascript:window.showModalDialog("set.htm", self, "dialogHeight:170px; dialogWidth:320px;dialogtop:500px; status:0; help:0; scroll:0");'>
<a href="http://lrc.aspxp.net/Guest_Add.asp?ti=<%=musicname%>" target="_blank"><font color=lime size=3><b>上传歌词</b></font></a>
<br>
</b></td></tr>
</table>
<table align="center" width="400"><tr><td>
<b>
<font color=red>下载歌曲--＞＞</font></b>
; ; ; ;
<B><span><a href="<%=URL%>" target="MUSIC"><font color=lime><b><%=MUSICNAME%></b></font></a><br><font color=red>歌曲地址--＞＞</font><a href="<%=URL%>" target="MUSIC"><font color=lime><b><%=URL%></b></font></a>
</span>
</b>
</td></table>
</center>
<div align="center">
<script language=javascript>
function loadlrc(ar,al,ti)
{
var Mstr;
Mstr=ti;
if (!al==""){ti=al+"-"+Mstr}
if (!ar==""){ti=ar+"-"+Mstr}
<%if runsys="mp" then%>
Aspxplrc.location="lrc.asp?t=mp&music="+Mstr
<%else%>
Aspxplrc.location="lrc.asp?t=rp&music="+Mstr
<%end if%>
}
</script>
<%END IF%>
<br>
<table width="200" border="0">
<tr>
<td><div align="center"><font color="#ffffff">我牛哦-WWW.5NO.CN</font></div></td>
</tr>
<tr>
</tr>
<tr>
<td>
<div align="center">
访客统计
</div></td>
</tr>
</table>
</div>
</body>
</html> |
|
IP卡
狗仔卡
发表于 2007 年 4 月 28 日 10:29:37
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
