show.asp

971音乐站全站程序

                                <TBODY>
                                  <TR> 
                                    <TD height=2><IMG height=2 
            src="img/dot.gif" 
            width=10></TD>
                                  </TR>
                                </TBODY>
                              </TABLE></td>
                          </tr>
                          <tr> 
                            <td height="25" bgcolor="f7f7f7"><font color="#FF6600">&nbsp;发行日期：</font><font color="#000000"><%=Times%></font></td>
                          </tr>
                          <tr> 
                            <td> <TABLE width=100% height=2 
      border=0 align="center" cellPadding=0 cellSpacing=0 
      background="images/txwm_line_1.gif">
                                <TBODY>
                                  <TR> 
                                    <TD height=2><IMG height=2 
            src="img/dot.gif" 
            width=10></TD>
                                  </TR>
                                </TBODY>
                              </TABLE></td>
                          </tr>
                          <tr> 
                            <td height="25"><font color="#FF6600">&nbsp;唱片公司：<font color="#000000"><%=GongSi%></font></font></td>
                          </tr>
                          <tr> 
                            <td> <TABLE width=100% height=2 
      border=0 align="center" cellPadding=0 cellSpacing=0 
      background="images/txwm_line_1.gif">
                                <TBODY>
                                  <TR> 
                                    <TD height=2><IMG height=2 
            src="img/dot.gif" 
            width=10></TD>
                                  </TR>
                                </TBODY>
                              </TABLE></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
                  <table width="98%" border="0" align="center" cellpadding="4" cellspacing="0">
                    <tr> 
                      <td height="37" valign="bottom"><font size="3"><strong>专辑简介：</strong></font></td>
                    </tr>
                    <tr> 
                      <td><TABLE width=100% height=2 
      border=0 align="center" cellPadding=0 cellSpacing=0 
      background="images/txwm_line_1.gif">
                          <TBODY>
                            <TR> 
                              <TD height=2><IMG height=2 
            src="img/dot.gif" 
            width=10></TD>
                            </TR>
                          </TBODY>
                        </TABLE></td>
                    
                    </tr>
                    <tr> 
                      <td><TABLE width=100% height=2 
      border=0 align="center" cellPadding=0 cellSpacing=0 
      background="images/txwm_line_1.gif">
                          <TBODY>
                            <TR> 
                              <TD height=2><IMG height=2 
            src="img/dot.gif" 
            width=10></TD>
                            </TR>
                          </TBODY>
                        </TABLE></td>
                    </tr>
                  </table></td>
                <td width="1" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
              </tr>
            </table></tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td background="images/0394_list1.gif"><table width="100%" height="29" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="3%">&nbsp;</td>
                <td width="97%" valign="bottom">歌 曲 列 表</td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" height="79" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"> <table width="579" height="127" border="0" align="right" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="1" height="127" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
                <td width="577" valign="top">
<table width="575" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
          <td width="45" height="24"> <div align="center"><strong><font color="#FF6600">选择</font></strong></div></td>
          <td width="310" height="24"> <div align="center"><strong><font color="#FF6600">歌 曲</font></strong></div></td>
          <td width="55" height="24"> <div align="center"><strong><font color="#FF6600">试听</font></strong></div></td>
          <td width="53" height="24"> <div align="center"><strong><font color="#FF6600">歌词</font></strong></div></td>
          <td width="55" height="24"> <div align="center"><strong><font color="#FF6600">音乐盒</font></strong></div></td>
          <td width="57" height="24"> <div align="center"><strong><font color="#FF6600">人气</font></strong></div></td>
        </tr>
        <tr> 
          <td colspan="7"><TABLE width=575 height=2 
      border=0 align="center" cellPadding=0 cellSpacing=0 
      background="images/txwm_line_1.gif">
                          <TBODY>
                            <TR> 
                              <TD height=2><img src="images/b.gif" width="1" height="1"></TD>
                            </TR>
                          </TBODY>
                        </TABLE></td>
        </tr>
        <!-- 歌曲列表 SQL参数Best_Music_Sql、Best_Music_Num -->
 		<form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="Yxplaylist.asp">
 		<%
	Dim Best_Music_rs,Best_Music_Num,Best_Music_Sql,Best_Music_bgcolor
	Best_Music_Sql="select ID,MusicName,Singer,hits from [MusicList] where Specialid="&Cint(SpecialID)
	Best_Music_Num=100
	Set Best_Music_rs=conn.execute(Best_Music_Sql)
	For i=1 To Best_Music_Num
		If Best_Music_rs.eof Then Exit For
		Best_Music_bgcolor="f7f7f7"
		If i mod 2 = 0 Then 
			Best_Music_bgcolor="ffffff"
		Else
			Best_Music_bgcolor="f7f7f7"
		End If
	%>
        <tr bgcolor="<%Response.Write (Best_Music_bgcolor)%>"> 
          <td height="22" align="center" width="45"> <input type="checkbox" name="checked" value="<%Response.Write (Best_Music_rs(0))%>"></td>
          <td height="22" width="310" >&nbsp;<img src="images/d.gif" alt="第 <%Response.Write (i)%> 首" width="12" height="12"> 
            <%Response.Write (Best_Music_rs(1))%></td>          
                      <td height="22" align="center" width="55"><a href="#" onclick="window.open('yxplay.asp?id=<%Response.Write(Best_Music_rs(0))%>','','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')"><img src="images/0394_test.gif" alt="试 听" width="26" height="11" border=0></a></td>
          <td height="22" align="center" width="53">
        <%
	  Dim Open_MusicWord_rs
          Set Open_MusicWord_rs=conn.execute("select ID from [MusicWord] where IsShow=true and MusicID="&Best_Music_rs(0))
          	If Open_MusicWord_rs.eof Then
          		Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=add&id="&Best_Music_rs(0)&"&musicname="&Replace(Best_Music_rs(1),"'","’")&"&singer="&Nclass&"')""><img src='images/035no.gif' alt='添加歌词' width='16' height='13' border=0></a>")
          	Else
          		Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=show&id="&Best_Music_rs(0)&"&musicname="&Replace(Best_Music_rs(1),"'","’")&"&singer="&Nclass&"')""><img src='images/035.gif' alt='浏览歌词' width='16' height='13' border=0></a>")
          	End If
          Open_MusicWord_rs.close
          Set Open_MusicWord_rs=NOTHING%>
          </td>
          <td height="22" align="center" width="55"><a href="#" onclick="javascript:window.open('musicbox.asp?action=add&id=<%Response.Write(Best_Music_rs(0))%>','blank')"><img src="images/center_img22.gif" alt="放入音乐盒" width="17" height="12" border=0></a></td>
          <td height="22" align="center" width="57"><font color="#FF0000"><%Response.Write (Best_Music_rs(3))%></font></td>
        </tr>
        <tr> 
          <td colspan="7"> <TABLE width=100% height=2 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/txwm_line_1.gif"><TBODY><TR> <TD height=2><IMG height=2 src="img/dot.gif" width=10></TD></TR></TBODY></TABLE></td>
        </tr>
<% 
		Best_Music_rs.movenext	
	Next
	Best_Music_rs.close
	Set Best_Music_rs=NOTHING
%>
<!-- 歌曲列表 结束 -->
      </table>
      <div align="center">
                  <div align="center"><br>
                    <input type="button" name="chkall" value="" onclick="CheckAll(this.form)" title="选择显示的所有歌曲" style="width: 62px; height: 23px; background-image: url('images/ly1.gif'); border-style: none; border-width: medium">
                    &nbsp; 
                    <input type="button" name="chkOthers" value="" onclick="CheckOthers(this.form)" title="反向选择歌曲" style="width: 62px; height: 23px; background-image: url('images/ly2.gif'); border-style: none; border-width: medium">
                    &nbsp; 
                    <input type="submit" name="player" value=" " title="请先选择你想听的歌曲后再点击播放" style="width: 62px; height: 23px; background-image: url('images/ly3.gif'); border-style: none; border-width: medium">
                  </div></td>
                <td width="1" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/music_04.gif" width="589" height="30"></td>
        </tr>
      </table></td>
    <td width="1" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
  </tr>
</table>
<!--#include file="box.asp"-->
<%CloseDatabase%>