逆风音乐频道修改

原先文件中的 call music_top(10,10)
在后面加一个参数
call music_top(10,10,0) 这个调用排行
或者
call music_top(10,10,1) 这个调用推荐
打开 con_music.asp 文件
sub music_top
sub music_top(n_num,c_num) 改成
sub music_top(n_num,c_num,s_num)
dim tmp_img,tmp_where
  select case s_num
    case 1                '调用推荐
    tmp_img="left_song_good"
    tmp_where=" and istop=1 order by id desc"
    case 0                '调用排行
    tmp_img="left_song_ph"
    tmp_where=" order by hits desc,id desc"
  end select

response.write vbcrlf&music_bar_top("left_song_good",0)
改成
response.write vbcrlf&music_bar_top(tmp_img,0)

sql="select top "&n_num&" name,hits,id from music_song where istop=1 and hidden=1 order by id desc"
改成
  sql="select top "&n_num&" name,hits,id from music_song where hidden=1"&tmp_where

在前台文件中找
call music_top(10,10)
改成
call music_top(10,10,0)
或
call music_top(10,10,1)

作者:泡泡龙

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: