逆风音乐音乐首页调用代码
作者:cmscn 日期:2005-04-11
%>
</table></td></tr></table>
<table border=0><tr><td height=3></td></tr></table></td>
<td width='50%'>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td><table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td width='22%' class=ftd> <b>音乐频道</b></td><td align=right width='78%'><a href=music.asp><font color=white>更多..</a></td></tr></table></td></tr>
<tr class=bg_td><td align=center>
<table border=0 width='100%'>
<%
oid=0
sql="select top 1 id,name,singer,s_id,n_id,lang,ptim,words,hits,pic from music_disk order by id desc"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
id=rs("id")
oid=id
topic=rs("name")
%>
<tr><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=center>
<td width='35%'><%= pic_fk(rs("pic"),6,"music_disk_view.asp?albumid="&rs("id"))%></td>
<td width='65%'>
<table border=0 width='100%'>
<tr><td><b><a href='music_disk_view.asp?albumid=<%=rs("ID")%>' alt='浏览专辑:<%=rs("name")%>' target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,8)%></a></b></td></tr>
<tr><td>歌手:<a href='music_singer_view.asp?Name=<%=rs("singer")%>&id=<%=rs("S_id")%>&artid=<%=rs("N_id")%>' alt='查看歌手 <%=rs("singer")%> 的所有专辑'><%response.write joekoe_cms.code_html(rs("singer"),1,9)%></a></td></tr>
<tr><td>语言:<%=rs("lang")%></font> 人气:<font class=red><%response.write int(rs("hits"))%></font></td></tr><tr><td height=22>发行:<font class=tims><%=rs("ptim")%></font></td></tr>
<tr><td class=bw>介绍:<%response.write joekoe_cms.code_html(rs("words"),1,7)%></td></tr>
</table>
</td>
</tr>
</table>
</td></tr>
<tr><td></td></tr>
<%
end if
rs.close
%>
</table>
<table border=0 cellspacing=1 cellpadding=0 width='100%' class=bg_td>
<tr height=3><td width='50%'></td><td width='50%'></td></tr>
<%
i=0
sql="select top 6 id,name,singer,s_id,n_id,lang,ptim,words,hits,pic from music_disk where id<>"&oid&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
topic=rs("name")
if i mod 2=0 then response.write vbcrlf&" <tr>"
%>
<td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=left>
<td width='100%'><img src='images/video/ico_wmp.gif' border=0 align=absMiddle>
<a href='music_disk_view.asp?albumid=<%=rs("ID")%>' alt='浏览专辑:<%=rs("name")%>' target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,8)%></a>
</td>
</table>
</td>
<%
if i+1 mod 2=0 then response.write vbcrlf&" </tr>"
if i=1 then response.write vbcrlf&" <tr><td height=1></td></tr>"
rs.movenext
i=i+1
loop
rs.close
%>
</table></td></tr></table>
</td></tr></table>
<table border=0><tr><td height=3></td></tr></table></td></tr></table></td>
<td width=1 class=bg_frame></td></tr></table>
评论: 8 | 引用: 0 | 查看次数: 597
发表评论