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

dim nummer,nums,rssum,page,viewpage,thepages,pageurl
nummer=10
nums=nummer
pageurl="?"
call c_s_nid()

select case action
  case "good"
    sql_add=" where istop=1 and hidden=1 "
  case else
    sql_add=" where hidden=1 "
end select

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()
call disk_list()
'---------------------------------center end-------------------------------
call web_end(0,0)
'----------------------------------专辑列表-------------------------------------
sub disk_list()
  dim li,tmp:li=0
  sql="select count(id) from music_disk"&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from music_disk "&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              
    if (li mod 2)=0 then tmp=tmp&"<tr valign=top>"
	n_id=rs("id")
	n_pic=rs("pic")
	tmp=tmp&"<td width='50%'>"&music_disk_list(n_pic,n_id,rs("c_id"),rs("s_id"),rs("n_id"),rs("name"),rs("singer"),rs("pcom"),rs("lang"),rs("ptim"))&"</td>"
    if (li mod 2)>0 then tmp=tmp&"</tr>"
    rs.movenext
    li=li+1
  next
  rs.close
  set rs=nothing
  tmp=tmp&"<td width='50%'></td></tr>"

response.write vbcrlf&music_bar_top("center_disk_list",1)
response.write tmp
response.write vbcrlf&music_bar_end()

response.write "<table class=mtb>" & _
             vbcrlf&"<tr height=30>" & _
             vbcrlf&"<td align=left>&nbsp;<img src='"&joekoe_cms.web_dir_skin&"/small/s_singer.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>"
end sub
%>