音乐调用

'点击排行 竖排音乐

sub main_center_musik(vgen,c_num,w_num)
dim osql,id,name,pnum,hits,i
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
i=0
i=i+1
%>
<table cellspacing=1 cellpadding=1 class=table>
<tr><td>
<%
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
id=rs("id")
name=rs("name")
i=0
i=i+1
%>
<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>
<td>点击:<%response.write(rs("hits"))%></td>
</tr>
<tr>
<td width=130>歌手:<%response.write(rs("singer"))%></td>
<td>排名:No.<%response.write("i")%></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
%>
</td></tr>
</table>
<%
response.write ukong
end sub

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