www.gusucode.com > 盘锦DJ舞曲网 商业版源码程序 > Class.asp
<!--#include file="top.asp"-->
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6" height="6"><img src="images/left.gif" width="6" height="6"></td>
<td width="100%" height="6" bgcolor="#FFFFFF"></td>
<td width="6" height="6"><img src="images/right.gif" width="6" height="6"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="classleft" >
<tr>
<td height="25" align="center" background="images/header_bg.gif">本类舞曲排行榜</td>
</tr>
<%
classid=checkinfo(request("classid"),1)
set rs=server.createobject("adodb.recordset")
sql="select top 25 * from musiclist where classid="&classid&" order by hits desc"
rs.open sql,conn,1,1
i=0
if rs.eof then
response.write"<tr><td height=500 valign=top><font color=red>没有歌曲</font></td></tr>"
end if
do while not rs.eof and i<25
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="_c"><%=left(rs("musicname"),12)%></a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="3" height="6"><img src="images/class_left.gif" width="3" height="6"></td>
<td width="100%" height="6"><img src="images/class_bg.gif" width="100%" height="6"></td>
<td width="3" height="6"><img src="images/class_right.gif" width="3" height="6"></td>
</tr>
</table>
</td>
<td width="5"></td>
<td valign="top"><table width="100%" border="0" 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="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="classleft">
<tr>
<td height="25" colspan="8" 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 * from musiclist where classid="&classid&" order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
Total_news=rs.recordcount
rs.pagesize=40
if page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
pagetotal=rs.pagecount
do while not rs.eof and i<40
i=i+1
%>
<td width="20" height="25" align="center" background="images/line1.gif"><input name=id type=checkbox id="id" value="<%=rs("id")%>"></td>
<td width="623" 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="_c" class="class"><%=rs("musicname")%></a></td>
<td width="45" background="images/line1.gif"><a href="play.asp?id=<%=rs("id")%>" target="_c"><img src="images/play.gif" onMouseOver="src='images/play1.gif';" onMouseOut="src='images/play.gif'" border="0"></a></td>
<td width="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>
<%
if i mod 2=0 and i>=2 then
%>
</tr>
<%
end if
rs.movenext
loop
else
response.write"<tr><td height=468 valign=top><font color=red>没有歌曲</font></td></tr>"
end if
rs.close
%>
<tr>
<td height="30" colspan="8" 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>
<tr>
<td colspan="8">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center"><font color="#0B7B00"><%
if Page > 1 Then%> <a href="?classid=<%=classid%>&page=1">首页</a> | <a href="?classid=<%=classid%>&page=<%=Page-1%>">上一页</a> |
<%else%>
<font color="#0B7B00"> 首页 | 上一页 |</font>
<%end if%>
<%if Page<>pagetotal then%>
<font color="#999999"> <a href="?classid=<%=classid%>&page=<%=Page+1%>">下一页</a> | </font><font color="#999999"> <a href="?classid=<%=classid%>&page=<%=pagetotal%>">末页</a> |</font>
<%else%>
<font color="#0B7B00"> 后一页 | 末页</font>
<%end if%>
<%response.Write("共"&Total_news&"条记录 页次: "&Page&"/")%>
<%response.Write(""&pagetotal&"")%></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="3" height="6"><img src="images/class_left.gif" width="3" height="6"></td>
<td width="100%" height="6"><img src="images/class_bg.gif" width="100%" height="6"></td>
<td width="3" height="6"><img src="images/class_right.gif" width="3" height="6"></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->