<!-- #include file="include/con_music.asp" -->
<!-- #include file="include/jk_review.asp" -->
<%
tit_fir="音乐频道"
tit="专辑浏览"

id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("music.asp")
end if
dim disk_words
call c_s_nid()
call web_head(0,0,0,0,0)
call music_load()
%>
<TABLE width=770 border=0 align="center" cellPadding=0 cellSpacing=0 
background="image/music/j7.gif">
  <TBODY>
    <TR> 
      <TD width=58 height=38><IMG height=38 
      src="image/music/j8.gif" width=107 border=0> 
      <TD vAlign=center align=middle width=672> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD vAlign=center align=middle width="100%"> 
                <%
			  call music_head()
			  %>
              </td>
            </tr>
          </TBODY>
        </TABLE>
      <TD width=10 height=38> <P align=right><IMG height=38 src="image/music/j9.gif" 
      width=6 border=0></P></TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
  <TBODY>
    <TR> 
      <TD width=176 vAlign=top bgcolor="#eef7fd"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD> </TD>
            </TR>
            <TR> 
              <TD bgColor=#eef7fd><IMG height=52 
            src=image/music/left02.jpg width=176 
            border=0> <TABLE  cellSpacing=4 cellPadding=0 width="86%" 
            align=center bgColor=EEF7FD border=0>
                  <TBODY>
                    <TR> 
                      <TD> 
                        <%
					  call music_sea( )
					  %>
                      </TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD bgColor=#eef7fd><IMG height=52 
            src=image/music/left06.jpg width=176 
            border=0><BR> <TABLE height=134 cellSpacing=4 cellPadding=0 width="86%" 
            align=center bgColor=EEF7FD border=0>
                  <TBODY>
                    <TR> 
                      <TD height=76> <DIV align=center><IMG class=imgb height=60 
                  src="image/music/foto.gif" width=140 
                  border=0></DIV></TD>
                    </TR>
                    <TR> 
                      <TD height=46> 
                        <%
					  call music_top(10,10)
					  %>
                      </TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD><IMG height=57 src="image/music/left03.jpg" 
            width=176 border=0></TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=0 cellPadding=0 width=173 bgColor=#eef7fd 
            border=0>
                  <TBODY>
                    <TR> 
                      <TD> <TABLE height=117 cellSpacing=4 cellPadding=0 width="87%" 
                  align=center bgColor=EEF7FD border=0>
                          <TBODY>
                            <TR> 
                              <TD height="66" valign="top"><div align="center"><IMG class=imgb height=60 
                        src="image/music/newcd.jpg" 
                        width=140></div></TD>
                            </TR>
                            <TR> 
                              <TD> 
                                <%
					  call disk_top(10,10)
					  %>
                              </TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD vAlign=top bgcolor="A0CAED"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#ffffff height=5></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff 
        border=0>
          <TBODY>
            <tr> 
              <TD width=593><div align="right"><IMG src="image/music/m11.gif" width=593 height=37 border=0></div></TD>
            </tr>
            <TR> 
              <TD> <TABLE width="593" border=0 align="right" cellPadding=0 cellSpacing=0>
                  <TBODY>
                    <TR> 
                      <TD 
                background="image/music/middlebg02.gif" 
                height=182> 
                        <%
call disk_view_main()
call disk_word()
call disk_song()
response.write music_bar_top("center_disk_review",1)
response.write "<tr><td>"
call review_type("mdisk",id,"music_disk_view.asp?id="&id,1,login_username)
response.write "</td></tr>"
response.write music_bar_end()

   %>
                      </TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD bgColor=A0CAED 
height=5></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<%
call web_end(0,0)

'------------------------------------------------专辑资料
sub disk_view_main()
dim temp1
sql="select * from music_disk where hidden=1 and id="&id
rs.open sql,conn,1,3
if rs.EOF then
  response.write"没有这个专辑"
else
  rs("hits")=rs("hits")+1
  disk_words=rs("words")
  disk_words=code_jk(disk_words)
  rs.update
  temp1=temp1&"<tr><td width='180' align='center'>"&pic_fk(""&rs("pic")&"",2,"""")&"</td>" & _
             vbcrlf&"<td width='*'>" & _
             vbcrlf&"<table border=0 cellspacing=1 cellpadding=2>" & _
             vbcrlf&"<tr><td>专辑名称："&rs("name")&"</td></tr>" & _
             vbcrlf&"<tr><td>专辑歌手：<a href='music_singer_view.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&n_id="&rs("n_id")&"'>"&rs("singer")&"</a></td></tr>" & _
             vbcrlf&"<tr><td>发行时间："&rs("ptim")&"</td></tr>" & _
             vbcrlf&"<tr><td>添加时间："&rs("tim")&"</td></tr>" & _
             vbcrlf&"<tr><td><a href='javascript:;' onclick=""javascript:open_view('music_fav.asp?action=add&types=disk&id="&rs("id")&"',1);""><img src='images/music/favadd.gif' border=0 alt='收藏'>将此专辑添加到我的收藏夹</a></td></tr>" & _
             vbcrlf&"</table>" & _
             vbcrlf&"</td>" 
end if
rs.close
 response.write music_bar_top("center_disk_view",1)
 response.write temp1
 response.write music_bar_end()
end sub

sub disk_word()
response.write music_bar_top("center_disk_remark",1)
response.write "<tr><td>"&disk_words&"</td></tr>"
response.write music_bar_end()
end sub

'---------------------------专辑歌曲------------------------------------
sub disk_song()
  dim temp1,n_topic,i:i=0
  sql="select id,name,c_id,s_id,n_id,singer,hits from music_song where d_id="&id&" and hidden=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  response.write music_list_top("center_song_disk",1,"new")
  do while not rs.eof
    i=i+1
    n_topic=rs("Name")
    n_topic=joekoe_cms.code_js(n_topic,1)
    response.write music_list(i,rs("id"),rs("c_id"),rs("s_id"),rs("n_id"),n_topic,rs("singer"),"list")
  rs.movenext
  loop
  rs.close 
  response.write music_list_end()
end sub
%>