special_show.asp

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

<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL) { //v2.0
  window.open(theURL);
}
//-->
</script>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="160" height="183" 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" valign="top">
	<!-- #include file="top2.asp" -->
	<%
Special_Id=request("Special_Id")
conn.execute("update SongSpecial set hits=hits+1 where Special_Id="&Special_Id)
sql="select * from Songspecial where Special_Id="&Special_Id
rs.open sql,conn,1,3
if not rs.eof then
	Special_Name=rs("Special_Name")
	Special_Company=rs("Company")
	if len(rs("image"))>0 then
        Special_img=rs("image")
	else
	    Special_img="../images/blank.gif"
	end if
	Special_time=rs("time")
	Special_Adddate=rs("Adddate")
end if
rs.close
%>
	<table width="95%" border="0" cellspacing="1" cellpadding="4">
        <tr bgcolor="#f0f0f0"> 
          <td width="38%" rowspan="8" align="center"><img src=<%=Special_img%> width=100 height=100>
            </td>
          <td width="15%" align="right"><b>专辑名称：</b></td>
          <td width="47%"><%=Special_Name%></td>
        </tr>
              <tr> 
          <td width="15%" align="right" bgcolor="#f0f0f0"><b>出品公司：</b></td>
          <td width="47%" bgcolor="#f0f0f0"><%=Special_Company%></td>
        </tr>
        <tr> 
          <td width="15%" align="right" bgcolor="#f0f0f0"><b>出品时间：</b></td>
          <td width="47%" bgcolor="#f0f0f0"><%=Special_time%></td>
        </tr>
        <tr> 
          <td width="15%" align="right" bgcolor="#f0f0f0"><b>上架日期：</b></td>
          <td width="47%" bgcolor="#f0f0f0"><%=formatdatetime(Special_Adddate,1)%></td>
        </tr>

      </table><%
sql="select Song.Song_Id,Song.Song_Name,song.singer,Song.rm,Song.mp3,song.mv,song.swf,song.special_id,songspecial.special_Id,songSpecial.Special_Name  from Song,SongSpecial where Song.Special_Id=songSpecial.Special_Id  and Song.Special_Id="&Special_Id

rs.open sql,conn,1,1
if not rs.eof then
%>
 <table width="99%" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000">
  <tr align="center"  bgcolor="#CCCCCC"> 
       <td height=16 width="16%">歌名</td>
       <td width="10%">演唱</td>
       <td width="5%">试听</td>
       <td width="5%">下载</td>
       <td width="5%">MTV</td>
       <td width="5%">flash</td>
       <td width="5%">歌词</td>
        <td width="15%" >相关搜索</td>
       </tr> 
	   <form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="play.asp"> 
<%do while not rs.eof%>
        <tr bgcolor="#f0f0f0" align="center">
          <td align="left"><%=rs("Song_Name")%></td>
          <td><%=rs("singer")%></td>
          <td><%if len(rs("rm"))>0 then %>
		 <a href="#" onClick="window.open('play.asp?name=<%=rs("Song_Id")%>','Lcmusic','scrollbars=no,resizable=no,width=380,height=380,menubar=no,top=168,left=168')"><img  src="../images/rm.gif " border=0 width=16 height=16></a>
		  <%else response.write"<img  src=../images/rm.jpg border=0 width=16 height=16>" end if%></td>
          <td><%if len(rs("mp3"))>0 then response.write"<a href="&rs("mp3")&" ><img  src=../images/mp3.gif border=0 width=16 height=16></a>" else response.write"<img  src=../images/mp3.jpg border=0 width=16 height=16>" end if%></td>
          <td><%if len(rs("mv"))>0 then response.write"<a href="&rs("mv")&" ><img  src=../images/mv.gif border=0 width=16 height=16></a>" else response.write"<img  src=../images/mv.jpg border=0 width=16 height=16>" end if%></td>
          <td><%if len(rs("swf"))>0 then response.write"<a href="&rs("swf")&" ><img  src=../images/swf.gif border=0 width=16 height=16></a>" else response.write"<img  src=../images/swf.jpg border=0 width=16 height=16>" end if%></td>
          <td><a href="http://www.baidu.com/m?tn=baidump3lyric&ct=150994944&rn=10&word=<%=rs("Song_Name")%>" target="_blank"><img  src="../images/word.gif" border="0" ></a></td>
          <td>[<a href="http://search.sogua.com/search/search.asp?key=<%=rs("Song_Name")%>"                 target="_blank">Sogua</a>]    [<a href="http://www.baidu.com/m?rn=&tn=baidump3&ct=134217728&word=<%=rs("Song_Name")%>"            target="_blank">百 度</a>]</td>
         </tr>
<% rs.movenext
 loop
end if
rs.close
%></form></table>
	</td>
  </tr>
</table>
<!-- 底部信息部分 -->
<!-- #include file="foot.asp" -->