dj.asp

本程序采用花香内核

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="舞曲音乐"
dim founderr
founderr=false
if request.querystring("djcat_id")<>"" then
  if not isInteger(request.querystring("djcat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
  end if
end if
djcat_id=request.querystring("djcat_id")
mtyid2=djcat_id
call head()
call menu()
aabb01=""
mtyid2=int(mtyid2)
aabb01=aabb01+"<table border=0 width=760 align=center bgcolor=#FFFFFF cellpadding=0 cellspacing=0  height=20 class=table-hx66s><tr><td><table border=0 align=center bgcolor=#FFFFFF width=756 cellpadding=0 cellspacing=0>"
set hx01=conn.execute("select djcat_id,djcat_name,sid from djcat order by djcat_id")
do while not hx01.eof
if hx01("sid")=0 then
if hx01("djcat_id")=mtyid2 then
hx1=hx1+"<a href=dj.asp?djcat_id="&hx01("djcat_id")&" title="&hx01("djcat_name")&"><font color=red>"&hx01("djcat_name")&"</font></a> <img src=img/menu.gif align=absmiddle border=0> "
else
hx1=hx1+"<a href=dj.asp?djcat_id="&hx01("djcat_id")&" title="&hx01("djcat_name")&">"&hx01("djcat_name")&"</a> <img src=img/menu.gif align=absmiddle border=0> "
end if
end if
if mtyid2=hx01("sid") then
hx66010=hx66010+" or djcat_id="&hx01("djcat_id") '显示页所需变量dj.asp
hx2=hx2+"<a href=dj.asp?djcat_id="&hx01("djcat_id")&" title="&hx01("djcat_name")&">"&hx01("djcat_name")&"</a> <img src=img/menu.gif align=absmiddle border=0> "
end if
if mtyid2=hx01("djcat_id") then
hx6603=hx01("sid")
if hx6603<>0 then
hxa01="select djcat_id,djcat_name,sid from djcat where sid="&hx6603&" order by djcat_id"
set hx02=conn.execute(hxa01)
do while not hx02.eof
if hx02("djcat_id")=mtyid2 then
hx5=hx5+"<a href=dj.asp?djcat_id="&hx02("djcat_id")&" title="&hx02("djcat_name")&"><font color=red>"&hx02("djcat_name")&"</font></a> <img src=img/menu.gif align=absmiddle border=0> "
else
hx5=hx5+"<a href=dj.asp?djcat_id="&hx02("djcat_id")&" title="&hx02("djcat_name")&">"&hx02("djcat_name")&"</a> <img src=img/menu.gif align=absmiddle border=0> "
end if
hx02.movenext
loop
hx02.close
set hx02=nothing
end if
end if
hx01.movenext
loop
hx01.close
set hx01=nothing
'if hx1<>"" then aabb01=aabb01+"<tr align=center><td background=img/B_bg.gif height=23><img src=img/menu.gif align=absmiddle border=0> "&hx1&" </td></tr>"
if hx2<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx2&"</td></tr>"
if hx3<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx3&"</td></tr>"
if hx4<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx4&"</td></tr>"
if hx5<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx5&"</td></tr>"
aabb01=aabb01+"</table></td></tr></table>"
response.write aabb01
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table-hx66s">
  <tr>
    <td width="188" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
                <tr>
                  <td height="23"  class="a1">&nbsp;&nbsp; 歌 曲 分 类</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td valign="top"><table width="100%" border=0 cellspacing="0" cellpadding="0" class="table-right">
<tr><td height="7"> </td>
<tr><td>
<%
response.write "&nbsp;<font color=#FF0000>·</font>&nbsp;<a href=dj.asp>全部歌曲</a><BR>"
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("djcat_id")=cstr(rs1("djcat_id")) then
sql2 = "select * from djcat where sid="&rs1("djcat_id")&""
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
response.write "&nbsp;<font color=#FF0000>·&nbsp;"&rs1("djcat_name")&"</a></font> （小类："
response.write rs2.recordcount&"个）<BR>"
else
sql2 = "select * from djcat where sid="&rs1("djcat_id")&""
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
response.write "&nbsp;<font color=#FF0000>·</font>&nbsp;<a href='?djcat_id="&rs1("djcat_id")&"'>"&rs1("djcat_name")&"</a> （小类："
response.write rs2.recordcount&"个）<BR>"
end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</td></tr>
<tr><td height="7"> </td>
</table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
                <tr>
                  <td height="23"  class="a1">&nbsp;&nbsp; 总 量 排 行</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0"  class="table-right">
               <%
sql="SELECT top "&topdjnum&" dj_id,dj_name,dj_user,dj_count,dj_dcount,dj_date FROM dj where passed=0 ORDER by dj_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr><td width="6"></td>
<td height=22 class=table-xia><font color=#FF0000>·</font><a href='showdj.asp?dj_id=<%=rs("dj_id")%>' Title='歌曲名称：<%=rs("dj_name")%>&#13&#10视听次数：<%=rs("dj_count")%>&#13&#10上传时间：<%=rs("dj_date")%>'><%=left(rs("dj_name"),13)%></a></td><td width="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%>&nbsp;&nbsp; 当前还没有歌曲
<%
rs.close
end if%>
            </table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
                <tr>
                  <td  height="23"  class="a1">&nbsp;&nbsp; 单 曲 推 荐</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0"  class="table-right">
<%
sql="SELECT top "&bestdj&" dj_id,dj_name,dj_user,dj_count,dj_dcount,dj_date FROM dj where isbest = 1 order by dj_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr><td width="6"></td>
<td height=22 class=table-xia><font color=#FF0000>·</font><a href='showdj.asp?dj_id=<%=rs("dj_id")%>' Title='歌曲名称：<%=rs("dj_name")%>&#13&#10视听次数：<%=rs("dj_count")%>&#13&#10上传时间：<%=rs("dj_date")%>'><%=left(rs("dj_name"),13)%></a></td><td width="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%>&nbsp;&nbsp; 当前还没有歌曲
<%rs.close
end if%>
            </table></td>
          </tr>
        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">