showdj.asp

学校网站管理系统

</table>
</td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt8"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt9"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt10"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt11"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt12"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt13"></td></tr>
</table>
</div>
<object classid="clsid:6bf52a52-394a-11d3-b153-00c04f79faa6" id="aboutplayer" width="100%" height="63">
<param name="url" value="<%=url%>">
<param name="volume" value="100">
<param name="enablecontextmenu" value="0">
<param name="enableerrordialogs" value="0">
  <param name="rate" value="1">
  <param name="balance" value="0">
  <param name="currentPosition" value="0">
  <param name="defaultFrame" value>
  <param name="playCount" value="1">
  <param name="autoStart" value="-1">
  <param name="currentMarker" value="0">
  <param name="invokeURLs" value="-1">
  <param name="baseURL" value>
  <param name="mute" value="0">
  <param name="uiMode" value="full">
  <param name="stretchToFit" value="0">
  <param name="windowlessVideo" value="0">
  <param name="enabled" value="-1">
  <param name="fullScreen" value="0">
  <param name="SAMIStyle" value>
  <param name="SAMILang" value>
  <param name="SAMIFilename" value>
  <param name="captioningID" value>
  <param name="_cx" value="20161">
  <param name="_cy" value="1667">
</object>
<script language="JavaScript">
try {idDownload.startDownload("<%=rs("lrc")%>",lrcrun);} catch(hh){}
</script>
<%elseif player="flash" then%> 
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" WIDTH="100%" height="500"><PARAM NAME=movie VALUE="<%=url%>"><PARAM NAME=quality VALUE=high>
  <EMBED src="<%=url%>" loop=false menu=false quality=high WIDTH="100%" height="500" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED></OBJECT>     
<%elseif player="realmtv" then%>
      <script LANGUAGE="javaScript">              
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="播放器提示您:无法定位舞曲服务器。请更换其他舞曲！";
var ERR_UnkownError="播放器提示您:在线用户过多，服务器限制，请抢线或稍后观看！";
      </script>
      <object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="100%" height="400">
        <param name="_ExtentX" value="20161">
        <param name="_ExtentY" value="10583">
        <param name="AUTOSTART" value="-1">
        <param name="SHUFFLE" value="0">
        <param name="PREFETCH" value="0">
        <param name="NOLABELS" value="0">
        <param name="SRC" value="<%=url%>">
        <param name="CONTROLS" value="imagewindow,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>
      <script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
      </script>
<%elseif player="mediamtv" then%>
<script language="javascript">
<!--
var str
str="<%=url%>";
document.write ("<OBJECT id=Player name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border=\"0\" width=100% height=500 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-mplayer\" pluginspage=\"http://www.microsoft.com/windows/mediaplayer/download/default.asp\" Name=\"Player\" width=\"320\" height=\"310\" border=\"0\" SHOWSTATUSBAR=\"-1\" SHOWCONTROLS=\"0\" SHOWGOTOBAR=\"0\" SHOWDISPLAY=\"-1\" INVOKEURLS=\"-1\" AUTOSTART=\"1\" CLICKTOPLAY=\"0\" DisplayForeColor=\"12945678\">\n")
document.write ("</OBJECT>\n")
//-->
</script><%end if%>
</td></tr>
<tr><td class=70c8f8 height=25 align=center colspan=4>相关说明 [<a href="showdj.asp?action=djerror&id=<%=djid%>">报告错误</A>]
<%if downdj=0 then%>
[<a href="downdj.asp?id=<%=djid%>">文件下载</A>]<%end if%> 
<%
if player="mediamtv" then
YCMS("<A href='#' title='全屏幕播放，按ESC键还原' onclick='Player.displaysize=3'>全屏播放</A>")
Elseif player="realmtv" then
YCMS("<input type=""button"" onclick=""if (document.player.GetPlayState()==3) document.player.SetFullScreen()"" name value=""全屏播放"" style=""border-style: ridge; border-width: 1"">")
end if
%>
</td></tr>
<tr>
<td height=60  valign=top colspan=4 style="padding:3px"><blockquote><%=content%></blockquote></td></tr>
<tr><td class=70c8f8 colspan=4 style="padding:2px">
<%call nextdata("YC_dj","showdj","个")%> 　</td></tr>
</table>
<%end sub%>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0" width=100%><tr><td class=showfoot></td></tr></table>
<table border=0  cellspacing="0" cellpadding="0" align=center width=100%>
<tr align=middle><td width=5></td>
<td width=370 height=150 align=right>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;点击排行</td>
<td class=showtopright></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td  class=showcenterleft></td>
<td valign=top class=showcentercenter  height=180>
<%
call br()
set rstop=server.createobject("adodb.recordset")
if request.querystring("class")<>"" then
sql="select * from [YC_dj] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [YC_dj] where pass=true order by click DESC"
end if
rstop.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rstop.eof
%><tr height=17><td>·<a href="showdj.asp?id=<%=rstop("id")%>" title="娱乐名称：<%=rstop("title")%><br>娱乐作者：<%=rstop("singer")%><br>发表会员：<%=rstop("user")%><br>文件大小：<%=rstop("size")%><br>发表日期：<%=rstop("date")%><br>点击次数：<%=rstop("click")%>次"><%=YC_Kill_Word(rstop("title"),30)%></font></a></td><td width=65><%=rstop("date")%></td></tr>
<%n=n+1
if n=10 then exit do end if
rstop.movenext
loop
if rstop.eof and rstop.bof then
response.write "<center><font color=red><b>没有相关娱乐！<b></font></center>"
end if
response.write "</table>"
rstop.close
set rstop=nothing
call br()
%>
</td>
<td class=showcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD>
<td width=5></td>
<td  width=370 height=150 align=left>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;本站推荐</td>
<td class=showtopright></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td  class=showcenterleft></td>
<td valign=top class=showcentercenter  height=180>
<%
call br()
set rsbest=server.createobject("adodb.recordset")
sql="select * from [YC_dj] where pass=true and best=true order by id DESC"
rsbest.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rsbest.eof%><tr height=17><td>·<a href="showdj.asp?id=<%=rsbest("id")%>" title="娱乐名称：<%=rsbest("title")%><br>娱乐作者：<%=rsbest("singer")%><br>发表会员：<%=rsbest("user")%><br>文件大小：<%=rsbest("size")%><br>发表时间：<%=rsbest("date")%><br>阅读次数：<%=rsbest("click")%>次"><%=YC_Kill_Word(rsbest("title"),30)%></a></td><td width=65><%=rsbest("date")%></td></tr>
<%n=n+1
if n=10 then exit do end if
rsbest.movenext
loop
if rsbest.eof and rsbest.bof then
response.write "<center><font color=red><b>没有推荐娱乐！<b></font></center>"
end if
response.write "</table>"
rsbest.close
set rsbest=nothing
call br()
%>
</td><td class=showcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td><td class=showfootcenter></td><td class=showfootright></td>
</tr>
</table>
<%call br()%>
</TD><td width=5></td>
</TR></table>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_dj where id="&request.querystring("id")
rs.open sql,conn,1,3
if pldj=0 then
call pl("YC_dj",rs("id"))
else
%><table border="0" cellspacing="0" cellpadding="0" width=100%>
<tr>
<td class=showtop>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;网友评论</td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0" width=100%><tr>
<td  class=showcenter valign=top>
<table  width=100% border=1 bordercolor=<%=border%> rules=rows frame=void  cellspacing=0 cellpadding=0>
<tr height=40><td align=center><font color=red><b>您好！管理员暂时屏蔽了娱乐评论！</b></font></td></tr>
</table>
</TD></TR></table>
<%
end if
rs.close
set rs=nothing
call br%>
</td></tr></table>
</td><td class=right></td></tr></table>
<%
call foot()
end if
if request.querystring("action")="djerror" then
sql="select * from YC_dj where id="&request.querystring("id")
set rs=conn.execute(sql)
sql="UPDATE YC_dj SET error=error+1 where id="&request.querystring("id")
conn.execute(sql)
rs.close
set rs=nothing
Response.write "<script>alert('谢谢你发现了错误的链接，我们会尽快恢复歌曲连接！');window.close();</script>"
end if%>