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

dim singerword
call c_s_nid()
select case action
case "good"
tit="歌手推荐"
sql_add=" where hidden=1 and istop=1"
case "list"
tit="歌手列表"
sql_add=" where hidden=1 and c_id="&c_id&" and s_id="&s_id
case "main"
tit="歌手列表"
sql_add=" where hidden=1 and c_id="&c_id
case else
tit="歌手列表"
sql_add=" where hidden=1"
end select

call web_head(0,0,0,0,0)
call music_load()
%>
<TABLE width=777 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=777 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/m13.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 music_sort()
   %>
                      </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>
<%
sub music_sort()
  response.write "<table cellspacing=1 cellpadding=1 class=mtable><tr align=center height=22 class=mbg_td>"
  for i=65 to 90 Step 1
  response.write "<td width='18' onMouseOut=""this.style.background='#FFFFFF'"" onMouseOver=""this.style.background='#c0c0c0'""><font face='Arial' class='gray'><a href='#"&chr(i)&"'><font class=red2>"&chr(i)&"</font></a></font></td>"
  next
  response.write "</tr></table>"
  response.write s_sort(sql_add)  
end sub

function s_sort(sql_add)
  response.write "<table border=0 class=mtable cellspacing=1 cellpadding=0>"
    sql="select * from music_singer"&sql_add&" order by abcd"
    set rs=joekoe_cms.exec(sql,1)
    do while not rs.eof
      if thischar<>rs("abcd") then
        thischar=rs("abcd")
        i=0
        response.write "<tr><td height=1 colspan=5 background='images/BG_DIAN.GIF'></td></tr><tr class=bg_tds align=center><td colspan=5 height=20><a name=#"&thischar&"><b><font class=red2>"&thischar&"</font></b></a></td></tr><tr><td colspan=5 height=1 background='images/BG_DIAN.GIF'></td></tr>"
      end if
      if (i mod 5)=0 then response.write "<tr class=mbg_td height=24>"
      response.write "<td width='20%'><a href='music_singer_view.asp?s_id="&rs("s_id")&"&n_id="&rs("id")&"&name="&rs("name")&"'>"&rs("name")&"</a></td>"
      if (i mod 5)>0 and i>=4 then 
      response.write "</tr>"
      i=-1
      end if
    rs.movenext
    i=i+1
    loop
    rs.close
    response.write "</table>"
end function
'---------------------------------center end-------------------------------
call web_end(0,0)
%>