music_disk_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="天籁梵音"
tit="歌手专辑浏览"

id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("music.asp")
end if
dim disk_words

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 music_sea()
call disk_view_main()
call disk_word()
call disk_song()
response.write music_bar_top("center_disk_review",1)
response.write "<tr><td>"
response.write  review_type("mdisk",id,"music_disk_view.asp?id="&id,1,login_username)
response.write "</td></tr>"
response.write music_bar_end()
'---------------------------------center end-------------------------------
call web_end(0,0)

'------------------------------------------------专辑资料----------------------------------------------
sub disk_view_main()
dim temp1
sql="select * from music_disk where hidden=1 and id="&id
rs.open sql,conn,1,3
if rs.EOF then
  response.write"没有这个专辑"
else
  rs("hits")=rs("hits")+1
  disk_words=rs("words")
  disk_words=code_jk(disk_words)
  rs.update
  temp1=temp1&"<tr><td width='180' align='center'>"&pic_fk(""&rs("pic")&"",2,"music_disk_view.asp?id="&id)&"</td>" & _
             vbcrlf&"<td width='*'>" & _
             vbcrlf&"<table border=0 cellspacing=1 cellpadding=2>" & _
             vbcrlf&"<tr><td>专辑名称："&rs("name")&"</td></tr>" & _
             vbcrlf&"<tr><td>专辑歌手：<a href='music_singer_view.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&n_id="&rs("n_id")&"'>"&rs("singer")&"</a></td></tr>" & _
             vbcrlf&"<tr><td>发行公司："&rs("pcom")&"</td></tr>" & _
             vbcrlf&"<tr><td>发行时间："&rs("ptim")&"</td></tr>" & _
             vbcrlf&"<tr><td>专辑语种："&rs("lang")&"</td></tr>" & _
             vbcrlf&"<tr><td>添加时间："&rs("tim")&"</td></tr>" & _
             vbcrlf&"<tr><td><a href='javascript:;' onclick=""javascript:open_view('music_fav.asp?action=add&types=disk&id="&rs("id")&"',1);""><img src='images/music/favadd.gif' border=0 alt='收藏'>将此专辑添加到我的收藏夹</a></td></tr>" & _
             vbcrlf&"</table>" & _
             vbcrlf&"</td>" 
end if
rs.close
 response.write music_bar_top("center_disk_view",1)
 response.write temp1
 response.write music_bar_end()
end sub

sub disk_word()
response.write music_bar_top("center_disk_remark",1)
response.write "<tr><td>"&disk_words&"</td></tr>"
response.write music_bar_end()
end sub

'---------------------------专辑歌曲------------------------------------
sub disk_song()
  dim temp1,n_topic,i:i=0
  sql="select id,name,c_id,s_id,n_id,singer,hits from music_song where d_id="&id&" and hidden=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  response.write music_list_top("center_song_disk",1,"new")
  do while not rs.eof
    i=i+1
    n_topic=rs("Name")
    n_topic=joekoe_cms.code_js(n_topic,1)
    response.write music_list(i,rs("id"),rs("c_id"),rs("s_id"),rs("n_id"),n_topic,rs("singer"),"list")
  rs.movenext
  loop
  rs.close 
  response.write music_list_end()
end sub
%>