📄 dj.asp

📁 本程序采用花香内核
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
                <tr>
                  <td  height="23"  class="a1">&nbsp;&nbsp; 歌 曲 查 找</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-right">
                <tr>
                  <td width="6"></td>
                  <td><form name="form2" method="post" action="dj.asp"><div align=center><input type='radio' name='select' value='dj_name' checked class='inuptCG'>名称&nbsp;<input type='radio' name='select' value='dj_user' class='inuptCG'>歌手&nbsp;<input type='radio' name='select' value='review' class='inuptCG'>评论<input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onfocus="this.value=''" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover="this.className='boton'" onmouseout="this.className='botoff'">
</form></td>
                  <td width="6"></td>
                </tr>
            </table></td>
          </tr>
        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
                <tr>
                  <td  height="23"  class="a1">&nbsp;&nbsp; 本 站 声 明</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-right">
                <tr>
                  <td width="6"></td>
                  <td> 1.本站部分歌曲来自网络,版权归原作者所有!如有版权问题敬请联系我们,谢谢!<BR>
 2.由于网络原因有的歌曲连接较慢，请耐心等待！<BR>
 3.如发现个别错误链接,请在歌曲播放窗口按[B]键 发送错误报告!</td>
                  <td width="6"></td>
                </tr>
            </table></td>
          </tr>
        </table>
       </td>
      </tr>
    </table>
    </td>
   <td width="572" valign="top">
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23"><table width="100%"  border="0" cellspacing="0" cellpadding="0"  class="table-shangxia">
                <tr>
                  <td  height="23"  class="a1">&nbsp;&nbsp;<%
dim totalcs,Currentpage,totalpages,i
sql="select * from dj where passed=0 order by istop desc,dj_id DESC"
if request.querystring("djcat_id")<>"" then
sql="select * from dj where passed=0 and (djcat_id="&djcat_id&hx66010&") order by istop desc,dj_id DESC"
elseif request("keyword")<>"" then
sql="select * from dj where passed=0 and "&request("select")&" like '%"&request("keyword")&"%' order by istop desc,dj_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>&nbsp;<%if request("djcat_id")<> "" then%>本分类共有<%elseif request("keyword")<>"" then%>共搜索到<%else%>当前共有<%end if%><span><%=totalcs%></span>首歌曲</SPAN></td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="125" valign="top">
<table width="99%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" class="table-left" align="right" frame=lhs>
<TR bgColor=#FFFFFF><TD width="6%" align=Center height="26">状态</TD><TD nowrap width="48%" align="center">主 题</TD><TD width="15%" align=Center>歌手</TD><TD width="6%" align=Center>下载</TD><TD width="12%" align=Center>视听/下载</TD><TD width="13%" align=Center>发表时间</TD></TR>
<%
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=0
do while not rs.eof and i<djperpage
%>
<%    
if rs("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶音乐>"       
else
folder="<img src=""img/4.gif"" title=普通音乐>"       
end if      
if rs("istop")="0" then      
if rs("isbest")=1 then
folder="<img src=""img/2.gif"" title=推荐音乐>"
elseif rs("dj_count")>500 then
folder="<img src=""img/3.gif"" title=热门音乐>"       
else
folder="<img src=""img/4.gif"" title=普通音乐>"       
end if      
end if      
%> 
<TR bgColor=#FFFFFF><TD width="6%" align=Center height="26"><%=folder%></TD><TD nowrap width="48%">&nbsp;<a href='showdj.asp?dj_id=<%=rs("dj_id")%>' Title='歌曲名称：<%=rs("dj_name")%>&#13&#10视听次数：<%=rs("dj_count")%>&#13&#10上传时间：<%=rs("dj_date")%>'><%=rs("dj_name")%></a></TD><TD width="15%" align=Center><a href="dj.asp?select=dj_user&keyword=<%=rs("dj_user")%>" title='查找作者[<%=rs("dj_user")%>]的所有歌曲'><%=rs("dj_user")%></a></TD><TD width="6%" align=Center><a href="opendj.asp?dj_id=<%=rs("dj_id")%>&url=" title='点击下载[<%=rs("dj_name")%>]'><img border="0" src="img/down.gif" width="16" height="12" ></a></TD><TD width="12%" align=Center><%=rs("dj_count")%>/<%=rs("dj_dcount")%></TD><TD width="13%" align=Center><%=year(rs("dj_date"))%>-<%=month(rs("dj_date"))%>-<%=day(rs("dj_date"))%></TD></TR>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%><tr><td align=middle height="60" colSpan=6><%if request("djcat_id")<> "" then%>该分类暂时没有歌曲<%elseif request("keyword")<>"" then%>没有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的歌曲！<%else%>没有任何歌曲，请管理员到后台添加！<%end if%></td></td></tr>
<%end if
end if
%>
<form name="form1" method="post" action="dj.asp?select=dj_name&keyword=<%=request("keyword")%>&djcat_id=<%=request.querystring("djcat_id")%>">
<tr> 
<td align="right" colspan="6">
<TABLE cellSpacing=0 cellPadding=3 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle width="200"><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="200" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=dj.asp?select=dj_name&keyword="&request("keyword")&"&page=1&djcat_id="&request.querystring("djcat_id")&">首页</a> "
response.write "<a href=dj.asp?select=dj_name&keyword="&request("keyword")&"&page="&CurrentPage-1&"&djcat_id="&request.querystring("djcat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=dj.asp?select=dj_name&keyword="&request("keyword")&"&page="&CurrentPage+1&"&djcat_id="&request.querystring("djcat_id")
response.write ">下一页</a> <a href=dj.asp?select=dj_name&keyword="&request("keyword")&"&page="&totalpages&"&djcat_id="&request.querystring("djcat_id")&">尾页</a>"
end if
%>&nbsp;<IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="120">
<select name="page">
<%
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><input type="submit" name="Submit2" value="轉向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"> </TD>


<script>
ed_ads_UserId=1520;
</script>
<script src="http://1.ads8.com:8001/code_49.js"></script>
</TR>
</TABLE></td></tr></FORM>
<tr align="center"><td height="10" colspan="6"></td></tr></table>
</TD></TR>
</TBODY></TABLE></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="1"></td>
      </tr>
    </table></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
call footer()
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -