index.asp

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

<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
    <TR> 
      <TD width=160 rowspan="2" vAlign=top background=../images/leftftbg.gif><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" valign=top  bgcolor="#FFFFFF"> 
<!--#include file="top2.asp"-->
  <div align=center>
 <table border=0 width=100%>
 <tr>
<%                   
set rs=server.CreateObject("adodb.recordset")      
    
		sql="select top 4 special_id,image,special_name from SongSpecial order by Special_Id desc"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
               if len(rs("image"))>0 then
                   picsrc=rs("image")
                else
                 picsrc="../images/blank.gif"
               end if
			response.write "<td width=""25%""><a href=Special_Show.asp?Special_Id="&rs("Special_Id")&" ><img src="&picsrc&" border=0 width=100 height=100></a><br> "&rs("special_Name")&" </td> "      
			   
		rs.movenext      
		loop      
		rs.close      
		%>  
</tr></table>

</div>  </TD>
    </tr>
    <TR>
      <TD valign=top  bgcolor="#FFFFFF"></TD>
    </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<!-- 底部信息部分 -->
<!-- #include file="foot.asp" -->