📄 default.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<!--#include file="INC/CHAR.INC"-->
<BODY>
<div align="center">
<center>
<table width="773" height="190" border="0" cellpadding="0" cellspacing="0" bgcolor="#30393D" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td width="186" valign="top">
<!--#include file="left.asp"-->
</td>
<td width="401" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%">
</tr>
<tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxList=3
sql="SELECT * FROM Special order by Specialid desc"
rs.Open sql,conn,1,1
%>
<td width="100%"><img src="images1/newz.gif" width="401" height="26"></td>
</tr>
<tr>
<td width="100%">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" style="border-collapse: collapse">
<tr>
<%
if rs.EOF then
Response.Write ("暂无")
else
do while not rs.eof
i=i+1
%>
<td width=31% height="115" align=center valign="bottom" bgcolor="#B8B8B9"><a href="ShowSpecial.asp?Specialid=<%=rs("SpecialID")%>" " title="最新专辑：<%=rs("name")%>">
<%if rs("pic")<>"" then%>
<img src="<%=rs("pic")%>" width=90 height=90 border=0 alt="最新专辑：<%=rs("name")%>">
<%else%>
<img border="0" src="<%=rs("NoPic")%>" width="90" height="90">
<%end if%>
<br>
<%=left(rs("name"),10)%><% if len(rs("name"))>10 then Response.Write "<font color=green>...</font>" %>
</a></td>
<%
if i>=MaxList then exit do
rs.movenext
loop
end if
rs.close
if i<MaxList then
for k=1 to MaxList-i
%>
<td width=31% align=center bgcolor="#B8B8B9"> </td>
<%
next
end if
%>
</tr>
</table>
<img border="0" src="补间.gif" width="1" height="15"></td>
</tr>
<tr>
<td width="100%"><img src="images1/bnews.gif" width="401" height="26"></td>
</tr>
<tr>
<td width="100%">
<table width="100%" cellpadding="0" cellspacing="1" bgcolor="#000000" class="TableLine" style="border-collapse: collapse">
<form name="form3" action="playsong.asp" onSubmit="javascript:return lbsong();" target="Listen">
<tr>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#333333">选择</font></td>
<td width="25%" align=center bgcolor="#B8B8B9">
<font color="#333333">歌曲名字</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#333333">点击</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#333333">试听</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#333333">点歌</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#333333">收藏</font></td>
</tr>
<%
i=0
MaxList=20
set rs=conn.execute("SELECT * FROM MusicList order by id desc")
do while not rs.eof
i=i+1
%>
<tr>
<td width="7%" align=center bgcolor="#B8B8B9">
<input type="checkbox" style="color: #99FF66; border-style: solid; border-width: 0" name="checked" value="#">
</td>
<td width="25%" bgcolor="#B8B8B9"> <%
musictype=rs("musictype")
if musictype=1 then
%>
<a href="javascript:open_window('songreal.asp?id=<%=rs("id")%>','Listen','width=280,height=360')" title='<%=rs("musicname")%>'><%=left(rs("musicname"),20)%><% if len(rs("musicname"))>20 then Response.Write "..." %></a>
<%else if musictype=2 then%>
<a href="javascript:open_window('songmedia.asp?id=<%=rs("id")%>','Listen','width=280,height=360')" title='<%=rs("musicname")%>'><%=left(rs("musicname"),20)%><% if len(rs("musicname"))>20 then Response.Write "..." %></a>
<%else if musictype=3 then%>
<a href="javascript:open_window('songflash.asp?id=<%=rs("id")%>','Listen','width=280,height=360')" title='<%=rs("musicname")%>'><%=left(rs("musicname"),20)%><% if len(rs("musicname"))>20 then Response.Write "..." %></a>
<%end if%><%end if%><%end if%>
</td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#000000"><%=rs("hits")%> </font></td>
<td width="7%" align=center bgcolor="#B8B8B9">
<%
musictype=rs("musictype")
if musictype=1 then
%>
<a href="javascript:open_window('songreal.asp?id=<%=rs("id")%>','Listen','width=280,height=360')">
<img src="images/playreal.gif" border="0" alt="试听 使用RealPlayer播放" ></a>
<%else if musictype=2 then%>
<a href="javascript:open_window('songmedia.asp?id=<%=rs("id")%>','Listen','width=280,height=360')">
<img src="images/playmedia.gif" border="0" alt="试听 使用MediaPlayer播放" ></a>
<%else if musictype=3 then%>
<a href="javascript:open_window('songflash.asp?id=<%=rs("id")%>','Listen','width=280,height=360')">
<img src="images/playflash.gif" border="0" alt="试听 使用Flash6.0播放" ></a>
<%end if%><%end if%><%end if%>
</td>
<td width="7%" align=center bgcolor="#B8B8B9">
<a href="javascript:open_window('WriteSMusic.asp?id=<%=rs("id")%>','WriteSMusic','width=430,height=135')">
<img src="images/showmusic.gif" border=0 alt="点歌"></a></td>
<td width="7%" align=center bgcolor="#B8B8B9"><a href="UserCollect.asp?action=add&id=<%=rs("id")%>" target="Collect">
<img src="images/heart.gif" border=0 alt="收藏"></a></td>
</tr>
<%
if i>=MaxList then exit do
rs.movenext
loop
rs.close
%>
<tr bgcolor="#B8B8B9">
<td colspan=6 align=center>
<input type="hidden" name="PageName" value="<%=PageName%>">
<input type="button" name="chkall" value="全 选" onClick="CheckAll(this.form)" title="选择显示的所有歌曲" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
<input type="button" name="chkOthers" value="反 选" onClick="CheckOthers(this.form)" title="反向选择歌曲" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
<input type="submit" name="B1" value="连 播" title="请先选择你想听的歌曲后再点击连播" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
</td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td width="100%">
<img border="0" src="补间.gif" width="1" height="15"></td>
</tr>
<tr>
<td width="100%"><img src="images1/btui.gif" width="401" height="26"></td>
</tr>
<tr>
<td width="401" align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#171A1C" width="401" id="AutoNumber4">
<tr>
<td width="401"><table width="100%" cellpadding="0" cellspacing="1" bgcolor="#000000" class="TableLine" style="border-collapse: collapse">
<form name="form2" action="playsong.asp" onSubmit="javascript:return lbsong();" target="Listen">
<tr>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#000000">选择</font></td>
<td width="25%" align=center bgcolor="#B8B8B9"> <font color="#000000">歌曲名字</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#000000">点击</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#000000">试听</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#000000">点歌</font></td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#000000">收藏</font></td>
</tr>
<%
i=0
MaxList=12
sql="SELECT * FROM MusicList where IsGood=true order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
i=i+1
%>
<tr>
<td width="7%" align=center bgcolor="#B8B8B9">
<input type="checkbox" style="color: #99FF66; border-style: solid; border-width: 0" name="checked2" value="#">
</td>
<td width="25%" bgcolor="#B8B8B9">
<%
musictype=rs("musictype")
if musictype=1 then
%>
<a href="javascript:open_window('songreal.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <%=rs("MusicName")%></a>
<%else if musictype=2 then%>
<a href="javascript:open_window('songmedia.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <%=rs("MusicName")%></a>
<%else if musictype=3 then%>
<a href="javascript:open_window('songflash.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <%=rs("MusicName")%></a>
<%end if%>
<%end if%>
<%end if%>
</td>
<td width="7%" align=center bgcolor="#B8B8B9"><font color="#333333"> <%=rs("hits")%></font> </td>
<td width="7%" align=center bgcolor="#B8B8B9">
<%
musictype=rs("musictype")
if musictype=1 then
%>
<a href="javascript:open_window('songreal.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <img src="images/playreal.gif" border="0" alt="试听 使用RealPlayer播放" ></a>
<%else if musictype=2 then%>
<a href="javascript:open_window('songmedia.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <img src="images/playmedia.gif" border="0" alt="试听 使用MediaPlayer播放" ></a>
<%else if musictype=3 then%>
<a href="javascript:open_window('songflash.asp?id=<%=rs("id")%>','Listen','width=280,height=360')"> <img src="images/playflash.gif" border="0" alt="试听 使用Flash6.0播放" ></a>
<%end if%>
<%end if%>
<%end if%>
</td>
<td width="7%" align=center bgcolor="#B8B8B9"> <a href="javascript:open_window('WriteSMusic.asp?id=<%=rs("id")%>','WriteSMusic','width=430,height=135')"> <img src="images/showmusic.gif" border=0 alt="点歌"></a></td>
<td width="7%" align=center bgcolor="#B8B8B9"><a href="UserCollect.asp?action=add&id=<%=rs("id")%>" target="Collect"> <img src="images/heart.gif" border=0 alt="收藏"></a></td>
</tr>
<%
if i>=MaxList then exit do
rs.movenext
loop
rs.close
%>
<tr bgcolor="#B8B8B9">
<td colspan=6 align=center>
<input type="hidden" name="PageName2" value="<%=PageName%>">
<input type="button" name="chkall2" value="全 选" onClick="CheckAll(this.form)" title="选择显示的所有歌曲" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
<input type="button" name="chkOthers2" value="反 选" onClick="CheckOthers(this.form)" title="反向选择歌曲" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
<input type="submit" name="B12" value="连 播" title="请先选择你想听的歌曲后再点击连播" style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: overline underline">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<img border="0" src="补间.gif" width="1" height="15"></td>
</tr>
<tr>
<td width="100%"><img src="images1/bdian.gif" width="401" height="26"></td>
</tr>
<tr>
<td width="100%">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" id="AutoNumber5" style="border-collapse: collapse">
<tr>
<td width="100%" bgcolor="#B8B8B9">
<p align="center">点歌功能已经关闭</p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<img border="0" src="补间.gif" width="1" height="15"></td>
</tr>
</table>
</td>
<td valign="top"><!--#include file="right.asp"--> </td>
</tr>
<tr>
<td width="750" height="2" colspan="9"></td>
</tr>
</table>
</center>
</div>
<!--#include file="friendsite.asp"-->
</BODY>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -