<!-- #include file="include/config.asp" -->
<!-- #include file="../include/jk_pagecute.asp" -->
<!-- #include file="../include/jk_page_cute.asp" -->
<%
tit_fir="音乐频道"

dim nummer,nums,rssum,page,viewpage,thepages,pageurl
nummer=dim_num(0)
nums=nummer
select case action
  case "good"
    sql_add=" where hidden=1 and istop=1"
    pageurl="?action=good&"
	tit="推荐歌曲列表"
  case else
    sql_add=" where hidden=1"
    pageurl="?"
	tit="歌曲列表"
end select

call c_s_nid()

call web_head(0,0,0,0,0)
call music_load()
'------------------------------------left----------------------------------
call music_top(10,20)
call disk_top(10,20)
call music_tool()
'-----------------------------------left end---------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
call music_head()
call music_sea()
  response.write music_list_top("center_song_list",1,"list")
  sql="select count(id) from music_song"&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from music_song"&sql_add
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    n_topic=rs("name")
    n_topic=joekoe_cms.code_js(n_topic,1)
    response.write music_list((viewpage-1)*nummer+i,rs("id"),rs("c_id"),rs("s_id"),rs("n_id"),n_topic,rs("singer"),"list")
    rs.movenext
  next
  rs.close
  set rs=nothing
  response.write music_list_end()

  response.write "<table class=mtb>" & _
             vbcrlf&"<tr height=30>" & _
             vbcrlf&"<td align=left>&nbsp;<img src='"&joekoe_cms.web_dir_skin&"/small/s_song.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>"&tit&"</b></font>&nbsp;&nbsp;&nbsp;现有&nbsp;<font class=red>"&rssum&"</font>&nbsp;首歌曲，&nbsp;&nbsp;页次：<font class=red>"&viewpage&"</font>/<font class=red>"&thepages&"</font>&nbsp;&nbsp;分页："&jk_pagecute(nummer,thepages,viewpage,pageurl,10,"#ff0000")&"</td>" & _
             vbcrlf&"</tr>" & _
             vbcrlf&"</table>"
'---------------------------------center end-------------------------------
call web_end(0,0)
%>