music.asp
来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 233 行
ASP
233 行
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=177 background=images/leftftbg.gif><table width="168" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>专集排行
TOP 5</b></font></div></td>
</tr>
</table>
<table width="168" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td bgcolor="#FFFFFF"> <%
set rs=server.CreateObject("adodb.recordset")
n=0
sql="select top 5 special_id,special_name from SongSpecial order by hits desc"
rs.open sql,conn,1,1
do while not rs.eof
n=n+1
response.write "<font color=#3399ff>■</font> <a href=music/Special_Show.asp?Special_Id="&rs("Special_Id")&" target='_blank' >"&rs("special_Name")&"</a>"
rs.movenext
loop
rs.close
%>
</td>
</tr>
</table>
<br>
<table width="168" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>FLASH类
TOP 5</b></font></div></td>
</tr>
</table>
<table width="168" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td bgcolor="#FFFFFF">
<%
set rs=server.CreateObject("adodb.recordset")
n=0
sql="select top 5 specialid,specialname from flashSpecial order by hits desc"
rs.open sql,conn,1,1
do while not rs.eof
n=n+1
response.write "<font color=#3399ff>■</font> <a href=flash/Special_Show.asp?SpecialId="&rs("SpecialId")&" target='_blank' >"&rs("specialName")&"</a>"
rs.movenext
loop
rs.close
%>
</td>
</tr>
</table>
<br>
<table width="168" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>影视类
TOP 5</b></font></div></td>
</tr>
</table>
<table width="168" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td bgcolor="#FFFFFF">
<%
set rs=server.CreateObject("adodb.recordset")
n=0
sql="select top 5 * from videoSpecial order by hits desc"
rs.open sql,conn,1,1
do while not rs.eof
n=n+1
response.write "<font color=#3399ff>■</font> <a href=video/SpecialShow.asp?SpecialId="&rs("SpecialId")&" target='_blank' >"&rs("specialName")&"</a>"
rs.movenext
loop
rs.close
%>
</td>
</tr>
</table></TD>
<!--********************左栏部分结束**********************-->
<TD width="583" valign=top bgcolor="#FFFFFF"><div align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td height="20"> <div align="center"><font size="2"><strong><a href="music/">音乐版块</a></strong></font></div></td>
</tr>
<tr>
<td height="2" bgcolor="#c0c0c0"></td>
</tr>
<tr>
<td height="58"> <%
set rs=server.CreateObject("adodb.recordset")
sql="select top 3 * from Song order by Song_Id desc"
n=0
rs.open sql,conn,1,1 %> <table width="99%" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000">
<tr align="center" bgcolor="#CCCCCC">
<td height=16 width="16%">歌名</td>
<td width="10%">演唱</td>
<td width="5%">试听</td>
<td width="5%">下载</td>
<td width="5%">MTV</td>
<td width="5%">flash</td>
<td width="5%">歌词</td>
<td width="15%" >相关搜索</td>
</tr>
<form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="music/play.asp">
<% do while not rs.eof
n=n+1 %>
<tr bgcolor="#f0f0f0" align="center">
<td height="23" align="left">
<div align="center"><%=rs("Song_Name")%></div></td>
<td><%=rs("singer")%></td>
<td><%if len(rs("rm"))>0 then %> <a href="#" onClick="window.open('music/play.asp?name=<%=rs("Song_Id")%>','Lcmusic','scrollbars=no,resizable=no,width=380,height=380,menubar=no,top=168,left=168')"><img src="images/rm.gif " border=0 width=16 height=16></a>
<%else response.write"<img src=images/rm.jpg border=0 width=16 height=16>" end if%></td>
<td><%if len(rs("mp3"))>0 then response.write"<a href="&rs("mp3")&" ><img src=images/mp3.gif border=0 width=16 height=16></a>" else response.write"<img src=images/mp3.jpg border=0 width=16 height=16>" end if%></td>
<td><%if len(rs("mv"))>0 then response.write"<a href="&rs("mv")&" ><img src=images/mv.gif border=0 width=16 height=16></a>" else response.write"<img src=images/mv.jpg border=0 width=16 height=16>" end if%></td>
<td><%if len(rs("swf"))>0 then response.write"<a href="&rs("swf")&" ><img src=images/swf.gif border=0 width=16 height=16></a>" else response.write"<img src=images/swf.jpg border=0 width=16 height=16>" end if%></td>
<td><a href="http://www.baidu.com/m?tn=baidump3lyric&ct=150994944&rn=10&word=<%=rs("Song_Name")%>" target="_blank"><img src="images/word.gif" width="17" height="17" border="0" ></a></td>
<td>[<a href="http://search.sogua.com/search/search.asp?key=<%=rs("Song_Name")%>" target="_blank">Sogua</a>]
[<a href="http://www.baidu.com/m?rn=&tn=baidump3&ct=134217728&word=<%=rs("Song_Name")%>" target="_blank">百
度</a>]</td>
</tr>
<% rs.movenext
loop
rs.close
%>
</form>
</table>
<div align="right"><font color="#FF0000">----------</font><a href="music/"><font color="#FF0000">更多进入</font>
</a> </div></td>
</tr>
<tr>
<td height="20"> <div align="center"><a href="flash/"><font size="2"><strong>FLASH版块</strong></font></a></div></td>
</tr>
<tr>
<td height="2" bgcolor="#c0c0c0"></td>
</tr>
<tr>
<td height="58"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 3 * from flash order by flashId desc"
n=0
rs.open sql,conn,1,1 %><table width="99%" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000">
<tr align="center" bgcolor="#CCCCCC">
<td height=16 width="16%">FLASH名称：</td>
<td width="10%">作者</td>
<td width="5%">播放</td>
</tr>
<form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="music/play.asp">
<% do while not rs.eof
n=n+1 %>
<tr bgcolor="#f0f0f0" align="center">
<td height="26" align="left">
<div align="center"><%=rs("flashname")%></div></td>
<td><%=rs("author")%></td>
<td> <%if len(rs("src"))>0 then %>
<a href="#" onClick="window.open('flash/play.asp?name=<%=rs("flashid")%>','Lcmusic','scrollbars=no,resizable=no,width=380,height=380,menubar=no,top=168,left=168')"><img src="images/flash.gif" width=24 height=24 border=0 align="top"></a>
<%else response.write"<img src=images/swf.jpg border=0 width=16 height=16>" end if%> </td>
</tr>
<% rs.movenext
loop
rs.close
%>
</form>
</table>
<div align="right"><font color="#FF0000">----------</font><a href="flash/"><font color="#FF0000">更多进入</font></a></div></td>
</tr>
<tr>
<td height="20"> <div align="center"><font size="2"><strong><a href="video/">影视版块</a></strong></font></div></td>
</tr>
<tr>
<td height="2" bgcolor="#c0c0c0"></td>
</tr>
<tr>
<td height="58"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 3 * from video order by videoId desc"
n=0
rs.open sql,conn,1,1 %><table width="99%" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000">
<tr align="center" bgcolor="#CCCCCC">
<td height=16 width="16%">影视名称：</td>
<td width="10%">主演</td>
<td width="5%">播放</td>
</tr>
<form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="music/play.asp">
<% do while not rs.eof
n=n+1 %>
<tr bgcolor="#f0f0f0" align="center">
<td height="20" align="left">
<div align="center"><%=rs("videoname")%></div></td>
<td><%=rs("author")%></td>
<td>
<%if len(rs("src"))>0 then %>
<a href="#" onClick="window.open('video/play.asp?name=<%=rs("videoid")%>','Lcmusic','scrollbars=no,resizable=no,width=380,height=380,menubar=no,top=168,left=168')"><img src="images/wma.gif" width=19 height=17 border=0 align="top"></a>
<%else response.write"<img src=images/wma.jpg border=0 width=16 height=16>" end if%>
</td>
</tr>
<% rs.movenext
loop
rs.close
%>
</form>
</table>
<div align="right"><font color="#FF0000">----------</font><a href="video/"><font color="#FF0000">更多进入</font></a></div></td>
</tr>
</table>
<!--#include file="form.asp" -->
<br>
<%
sql="select count(Special_Id) from songspecial"
rs.open sql,conn,1,1
Count1=rs(0)
rs.close
sql="select count(SpecialId) from flashspecial"
rs.open sql,conn,1,1
Count2=rs(0)
rs.close
sql="select count(SpecialId) from videospecial"
rs.open sql,conn,1,1
Count3=rs(0)
rs.close
response.write "数据统计>>歌曲："&Count1&"首 FLASH："&Count2&"个 视频："&Count3&"部 "
%>
</div></TD>
</tr>
</table><TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<!-- 底部信息部分 -->
<!-- #include file="foot.asp" -->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?