showdj.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/inc.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
dim djid
djid=YC_post("娱乐ID",request.querystring("id"),1,0,0) 
title="影音娱乐→查看娱乐→"&showtitle("YC_dj",djid)
execute(loadskin(skinmode))
call NowWhere("查看娱乐","showdj.asp?id="&djid)
YC_sql("update [YC_dj] set click=click+1 where id="&djid)
sql="select title,color,pass,user,singer,date,commend,click,content,pic,reads,exper,class,bigclass from [YC_dj] where pass=1 and id="&djid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
YCGO("error.asp?action=error&text="&server.urlencode("该数据不存在……")&"")
else
dim dj(13)
dj(0)=rs("title")
dj(1)=rs("color")
dj(2)=rs("class")
dj(3)=rs("bigclass")
dj(4)=rs("date")
dj(5)=rs("click")
dj(6)=rs("pic")
dj(7)=rs("user")
dj(8)=rs("commend")
dj(9)=rs("content")
dj(10)=rs("reads")
dj(11)=rs("exper")
dj(12)=rs("singer")
dj(13)=rs("pass")
if dj(13)="0" then 
YCGO("error.asp?action=error&text="&server.urlencode("该娱乐正在审核中……")&"")
end if
end if
rs.close
set rs=nothing
sqluser="select user_exper,user_money from [YC_user] where id="&userid
set rsuser=conn.execute(sqluser)
dim djuser(0)
djuser(0)=rsuser("user_exper")
rsuser.close
set rsuser=nothing
call head()
YC("<table border='0' id=""content"" cellspacing='0' cellpadding='0'><tr>")
YC("<td  valign=""top"" id=""show"" nowrap>")
YC("<table border='0' cellspacing='0' cellpadding='0' width='100%'><tr>")
YC("<td class=""111"" nowrap></td><td  class=""222""  nowrap>")
YC("&nbsp;当前位置：<a href=""index.asp"">本站首页</a>→<a href=""dj.asp"">影音娱乐</a>→")
call mybigclass("YC_djclass","dj",dj(3))
YC("→")
call myclass("YC_djclass","dj",dj(2))
YC("<td class=""333"" nowrap></td></td></tr></table>")

YC("<table border='0' cellspacing='0' cellpadding='0' width='100%'>")
YC("<tr><td class=""444"" nowrap></td>")
YC("<td class=""555"" valign=""top"" nowrap>")
YC("<table border='1' cellspacing='0' cellpadding='0' align=""center"" bordercolor='"&color(0)&"' width='100%' frame='void'><tr>")
YC("<td height=""25"" width=""80"" bgcolor='"&color(2)&"'  align=""center"" nowrap>娱乐名称：</td><td width=""*"" bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;<b><font color="""&dj(1)&""">"&dj(0)&"</font></b></td>")
YC("<td rowspan=""8"" width=""250"">")
if dj(6)="" then
YC("<img src=""img/nodown.gif"" border='0' width=""250"" height=""200"">")
else
YC("<a href="""&dj(6)&""" target=""_blank"">")
YC("<img src="""&dj(6)&""" border='0'  width=""250""  height=""200""></a>")
end if
YC("</td></tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">发布用户：</td><td width=410  bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" nowrap>&nbsp;"&dj(7)&"</td>")
YC("</tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">发表日期：</td><td width=410  bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" nowrap>&nbsp;"&replacetime(dj(4),"1")&"</td></tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">娱乐作者：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;"&dj(12)&"</td></tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">推荐程度：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;"&dj(8)&"</td></tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">点击次数：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;"&dj(5)&"次</td></tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">娱乐类型：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;暂定</td></tr>")
YC("<tr height=""25""><td bgcolor='"&color(2)&"' align=""center"">娱乐性质：</td><td bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"">&nbsp;")
if dj(10)=0 then
YC("免费娱乐")
elseif dj(10)=1 then
YC("<font color=""blue"">[普通用户]</font>&nbsp;")
if isnull(dj(11)) or dj(11)<>0 then
YC("需要超过<font color=""blue""><b>"&dj(11)&"</b></font>个积分！")
else
YC("直接观看")
end if
elseif dj(10)=2 then
YC("<font color=""#ff0000"">[收费用户]</font>&nbsp;")
if isnull(dj(11)) or dj(11)<>0 then
YC("需要超过<font color=""blue""><b>"&dj(11)&"</b></font>个积分！")
else
YC("直接观看")
end if
else
YC("免费娱乐")
end if
YC("</td></tr><tr><td colspan=""3"" style=""padding:5px;"">")

if dj(10)=0 then
call djmain()
elseif dj(10)=1 then
if useradmin>=1 then
if cint(djuser(0))>cint(dj(13)) then
call djmain()
else
YC("<center><b><font color=""blue"">对不起！您的积分不足！</font></b></center>")
end if
else
YC("<center><img src='img/user.gif' border='0' /></center>")
end if
elseif dj(10)=2 then
if useradmin>=2 then
if cint(djuser(0))>cint(dj(13)) then
call djmain()
else
YC("<center><b><font color=""blue"">对不起！您的积分不足！</font></b></center>")
end if
else
YC("<center><img src='img/vip.gif' border='0' /></center>")
end if
end if


sub djmain()
YC("<table width='100%' align=""center"" border='1' cellspacing='0' cellpadding='0' bordercolor="""&color(0)&""">")
YC("<tr height=""22"" bgcolor='"&color(2)&"'><td  align=""center"">&nbsp;娱乐标题")
YC("</td><td width=""80"" align=""center"">播放格式</td><td width=""80"" align=""center"">LCR歌词</td><td width=""80"" align=""center"">下载保存</td></tr>")
sqlurl="SELECT * FROM [YC_djurl] WHERE urlid="&djid&" order by id"
Set rsurl=Server.CreateObject("ADODB.Recordset")
rsurl.open sqlurl,Conn,1,1
if rsurl.eof then
response.write "没有娱乐提供观看"
else
for i=1 to rsurl.recordcount
YC("<tr height=""22"" bgcolor="""&color(1)&"""  onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';""><td>")
YC("<ul class='list'><li>")
if  rsurl("player")=1 then
YC("<a href='javascript:void(null);'  onclick='djopen(this.url,""400"",""300"")' url='djplay.asp?mode="&rsurl("player")&"&id="&djid&"&num="&rsurl("num")&"'>"&rsurl("title")&"</a>")
elseif rsurl("player")=2 then
YC("<a href='javascript:void(0);'  onclick='djopen(this.url,""400"",""300"")' url='djplay.asp?mode="&rsurl("player")&"&id="&djid&"&num="&rsurl("num")&"'>"&rsurl("title")&"</a>")
elseif  rsurl("player")=3  then
YC("<a href='javascript:void(0);'  onclick='djopen(this.url,""400"",""300"")' url='djplay.asp?mode="&rsurl("player")&"&id="&djid&"&num="&rsurl("num")&"'>"&rsurl("title")&"</a>")
elseif  rsurl("player")=4  then
YC("<a href='javascript:void(0);'  onclick='djopen(this.url,""400"",""300"")' url='djplay.asp?mode="&rsurl("player")&"&id="&djid&"&num="&rsurl("num")&"'>"&rsurl("title")&"</a>")
elseif  rsurl("player")=5  then
YC("<a href='javascript:void(0);'  onclick='djopen(this.url,""400"",""300"")' url='djplay.asp?mode="&rsurl("player")&"&id="&djid&"&num="&rsurl("num")&"'>"&rsurl("title")&"</a>")
end if
YC("</li></ul>")



YC("</td><td  align=""center"" bgcolor='"&color(2)&"'>")
if rsurl("player")=1 then
YC("Meida视听")
elseif rsurl("player")=2 then
YC("Meida视频")
elseif rsurl("player")=3 then
YC("Real视听")
elseif rsurl("player")=4 then
YC("Real视频")
elseif rsurl("player")=5 then
YC("FLASH动画")
end if
YC("</td><td align=""center"">")
if rsurl("lcr")<>"" then
YC("<a href="""&rsurl("lcr")&""" target=""lcr"">查看</a>")
else
YC("暂无")
end if
YC("</td><td align=""center"" bgcolor='"&color(2)&"'>")

if lcase(left(myurl,7))="http://" or lcase(left(myurl,6))="ftp://" or lcase(left(myurl,7))="rtsp://" or lcase(left(myurl,6))="mms://" then
YC("<a href="""&rsurl("url")&""" target=""djurl"">打开</a>")
else
YC("<a href=""downdj.asp?id="&djid&"&num="&rsurl("num")&""">下载</a>")
end if
YC("</td></tr>")
rsurl.movenext
next
end if
YC("</table>")
rsurl.close
set rsurl=nothing
end sub
YC("</td></tr><tr><td colspan=""3"">")
YC("<p class=""show_title"" align=""center"">相关说明</p>")
YC("<div style=""margin:4px"">"&dj(9)&"</div>")
call nextdata("YC_dj","showdj","个")
YC("</td></tr></table>")
YC("<td class='666' nowrap></td></tr></table>")
YC("<table border='0' cellspacing='0' cellpadding='0' width='100%'><tr>")
YC("<td  class='777' nowrap></td>")
YC("<td class='888' nowrap></td>")
YC("<td class='999' nowrap></td>")
YC("</tr></table>")
if djpl="yes" then
call pl("dj",djid)
end if
YC("</td></tr></table>")
call foot()
if request.querystring("action")="djerror" then
sql="select * from YC_dj where id="&request.querystring("id")
set rs=conn.execute(sql)
YC_sql("UPDATE YC_dj SET error=error+1 where id="&request.querystring("id"))
rs.close
set rs=nothing
YCMS( "<script>alert('谢谢你发现了错误的链接，我们会尽快恢复歌曲连接！');window.close();</script>")
end if%>
<Script Language="JavaScript">
function djopen(url,djwidth,djheight)
{
window.open(url,"djopenwindow","height='+djheight+',width='+djwidth+',toolbar=no,menubar=no,scroll=no,resizable=yes")
}
</Script>