<!-- #include file="../include/config.asp" -->
<!-- #include file="../include/xl_review.asp" -->
<%
tit_fir="音乐频道"
tit="歌手浏览"


n_id=trim(request.querystring("n_id"))

if not(isnumeric(n_id)) then
  
  call format_redirect("./")

end if 

dim singerword


call c_s_nid()

call web_head(0,0,0,0,0)
call music_load()
'------------------------------------left----------------------------------
call music_top(10,10)
call disk_top(10,10)
call music_tool()
'-----------------------------------left end-------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
call music_head()

call musicnclass()
call singer_word()
call disk_new(4,12)
call music_new(10)
response.write music_bar_top("center_singer_review",1)
response.write "<tr><td>"
response.write  review_type("msing",n_id,xlpub_cms.web_path&"music/Music_Singer_View.asp?c_id="&c_id&"&s_id="&s_id&"&n_id="&n_id,1,login_username)
response.write "</td></tr>"
response.write music_bar_end()
'---------------------------歌手信息--------------------------
sub musicnclass()
  response.write music_bar_top("center_singer_view",1)
  set rs=conn.execute("select * from music_singer where hidden=1 and id="&n_id)
  if not rs.eof then
    singerword=rs("word")
    singerword=code_xl(singerword)
    response.write "<tr><td width=200 align=center valign=top>"&pic_fk(rs("pic"),2,"Music_Singer_View.asp?c_id="&c_id&"&s_id="&s_id&"&n_id="&n_id&"")&"</td>" & _
             vbcrlf&"<td width=* valign=top>" & _
             vbcrlf&"<table border=0 cellspacing=1 cellpadding=2>" & _
             vbcrlf&"<tr><td>歌手："&rs("name")&"</td></tr>" & _
             vbcrlf&"<tr><td>性别："&rs("sex")&"</td></tr>" & _
             vbcrlf&"<tr><td>生日："&rs("bir")&"</td></tr>" & _
             vbcrlf&"<tr><td>星座："&rs("ctell")&"</td></tr>" & _
             vbcrlf&"<tr><td>添加时间："&rs("tim")&"</td></tr>" & _
             vbcrlf&"<tr><td><img src='../images/music/s_singer.gif' border=0 align=absMiddle>&nbsp;<a href='song_list.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&n_id="&rs("id")&"'>浏览"&rs("name")&"的所有歌曲</a></td></tr>" & _
             vbcrlf&"<tr><td><img src='../images/music/s_singer.gif' border=0 align=absMiddle>&nbsp;<a href='disk_list.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&n_id="&rs("id")&"'>浏览"&rs("name")&"的所有专辑</a></td></tr>" & _
             vbcrlf&"</table>" & _
             vbcrlf&"</td>" & _
             vbcrlf&"</tr>"
  end if
  rs.close
  response.write music_bar_end()
end sub

sub singer_word()
response.write music_bar_top("center_singer_remark",1)
response.write "<tr><td>"&singerword&"</td></tr>"
response.write music_bar_end()
end sub
'---------------------------------center end-------------------------------
call web_end(0,0)
%>