music_singer_view.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="天籁梵音"

n_id=trim(request.querystring("n_id"))
if not(isnumeric(n_id)) then
  call format_redirect("music.asp")
end if 
dim singerword,singer
singer=joekoe_cms.code_form(request.querystring("singer"))
tit="歌手信息浏览"
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 music_new_list("disk",4)
call music_new_list("music",10)
response.write music_bar_top("center_singer_review",1)
response.write "<tr><td>"
response.write  review_type("msing",n_id,"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_jk(singerword)
	singer=rs("name")
    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='music_song_list.asp?action=name&singer="&server.urlencode(rs("name"))&"'>浏览"&rs("name")&"的所有歌曲</a></td></tr>" & _
             vbcrlf&"<tr><td><img src='images/music/s_singer.gif' border=0 align=absMiddle>&nbsp;<a href='music_disk_list.asp?action=name&singer="&server.urlencode(rs("name"))&"'>浏览"&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

sub music_new_list(cl_type,cl_tnum)
  dim tmp1,tmp_title,tmp_table,tmp_where,li:li=0:i=0
  tmp_where=" singer='"&singer&"' and hidden=1"
  select case cl_type
  case "music"
    tmp_title="center_song_list"
    tmp_table="music_song"
  case else
    tmp_title="center_disk_list"
    tmp_table="music_disk"
  end select
  sql="select top "&cl_tnum&" * from "&tmp_table&" where "&tmp_where&" order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
   if cl_type="music" then
     i=i+1 
     n_topic=rs("name")
     n_topic=joekoe_cms.code_js(n_topic,1)
     tmp1=tmp1&vbcrlf&music_list(i,rs("id"),rs("c_id"),rs("s_id"),rs("n_id"),n_topic,rs("singer"),"list")
   else
     if (li mod 2)=0 then tmp1=tmp1&"<tr valign=top>"
	 tmp1=tmp1&"<td width='50%'>"&music_disk_list(rs("pic"),rs("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 tmp1=tmp1&"</tr>"
	end if
    rs.movenext
	if cl_type="disk" then li=li+1
  loop
  rs.close
  if cl_type="music" then
    response.write vbcrlf&music_list_top(tmp_title,1,"list")
    response.write tmp1
    response.write vbcrlf&music_list_end()
  else
    response.write vbcrlf&music_bar_top(tmp_title,1)
    response.write tmp1
    response.write vbcrlf&music_bar_end()
  end if
end sub
'---------------------------------center end-------------------------------
call web_end(0,0)
%>