showdj.asp

本程序采用花香内核

}
function GetFullScreen()
{
if(eval(Real+'GetFullScreen()'))
return true;
else
return false;
}
</SCRIPT>
<script LANGUAGE="javaScript">              
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="播放器提示您:无法定位舞曲服务器。请更换其他舞曲！";
var ERR_UnkownError="播放器提示您:在线用户过多，服务器限制，请抢线或稍后观看！";
</script>
<table width="420" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="20" align="center"><a href="#" title="全屏幕欣赏，按ESC键还原。" style="CURSOR: hand" onclick=SetFullScreen()>全屏欣赏</a>
</td></tr>
<tr><td height="300" align="center" valign="bottom">
<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width=400 height=352>
<PARAM NAME="_ExtentY" VALUE="3836">
                <PARAM NAME="AUTOSTART" VALUE="-1">
                <PARAM NAME="SHUFFLE" VALUE="0">
                <PARAM NAME="PREFETCH" VALUE="0">
                <PARAM NAME="NOLABELS" VALUE="-1">
                <param name="SRC" value="<%=djurl%>";>
                <param name="CONTROLS" value="Imagewindow,StatusBar,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">
</object>
</td></tr></table>
<script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<%elseif djpic="asfmtv" then%>
<table width="420" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="20" align="center">
<A href="#" title="全屏幕欣赏，按ESC键还原。" onclick="Player.displaysize=3">全屏欣赏</A></td></tr>
<tr><td height="300" align="center" valign="bottom">
<script language="javascript">
<!--
var str
str="url.asp?action=wma&dj_id=<%=djid%>";
document.write ("<OBJECT id=Player name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border=\"0\" width=400 height=352 type=application/x-oleobject standby=\"Loading Windows Media Player components...\">\n")
document.write ("<param name=\"AudioStream\" value=\"-1\">\n")
document.write ("<param name=\"AutoSize\" value=\"0\">\n")
document.write ("<param name=\"AutoStart\" value=\"-1\">\n")
document.write ("<param name=\"AnimationAtStart\" value=\"-1\">\n")
document.write ("<param name=\"AllowScan\" value=\"-1\">\n")
document.write ("<param name=\"AllowChangeDisplaySize\" value=\"-1\">\n")
document.write ("<param name=\"AutoRewind\" value=\"0\">\n")
document.write ("<param name=\"Balance\" value=\"10\">\n")
document.write ("<param name=\"BaseURL\" value>\n")
document.write ("<param name=\"BufferingTime\" value=\"5\">\n")
document.write ("<param name=\"CaptioningID\" value>\n")
document.write ("<param name=\"ClickToPlay\" value=\"-1\">\n")
document.write ("<param name=\"CursorType\" value=\"0\">\n")
document.write ("<param name=\"CurrentPosition\" value=\"-1\">\n")
document.write ("<param name=\"CurrentMarker\" value=\"0\">\n")
document.write ("<param name=\"DefaultFrame\" value>\n")
document.write ("<param name=\"DisplayBackColor\" value=\"0\">\n")
document.write ("<param name=\"DisplayForeColor\" value=\"16777215\">\n")
document.write ("<param name=\"DisplayMode\" value=\"0\">\n")
document.write ("<param name=\"DisplaySize\" value=\"4\">\n")
document.write ("<param name=\"Enabled\" value=\"-1\">\n")
document.write ("<param name=\"EnableContextMenu\" value=\"0\">\n")
document.write ("<param name=\"EnablePositionControls\" value=\"-1\">\n")
document.write ("<param name=\"EnableFullScreenControls\" value=\"0\">\n")
document.write ("<param name=\"EnableTracker\" value=\"-1\">\n")
document.write ("<param name=\"Filename\" value='" + str + "'>\n")
document.write ("<param name=\"InvokeURLs\" value=\"-1\">\n")
document.write ("<param name=\"Language\" value=\"-1\">\n")
document.write ("<param name=\"Mute\" value=\"0\">\n")
document.write ("<param name=\"PlayCount\" value=\"0\">\n")
document.write ("<param name=\"PreviewMode\" value=\"0\">\n")
document.write ("<param name=\"Rate\" value=\"1\">\n")
document.write ("<param name=\"SAMILang\" value>\n")
document.write ("<param name=\"SAMIStyle\" value>\n")
document.write ("<param name=\"SAMIFileName\" value>\n")
document.write ("<param name=\"SelectionStart\" value=\"0\">\n")
document.write ("<param name=\"SelectionEnd\" value=\"0\">\n")
document.write ("<param name=\"SendOpenStateChangeEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendWarningEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendErrorEvents\" value=\"-1\">\n")
document.write ("<param name=\"SendKeyboardEvents\" value=\"0\">\n")
document.write ("<param name=\"SendMouseClickEvents\" value=\"0\">\n")
document.write ("<param name=\"SendMouseMoveEvents\" value=\"0\">\n")
document.write ("<param name=\"SendPlayStateChangeEvents\" value=\"-1\">\n")
document.write ("<param name=\"ShowCaptioning\" value=\"0\">\n")
document.write ("<param name=\"ShowControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowAudioControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowDisplay\" value=\"0\">\n")
document.write ("<param name=\"ShowGotoBar\" value=\"0\">\n")
document.write ("<param name=\"ShowPositionControls\" value=\"-1\">\n")
document.write ("<param name=\"ShowStatusBar\" value=\"-1\">\n")
document.write ("<param name=\"ShowTracker\" value=\"-1\">\n")
document.write ("<param name=\"TransparentAtStart\" value=\"0\">\n")
document.write ("<param name=\"VideoBorderWidth\" value=\"0\">\n")
document.write ("<param name=\"VideoBorderColor\" value=\"0\">\n")
document.write ("<param name=\"VideoBorder3D\" value=\"0\">\n")
document.write ("<param name=\"Volume\" value=\"0\">\n")
document.write ("<param name=\"WindowlessVideo\" value=\"0\">\n")
document.write ("<embed type=\"application/x-mplayer2\" pluginspage=\"http://www.microsoft.com/windows/mediaplayer/download/default.asp\" Name=\"Player\" width=\"360\" height=\"70\" border=\"0\" SHOWSTATUSBAR=\"-1\" SHOWCONTROLS=\"0\" SHOWGOTOBAR=\"0\" SHOWDISPLAY=\"-1\" INVOKEURLS=\"-1\" AUTOSTART=\"1\" CLICKTOPLAY=\"0\" DisplayForeColor=\"12945678\">\n")
document.write ("</OBJECT>\n")
//-->
</script>
</td></tr></table>
<%end if%>
</td>
</tr>
<tr> 
<td height="30" align="center" width="15%">演唱歌手</td>
<td width="30%">&nbsp;<%=djuser%></td>
</tr>
<tr> 
<td height="30" align="center">视听次数</td>
<td >&nbsp;<font color=red><b><%=djcount%></b></font>　</td>
</tr>
<tr> 
<td height="30" align="center">下载次数</td>
<td >&nbsp;<b><%=djdcount%></b>　</td>
</tr>
<tr> 
<td height="30" align="center">音乐类别</td>
<td >&nbsp;<%=djpic%>　</td>
</tr>
<tr> 
<td height="30" align="center">推荐程度</td>
<td>&nbsp;<%=djdesc%></td>
</tr>
<tr> 
<td height="30" align="center">评论次数</td>
<td>&nbsp;<%=reviewcount%></td>
</tr>
<tr> 
<td height="30" align="center">复制本页</td>
<td>&nbsp;<a href='#' title="复制本页网址发给你的朋友" onclick='copyUrl(document.all.size)'>复制<a></td>
</tr>
<tr> 
<td height="30" align="center">歌曲下载</td>
<td>&nbsp;<a href="opendj.asp?dj_id=<%=djid%>&url=" title="下载本歌曲">下载</a></td>
</tr>
<tr> 
<td height="30" align="center">报告错误</td>
<td >&nbsp;<a href="showdj.asp?action=djerror&dj_id=<%=djid%>">发送</a>
</td>
</tr>
<tr> 
<td height="30" align="center" width="15%">发布会员</td>
<td>&nbsp;<%=tjuser%></td>
</tr>
<tr> 
<td width=100% colspan=3 style="display:block;padding:0px 20px;LINE-HEIGHT: 180%">&nbsp;</td>
</tr> 
</table>
<%Response.Write "<table width=""98%"" align=""center""><tr><td align=""left"">" & vbCrLf
set RelationArt = conn.execute("select top 1 dj_id,dj_name from dj where dj_id<"&request.querystring("dj_id")&" and passed=0 order by dj_date desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上首歌曲：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上首歌曲：</font><a href=""showdj.asp?dj_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 dj_id,dj_name from dj where dj_id>"&request.querystring("dj_id")&" and passed=0 order by dj_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下首歌曲：</font>已经没有了"   
else
Response.Write "<font color=red>·下首歌曲：</font><a href=""showdj.asp?dj_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
Set RelationArt=Nothing 
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
%>
<table width="758"  border="0" align="center" cellspacing="0" cellpadding="0"  class="table-shangxia"><tr><td height="23"  class="a1">　相关说明</td></tr></table>
<table align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
    <TR> 
      <TD style="display:block;padding:0px 10px;LINE-HEIGHT: 180%"> 
☉本站部分歌曲来自网络,版权归原作者所有!如有版权问题敬请联系我们,谢谢!<br>
        ☉由于网络原因有的歌曲连接较慢，请耐心等待！<br>
        ☉如发现此歌曲错误链接,请点击发送错误报告，谢谢你的支持！<br> 
      </TD>
    </TR>  
</table>
<%if point_dj="1" then%>
<table width="758"  border="0" align="center" cellspacing="0" cellpadding="0"  class="table-shangxia"><tr><td height="23"  class="a1">　相关评论 <font color=#CC0000><%=reviewcount%></font> 篇,当前显示最新的 <font color=#CC0000>5</font> 篇</td></tr></table>
<table width="98%" align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
<%if review<>"" then
temp=split(Trim(review),"|")
for i = 1 to 5%>
<tr><td style="LINE-HEIGHT: 180%"><%=temp(i)%></td></tr>
<%
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr><td align="right"><a href="view.asp?action=dj&dj_id=<%=request.querystring("dj_id")%>">[查看更多评论] [发表我的评论] </a>&nbsp;&nbsp;</td></tr>  
</table>
<%elseif point_dj="0" then%>
<table width="100%" cellpadding="5" cellspacing="0" border="0">
<tr><td align="center">【音乐评论已关闭】</td></tr></table>
<%End If%>
</table>
<%
call footer()%>
<%end if%>
<%if request.querystring("action")="djerror" then
sql="select * from dj where dj_id="&djid
set rs=conn.execute(sql)
sql="UPDATE dj SET error = error + 1 where dj_id="&djid
conn.execute(sql)
rs.close
set rs=nothing
Response.write "<script language = 'javascript'>alert('谢谢你发现了错误的链接,感谢你向我们报告了错误,我们会尽快恢复歌曲连接!');</script>"
Response.write "<p align=""center"" height=""100"" style=""font-size:14px;color:#ff0000;"">错误报告已经发出，谢谢你的支持！<BR><BR><a href=""index.asp""> << 返回首页</a></p>"
end if%>