www.gusucode.com > 盘锦DJ舞曲网 商业版源码程序 > template/index.asp

    <!--#include file="../top.asp"-->
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="6" height="6"><img src="images/left.gif" width="6" height="6"></td>
        <td width="888" height="6" bgcolor="#FFFFFF"></td>
        <td width="6" height="6"><img src="images/right.gif" width="6" height="6"></td>
      </tr>
</table>
<table width="900" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td bgcolor="#FFFFFF"></td>
        </tr>
</table>
      <table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="search">
  <tr>
    <td height="25" colspan="12" background="images/header_bg.gif">最新上传</td>
  </tr>
  <form id="form" name="form" method="get" action="playall.asp" target="_all">
  <tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
sql="select top 40 * from musiclist order by id desc"
rs.open sql,conn,1,1
if rs.eof then
 response.write"<td width=849 height=25 background=images/line1.gif><font color=red>没有歌曲</font></td>"
else
do while not rs.eof
%>
    <td width="20" height="25" align="center" background="images/line1.gif"><input name=id type=checkbox id="id" value="<%=rs("id")%>"></td>
    <td width="425" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0">&nbsp;<a href="play.asp?id=<%=rs("id")%>" target="_blanka"><%=left(rs("musicname"),12)%></a></td>
    <td width="40" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
    <%
i=i+1
if i>=40 then exit do
if i mod 4=0 and i>=4 then
%>
</tr>
<%
end if
rs.movenext
loop
end if
rs.close
%>
 <tr>
    <td height="25" colspan="12" align="center"><input type="button" value='全部选择' name="chkOthers5" onClick="CheckAll(this.form)" style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: #a2a2a2 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #a2a2a2 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #333333; FONT-SIZE: 12px; HEIGHT: 20px" size="12">　
          <input type="button" name="chkOthers5" value='反向选择' onClick="CheckOthers(this.form)" style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: #a2a2a2 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #a2a2a2 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #333333; FONT-SIZE: 12px; HEIGHT: 20px" size="12">　
          <input type="submit" name="B15" value='播放选择歌曲' style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: #a2a2a2 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #a2a2a2 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #333333; FONT-SIZE: 12px; HEIGHT: 20px" size="12"></td>
    </tr>
	</form>
</table></td>
        </tr>
</table>
	   <table width="900" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td bgcolor="#FFFFFF"></td>
        </tr>
      </table>
	  <table width="900" height="80" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td align="center" bgcolor="#FFFFFF"><img src="images/AD_index.gif" width="890" height="80"></td>
        </tr>
</table>
	  <table width="900" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td bgcolor="#FFFFFF"></td>
        </tr>
      </table>
      <table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="right" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>本站推荐 - 中文舞曲</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where good=1 and classid=1 order by id desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),20)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=1" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>本站推荐 - 串烧舞曲</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where good=1 and classid=2 order by id desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),16)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=2" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>本站推荐 - 酒吧慢摇</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where classid=4 or classid=3 and good=1 order by id desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),20)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=4" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="left" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>本站推荐 - 外文舞曲</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where good=1 and classid=4 order by id desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),25)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=7" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
        </tr>
</table>
<table width="900" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="900" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="right" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>舞曲排行 - 中文舞曲</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where classid=1 order by hits desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),20)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=1" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>舞曲排行 - 串烧舞曲</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where classid=2 order by hits desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),16)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=2" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>舞曲排行 - 酒吧慢摇</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where classid=4 or classid=3 order by hits desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),20)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=4" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
          <td width="225" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="left" cellpadding="0" cellspacing="0" bordercolorlight="#808080" bordercolordark="#000000" class="search">
      <tr>
        <td height="25" colspan="2" align="center" background="images/header_bg.gif">
		<b>舞曲排行 - 外文舞曲</b></td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from musiclist where classid=4 order by hits desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
 response.write"<tr><td height=25 background=images/line1.gif><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<20
i=i+1
%>	
      
      <tr>
        <td height="25" background="images/line1.gif"><img src="images/dl.gif" width="7" height="7" border="0"> <a href="play.asp?id=<%=rs("id")%>" target="_blanka" class="index"><%=left(rs("musicname"),25)%></a></td>
        <td width="9" height="25" background="images/line1.gif"><a href="down.asp?id=<%=rs("id")%>" target="_blank" class="class"><img src="images/add.gif" alt="下载这首歌曲" border="0"></a></td>
      </tr>	 
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="middle" height="24">   
      <td width="25%" height="22" colspan="2" align="center">
		<a href="Class.asp?classid=7" class="index">点这里试听更多单曲>>></a></td>
  </tr>
</table></td>
        </tr>
</table>
      <table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="6" height="6"><img src="images/left1.gif" width="6" height="6"></td>
            <td width="888" height="6" bgcolor="#FFFFFF"></td>
            <td width="6" height="6"><img src="images/right1.gif" width="6" height="6"></td>
          </tr>
</table>
<!--#include file="../bottom.asp"-->