dj_body.asp

音乐类型的好网站

<%sub dj_body()
sql="select * from djcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<style type="text/css">
<!--
.style1 {color: #ffffff}
-->
</style>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td height="80" colspan="5" align="center" background="img/banner1.gif"><OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 height=80 width=760>
      <PARAM NAME="movie" VALUE="img/3.swf">
      <PARAM NAME="quality" VALUE="high">
      <PARAM NAME="wmode" VALUE="transparent">
      <embed src="img/3.swf" width="760" height="80" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"  type="application/x-shockwave-flash" wmode="transparent"></embed>
    </OBJECT></td>
  </tr>
  <tr bgcolor="#000000">
    <td width="20%" align="center"><a href="<%=dh1url%>"><%=dh1name%></a></td>
    <td width="20%" align="center"><a href="<%=dh2url%>"><%=dh2name%></a></td>
    <td width="20%" align="center"><a href="<%=dh3url%>"><%=dh3name%></a></td>
    <td width="20%" align="center"><a href="<%=dh4url%>"><%=dh4name%></a></td>
    <td width="20%" align="center"><a href="<%=dh5url%>"><%=dh5name%></a></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#666666">
<tr>
  <td width="43" height="30" align="right"><img src="img/j.gif"></td>
<td width="725" height="30">
<%do while not rs.eof%>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="index.asp?djcat_id=<%=rs("djcat_id")%>"><%=rs("djcat_name")%></a><%rs.movenext
loop
if rs.bof and rs.eof then%>当前没有分类
<%end if%></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="189" height="25" background="img/bline.gif"><img src="img/a1.gif" width="169" height="25"></td>
<td width="19" align="center" background="img/bline.gif">&nbsp;</td>
<td width="356" height="25" align="center" background="img/bline.gif"><img src="img/new1.gif" width="300" height="25"></td>
<td width="20" align="right" background="img/bline.gif">&nbsp;</td>
<td width="176" height="25" align="right" background="img/bline.gif"><img src="img/advice.gif" width="176" height="25"></td>
</tr>
<tr>
<td rowspan="2">
<%
sql="SELECT top 10 * FROM dj ORDER by dj_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="歌曲评价：<%=rs("dj_desc")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a><br>
<%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有歌曲<%end if%></td>
<td rowspan="2" valign="top" background="img/l.gif">&nbsp;</td>
<td height="34" valign="top"><%call index_news()%></td>
<td rowspan="2" valign="top" background="img/l.gif">&nbsp;</td>
<td rowspan="2" valign="top"><%
sql="SELECT top 10 * FROM dj where isbest = 1 order by dj_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="歌曲评价：<%=rs("dj_desc")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a><br>
<%rs.movenext
loop
if rs.eof and rs.bof then%> 当前还没有歌曲<%end if%>
</td>
</tr>
<tr>
  <td height="15" align="right" valign="bottom"><a href="news.asp"><img src="img/more.gif" alt="更多新闻" width="75" height="15" border="0"></a></td>
</tr>
</table>
<TBODY>
<TR>
<td width=760 align=left vAlign=top><%
dim totalcs,Currentpage,totalpages,i
sql="select * from dj order by dj_id DESC"
if request.querystring("djcat_id")<>"" then
sql="select * from dj where djcat_id="&request.querystring("djcat_id")&" order by dj_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width='760' height="25" border='0' align="center" cellpadding='0' cellspacing='0'>
<tr> 
<td width="190" background="img/bline.jpg">&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp;共有<span><%=totalcs%></span>首歌曲</td>
<td width="40" background="img/bline.gif"><img src="img/bline2.gif" width="40" height="25"></td>
<td width="530" background="img/bline.gif"><marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=2>觉得本站咱不错的话，请记住本站网址：<%=homeurl%></marquee></td>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333333" style="border-collapse: collapse">
<tr align="center">
<%
if not rs.eof then
rs.movefirst
rs.pagesize=djperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
if currentpage<>1 then
if (currentpage-1)*djperpage<totalcs then
rs.move(currentpage-1)*djperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalcs mod djperpage)=0 then
totalpages=totalcs\djperpage
else
totalpages=totalcs\djperpage+1
end if
i=1
do while not rs.eof and i<djperpage+1
%>
<td bgcolor="#990000"><a href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a></td>
<% if i mod 5 =0 then%>
</tr>
<tr align="center">
<%end if%>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%>当前没有歌曲！
<%end if
end if
if not request("type")=1 then%>
<td bgcolor="#990000" colspan="5"><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#990000">
<form name="form1" method="post" action="index.asp?djcat_id=<%=request.querystring("djcat_id")%>">
<TBODY>
<TR> 
<TD width="35%" height=25 align="middle"><IMG height=14 src="img/cha.gif" width=14 align=absMiddle>共[<font color="#FF6666"><%=totalcs%></font>]首歌曲 分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="43%" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "首页 上一页"
else
response.write "<a href=index.asp?page=1&djcat_id="&request.querystring("djcat_id")&">首页</a> "
response.write "<a href=index.asp?page="&CurrentPage-1&"&djcat_id="&request.querystring("djcat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href=index.asp?page="&CurrentPage+1&"&djcat_id="&request.querystring("djcat_id")
response.write ">下一页</a> <a href=index.asp?page="&totalpages&"&djcat_id="&request.querystring("djcat_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/gt.gif" width=11 align="absMiddle"></TD>
<TD width="22%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select>&nbsp;<input type="submit" name="Submit2" value="转向" class="button"> </TD>
</TR>
</FORM>
</TABLE></td></tr></table>
          
<table width="760" border="0" align="center">
<tr>
<td align="center">
<%=advertise%></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666666">
  <tr align="center" bgcolor="#990000">
    <td width="95" height="35"><img src="<%=logo%>" border="0"></td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35" bgcolor="#990000">&nbsp;</td>
    <td width="95" height="35" bgcolor="#990000">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
  </tr>
  <tr align="center" bgcolor="#990000">
    <td width="95" height="35"><%=WebName%></td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
    <td width="95" height="35">&nbsp;</td>
  </tr>
</table><%end if%>
<%
rs.close
set rs=nothing
end sub%>