<%
'程序名称：千纸鹤网站管理系统
'程序作者：千纸鹤
'作者邮箱：qzhxxw@sina.com
'作者 Q Q：138999501
'作者电话：0000000000
'官方主页：http://www.qqzzhh.com/
'官方论坛：http://www.qqzzhh.com/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%
if showdj="no" then
if userlogin="" then
response.write"<script>alert('请重新登陆！');window.close();</script>"
Response.End
end if
end if
if request("action")="" then
call pass()
title="影音娱乐→播放娱乐"
call checkshowcontent()
call top()
%>
<script language="javascript">
top.window.moveTo(0,0);
if (document.all) {
top.window.resizeTo(screen.availWidth,screen.availHeight);
}
else if (document.layers||document.getElementById) {
if (top.window.outerHeight<screen.availHeight||top.window.outerWidth<screen.availWidth){
top.window.outerHeight = screen.availHeight;
top.window.outerWidth = screen.availWidth;}}

Real='document.player.'
function DoPlay()
{eval(Real+'DoPlay()');}
function DoStop()
{eval(Real+'DoStop()');}
function DoPlayPause()
{eval(Real+'DoPlayPause()');}
function SetFullScreen()
{
eval(Real+'SetFullScreen()');
fullscreen=true;
DoPlayPause();
DoPlay();
}
function GetFullScreen()
{
if(eval(Real+'GetFullScreen()'))
return true;
else
return false;
}
</SCRIPT>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td><td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr>
<td valign=top align=center>
<%call br
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_dj where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
%>
<table border="0" cellspacing="0" cellpadding="0" width=100%>
<tr><td class=showtop>&emsp;当前位置：<a href=index.asp>本站首页</a>→<a href=dj.asp>影音娱乐</a>→<%set rs3=server.CreateObject("adodb.recordset")
sql="select * from [YC_djclass] where id="&rs("class")&" order by id desc"
rs3.open sql,conn,1,1
if not rs3.bof and not rs3.eof then
response.Write rs3("classname")
end if
rs3.close
set rs3=nothing%>→<b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td></tr></table>
<table border="0"   cellspacing="0" cellpadding="0" width=100%><tr>
<td  class=showcenter valign=top height=60>
<%
Session("auth") = True 
Response.Expires = 0 
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"
dim djid
djid=cint(request.querystring("id"))
sql="select * from YC_dj where id="&djid
set rs=conn.execute(sql)
dim url,player
url=rs("url")
player=rs("player")
title=rs("title")
content=rs("content")%><center>

<%
if rs("read")=0 then
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "<br><br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "<br><br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
sub main()%>
<table border=1 cellspacing=0 cellpadding=0  frame=void width=100% bordercolor=<%=border%>>
<tr>
<td class=bg height=25 align=center colspan=4><b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td>
</tr>
<tr height=25>
<td class=bg  align=center width=70>娱乐作者：</td><td width=300>&nbsp;<%=rs("singer")%></td>
<td class=bg align=center width=70>娱乐发布：</td><td width=300>&nbsp;<%=rs("user")%></td></tr><tr height=25>
<td class=bg align=center width=70>播放格式：</td>
<td width=300>&nbsp;<%if rs("player")="media" then%>MEDIA视听格式<%elseif rs("player")="mediamtv" then%>MEDIA视频格式
<%elseif rs("player")="real" then%> real视听格式<%elseif rs("player")="realmtv" then%>real视频格式<%elseif rs("player")="flash" then%>Flash格式<%end if%>
</td>
<td class=bg align=center width=70>发表时间：</td><td width=300>&nbsp;<%=rs("date")%></td></tr>
<tr height=25><td class=bg align=center width=70>文件大小：</td><td width=300>&nbsp;<%=rs("size")%></td>
<td class=bg align=center width=70>点击次数：</td><td width=300>&nbsp;<%=rs("click")%>次</td>
</tr>
<tr>
<td valign=top colspan=4>
<%if player="real" then%>
<script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<object classid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" id="player" name="player" width="100%" height="70">  
  <param name="_ExtentX" value="9657">
  <param name="_ExtentY" value="847">
  <param name="AUTOSTART" value="-1">
  <param name="SHUFFLE" value="0">
  <param name="PREFETCH" value="0">
  <param name="NOLABELS" value="0">
  <param name="SRC" value="<%=rs("url")%>">
  <param name="CONTROLS" value="StatusBar,ControlPanel">
  <param name="LOOP" value="-1">
  <param name="NUMLOOP" value="0">
  <param name="CENTER" value="0">
  <param name="EnableContext  Menu"  value="0">
  <param name="ShowDisplay"  value="0">
  <param name="MAINTAINASPECT" value="0">
  <param name="BACKGROUNDCOLOR" value="#000000">
</object>
<%elseif player="media" then%>
<OBJECT id=Player name=Player classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 border="0" width=100% height=70 type=application/x-oleobject standby="Loading Windows Media Player components...">
<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">\n")
<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>
<%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%>
<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
YCMS("<A href='#' title='全屏幕播放，按ESC键还原' onclick='Player.displaysize=3'>全屏播放</A>")
Elseif player="realmtv" then
YCMS("<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("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;※&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;※&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
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 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%>
