index.asp

971音乐站全站程序

        <tr>
          <td><table width="579" height="120" border="0" align="right" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="1" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
                <td width="577" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td bgcolor="#FFFFFF"> 
                        <%
 	Dim New_Special_rs
	Set New_Special_rs = Server.CreateObject("ADODB.Recordset")
	sql = "select SpecialID,name,Yuyan,NClass,pic,NClassID from [Special] ORDER BY SpecialID desc"
	New_Special_rs.open sql, conn, 1, 1
 	For i=1 To 9
 		If New_Special_rs.eof Then Exit For
 			If (i-1) mod 3 = 0 Then
 			%>
                        <table width="560" border="0" align="center" cellpadding="0" cellspacing="2">
                          <tr> 
                            <%End If
							pic1=New_Special_rs(4)
													  if instr(pic1,"/pic/")>0 then
	pic1="http://www.9520.cn/"&pic1
	end if
							%>
                            <td width="11%"><a href="show.asp?specialid=<%Response.Write(New_Special_rs(0))%>" target="_blank"><img src="<%=pic1%>" width="60" height="70" border="0" style="border: 1 solid #000000"></a></td>
                            <td width="22%" valign="top"> <table width="120" border="0" cellspacing="0" cellpadding="2">
                                <tr valign="top"> 
                                  <td height="22"><font color="#FF6600"><font color="#000000"><img src="images/om_icon10_yes.gif" alt="专 辑" width="14" height="14"></font></font></td>
                                  <td height="22"><a href="show.asp?specialid=<%Response.Write(New_Special_rs(0))%>" target="_blank"><u><font color="#FF6600"> 
                                    <%Response.Write(New_Special_rs(1))%>
                                    </font></u></a></td>
                                </tr>
                                <tr valign="top"> 
                                  <td width="17" height="22"><font color="#FF6600"><font color="#FF6600"><img src="images/bull_voice_ok.gif" alt="歌 手" width="15" height="14"><font color="#000000"></font></font><font color="#000000"> 
                                    </font></font></td>
                                  <td width="95"><font color="#FF6600"><font color="#000000"><a href="special.asp?id=<%Response.Write(New_Special_rs(5))%>" target="_blank"> 
                                    <%Response.Write(New_Special_rs(3))%>
                                    </a></font></font></td>
                                </tr>
                                <tr valign="top"> 
                                  <td height="22"><img src="images/036.gif" alt="语 言" width="15" height="16"></td>
                                  <td> 
                                    <%Response.Write(New_Special_rs(2))%>
                                  </td>
                                </tr>
                              </table></td>
                            <% If (i mod 3 = 0) and (i<>9) Then%>
                          </tr>
                        </table>
                        <%If i=3 Then%>
                      </td>
                    </tr>
                  </table>
                  <%End If%>
                  <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>
                  <%
	ElseIf i=9 Then
		Response.Write ("</tr></table>")
	End If
	New_Special_rs.movenext
Next
New_Special_rs.close
Set New_Special_rs=NOTHING
%>
                </td>
                <td width="1" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
              </tr>
            </table>
            <p>&nbsp;</p></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/music_03.gif" width="589" height="29"></td>
        </tr>
      </table>
      <table width="100%" height="79" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td valign="top">
<table width="579" height="92" border="0" align="right" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="1" height="92" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
                <td width="577" valign="top"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="1">
                    <tr> 
                      <td width="37" height="24"> <div align="center"><strong><font color="#FF6600">选择</font></strong></div></td>
                      <td width="253" height="24"> <div align="center"><strong><font color="#FF6600">歌 
                          曲</font></strong></div></td>
                      <td width="107"><div align="center"><strong><font color="#FF6600">歌 
                          手</font></strong></div></td>
                      <td width="37" height="24"> <div align="center"><strong><font color="#FF6600">试听</font></strong></div></td>
                      <td width="38" height="24"> <div align="center"><strong><font color="#FF6600">歌词</font></strong></div></td>
                      <td width="44" 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>
                    </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>
                    <form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="Yxplaylist.asp">
                      <!-- 歌曲列表 SQL参数Best_Music_Sql、Best_Music_Num -->
                      <%
		Dim Best_Music_rs,Best_Music_bgcolor
		Set Best_Music_rs=conn.execute("select ID,MusicName,Singer,hits,NClassID from [MusicList] where IsGood=true ORDER BY ID desc")
		For i=1 To 18
			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"> <input type="checkbox" name="checked" value="<%Response.Write (Best_Music_rs(0))%>"></td>
                        <td height="22" >&nbsp;<img src="images/d.gif" alt="" width="12" height="12"> 
                          <%Response.Write (Best_Music_rs(1))%>
                        </td>
                        <td height="22" align="center"><a href="special.asp?id=<%Response.Write (Best_Music_rs(4))%>"> 
                          <%Response.Write (Best_Music_rs(2))%>
                          </a></td>
                        <td height="22" align="center"><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"> 
                          <%
	  	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="&Best_Music_rs(2)&"')""><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="&Best_Music_rs(2)&"')""><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"><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"><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
%>
                      <!-- 歌曲列表 结束 -->
                      <tr> 
                        <td colspan="7" align="center" height=40><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"> 
                          &nbsp; <input type="button" name="mother" value="" onclick="javascript:location.href='music.asp';" title="显示所有的推荐歌曲" style="width: 62px; height: 23px; background-image: url('images/ly4.gif'); border-style: none; border-width: medium"> 
                        </td>
                      </tr>
                    </form>
                  </table></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%>