sort.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 108 行

<%
dim Class_Id,Nclass_Id,Sort_sql,Order
Class_Id=Request.QueryString("Class_Id")
Nclass_Id=Request.QueryString("Nclass_Id")
Order=Request.QueryString("Order")
if Nclass_Id<>"" then Sort_sql=" and Nclass_Id="&Nclass_Id
if Order<>"" then Sort_sql=Sort_sql&" and special_Order='"&Order&"'"
%>
<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
  <!--DWLayoutTable-->
  <tr> 
    <td colspan="2" height="1" > </td>
  </tr>
  <tr> 
    <td width="160"  valign="top" ><table width="160" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>专集排行 
              TOP 10</b></font></div></td>
        </tr>
      </table> <table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <%                   
set rs=server.CreateObject("adodb.recordset")      
		n=0      
		sql="select top 10 special_id,special_name from SongSpecial order by hits desc"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
			n=n+1      
			response.write "<font color=#3399ff>■</font> <a href=Special_Show.asp?Special_Id="&rs("Special_Id")&" target='_blank' >"&rs("special_Name")&"</a>"      
			   
		rs.movenext      
		loop      
		rs.close      
		%>
          </td>
        </tr>
      </table></td>
    <td width="600"   align="center" valign="top">
	 <!-- #include file="top2.asp" -->
	<br> <table width="75%" border="0" cellspacing="1" cellpadding="4" >
        <tr align="center" bgcolor="#f0f0f0"> 
          <td><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=A">Ａ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=B">Ｂ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=C">Ｃ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=D">Ｄ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=E">Ｅ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=F">Ｆ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=G">Ｇ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=H">Ｇ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=I">Ｉ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=J">Ｊ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=K">Ｋ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=L">Ｌ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=M">Ｍ</a></td>
        </tr>
        <tr align="center" bgcolor="#f0f0f0"> 
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=N">Ｎ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=O">Ｏ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=P">Ｐ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=Q">Ｑ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=R">Ｒ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=S">Ｓ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=T">Ｔ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=U">Ｕ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=V">Ｖ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=W">Ｗ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=X">Ｘ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=Y">Ｙ</a></td>
          <td ><a href="Sort.asp?Class_Id=<%=Class_Id%>&NClass_Id=<%=NClass_Id%>&Order=Z">Ｚ</a></td>
        </tr>
      </table>
      <br> <table width="75%" border="0" cellspacing="1" cellpadding="1" >
        <tr   bgcolor="lightblue"> 
           <td width="5%" align="center">索引</td>
          <td width="25%" align="left">专辑</td>
     <td width="5%" align="center">点击</td>
           <td width="15%" align="center">发行公司</td>
          <td width="12%" align="center">发行时间</td>
          <td width="12%" align="center">收录时间</td>

        </tr>
        <%
		sql="select special_ID,special_name,special_Order,company,time,adddate,hits from songspecial where Class_Id="&Class_Id&Sort_sql&" order by special_Order"
		rs.open sql,conn,1,1
		do while not rs.eof
			Response.Write "<tr  bgcolor=""#ffffff"">"&_
			"<td bgcolor=""#f0f0f0""><b>"&rs("special_Order")&"</b></td>"&_
			"<td bgcolor=""#f0f0f0""><a href=special_Show.asp?special_Id="&rs("special_Id")&">"&rs("special_Name")&"</a></td>"&_ 
                       "<td bgcolor=""#f0f0f0"">"&rs("hits")&"</td>"&_
			 "<td bgcolor=""#f0f0f0"">"&rs("company")&"</td>"&_
			"<td bgcolor=""#f0f0f0"">"&rs("time")&"</td>"&_
                  "<td bgcolor=""#f0f0f0"">"&rs("adddate")&"</td>"&_

						  
						   "</tr>"
			rs.movenext
		 loop
		rs.close
%>
      </table>
</td>
  </tr>
  
</table>
<!-- #include file="foot.asp" -->