showdj.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width=100% height=400>
<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="<%=rs("url")%>">
<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> 
<script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<%elseif player="mediamtv" then%>
<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")
<param name="AudioStream" value="-1">
<param name="AutoSize" value="0">
<param name="AutoStart" value="-1">
<param name="AnimationAtStart" value="-1">
<param name="AllowScan" value="-1">
<param name="AllowChangeDisplaySize" value="-1">
<param name="AutoRewind" value="0">
<param name="Balance" value="10">
<param name="BaseURL" value>
<param name="BufferingTime" value="5">
<param name="CaptioningID" value>
<param name="ClickToPlay" value="-1">
<param name="CursorType" value="0">
<param name="CurrentPosition" value="-1">
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="DisplayBackColor" value="0">
<param name="DisplayForeColor" value="16777215">
<param name="DisplayMode" value="0">
<param name="DisplaySize" value="4">
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="0">
<param name="EnablePositionControls" value="-1">
<param name="EnableFullScreenControls" value="0">
<param name="EnableTracker" value="-1">
<param name="Filename" value="godj.asp?action=media&id=<%=djid%>">
<param name="InvokeURLs" value="-1">
<param name="Language" value="-1">
<param name="Mute" value="0">
<param name="PlayCount" value="0">
<param name="PreviewMode" value="0">
<param name="Rate" value="1">
<param name="SAMILang" value>
<param name="SAMIStyle" value>
<param name="SAMIFileName" value>
<param name="SelectionStart" value="0">
<param name="SelectionEnd" value="0">
<param name="SendOpenStateChangeEvents" value="-1">
<param name="SendWarningEvents" value="-1">
<param name="SendErrorEvents" value="-1">
<param name="SendKeyboardEvents" value="0">
<param name="SendMouseClickEvents" value="0">
<param name="SendMouseMoveEvents" value="0">
<param name="SendPlayStateChangeEvents" value="-1">
<param name="ShowCaptioning" value="0">
<param name="ShowControls" value="-1">
<param name="ShowAudioControls" value="-1">
<param name="ShowDisplay" value="0">
<param name="ShowGotoBar" value="0">
<param name="ShowPositionControls" value="-1">
<param name="ShowStatusBar" value="-1">
<param name="ShowTracker" value="-1">
<param name="TransparentAtStart" value="0">
<param name="VideoBorderWidth" value="0">
<param name="VideoBorderColor" value="0">
<param name="VideoBorder3D" value="0">
<param name="Volume" value="0">
<param name="WindowlessVideo" value="0">
<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">
</OBJECT>
<%end if%>
</td></tr>
<tr><td class=bg 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
Huaihi("<A href='#' title='全屏幕播放，按ESC键还原' onclick='Player.displaysize=3'>全屏播放</A>")
Elseif player="realmtv" then
Huaihi("<a href='#' title='全屏幕播放，按ESC键还原' onclick='SetFullScreen()'>全屏播放</a>")
end if
%>
</td></tr>
<tr>
<td height=60  valign=top colspan=4 style="padding:3px"><blockquote><%=content%></blockquote></td></tr>
<tr><td class=bg colspan=4 style="padding:2px">
<%call nextdata("Huaihi_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;※&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 [Huaihi_dj] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [Huaihi_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")%>次"><%=Huaihi_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;※&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 [Huaihi_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")%>次"><%=Huaihi_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 Huaihi_dj where id="&request.querystring("id")
rs.open sql,conn,1,3
call pl("dj",rs("id"))
rs.close
set rs=nothing
call br%>
</td></tr></table>
</td><td class=right></td></tr></table>
<%rs.close
set rs=nothing
call foot()
end if
if request.querystring("action")="djerror" then
sql="select * from Huaihi_dj where id="&request.querystring("id")
set rs=conn.execute(sql)
sql="UPDATE Huaihi_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%>