个人比较喜欢的两个程序(代码问题求人解决)
音乐小偷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><PARAM 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:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100%" height="100%">
<PARAM NAME="movie"VALUE="<%=url%>"><PARAM 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> 没有人看明白代码吗？ 谁明白这些代码啊:'( pm winsock一百遍啊一百遍 winsock在不在啊:L :) :) 不能听？？？还是 http://so.xtdxs.com/play.asp?ac=t&music=漫漫慢慢%20%20&word=wma,http://219.153.0.72:8088/wma999aa本服务器音乐文件将在月底删除f/new4/1039/YmUz.Wma,,[%C2%FE%C2%FE+%C2%FD%C2%FD+%B0%A2%B6%E4]&si=%C2%FE%C2%FE%C2%FD%C2%FD;;%B0%A2%B6%E4;;0;;0&lm=16777216 呵呵我又看到我当年从官方偷出来的播放器源码了。。。。
只给过几个人，现在传的到处都是，感觉我好伟大。
回复 #8 幽鬼狼魂 的帖子
鬼鬼你们公司的MM呢？...... 不是你的错。是那歌有问题 ;P ;P ;P
页:
[1]
2