点击排行-影音视频

sub main_center_musik(vgen,c_num,w_num)
dim osql,id,name,pnum,hits
select case vgen
case "hot"
osql=" order by hits desc,id desc"
case "good"
osql=" and istop=1 order by id desc"
case else
osql=" order by id desc"
end select
pnum=100\c_num
%>
<table cellspacing=1 cellpadding=1 class=table>
<tr><td>
<%
i=0
sql="select top "&c_num&" id,name,pic,singer,hits from music_disk where hidden=1"&osql
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
i=i+1
id=rs("id")
name=rs("name")
%>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td rowspan=2><%response.write pic_fk(rs("pic"),5,"music_disk_view.asp?id="&id)%></td>
<td><a href='music_disk_view.asp?id=<%response.write id%>' target=_blank alt='<%response.write joekoe_cms.code_html(name,1,0)%>'><%response.write joekoe_cms.code_html(name,1,w_num)%></a></td>
</tr>
<tr>
<td width=120>歌手:<%response.write(rs("singer"))%></td>
</tr><tr><td height=1 colspan=3 background=images/bg_dian.gif></td></tr>
</table>
<%
rs.movenext
loop
rs.close
%>
</td></tr>
</table>
<%
response.write ukong
end sub


call main_center_musik("hot",6,10)

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