music_disk_list.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/con_music.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<%
tit=tit_fir
tit_fir="天籁梵音"

dim nummer,nums,rssum,page,viewpage,thepages,pageurl,singer
nummer=10
nums=nummer
call c_s_nid()
singer=joekoe_cms.code_form(request.querystring("singer"))

select case action
  case "good"
    sql_add=" where istop=1 and hidden=1 "
    tit="推荐专辑列表"
    pageurl="?" 
  case "name"
    sql_add=" where singer='"&singer&"' and hidden=1 "
    tit=""&singer&"专辑列表"
	pageurl="?action=name&singer="&server.urlencode(singer)&"&"
  case else
    sql_add=" where hidden=1 "
    tit="专辑列表"
    pageurl="?"
end select

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 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
  if int(rssum)<1 then
    tmp=tmp&"<tr align=center><td height=50><b><font class=red2>Sorry, 暂 时 没 有 任 何 专 辑</font></b></td></tr>" 
  end if
  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='skin/"&joekoe_cms.web_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
%>