music_singer_list.asp

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

<!-- #include file="include/con_music.asp" -->
<!-- #include file="include/jk_review.asp" -->
<%
tit=tit_fir
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()
'------------------------------------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_sort()
'--------------------------歌手分类------------------------------------
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
        i=0
        thischar=rs("abcd")
        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="&server.urlencode(rs("name"))&"'>"&rs("name")&"</a></td>"
      if (i mod 5)>0 and i>=5 then response.write "</tr>"
    rs.movenext
    i=i+1
    loop
    rs.close
    response.write "</table>"
end function
'---------------------------------center end-------------------------------
call web_end(0,0)
%>