search.asp

971音乐站全站程序

						Response.Write (" 下一页")
					Else%>
                        &nbsp;<a href='?page=<%=cint(curpage+1)%>&key_keyword=<%=key_keyword%>&key_type=<%=key_type%>'>下一页</a> 
                        <%End If%>
                      </td>
                    </tr>
                  </table>
                  <%If key_type="special" Then%>
                  <%
	
 	For i=1 To pagesize
		If (i-1) mod 3 = 0 Then
			j=j+1
%>
                  <table width="575" border="0" align="center" cellpadding="0" cellspacing="2">
                    <tr> 
                      <%		End If
		If i mod 2<>0 Then
			bgcolor="f7f7f7"
		Else
			bgcolor="ffffff"
		End If
%>
                      <td width="11%" bgcolor="<%=bgcolor%>"><a href="show.asp?specialid=<%=Music_rs(0)%>" target="_blank"><img src="http://www.9520.cn/<%=Music_rs(4)%>" width="60" height="70" border="0" style="border: 1 solid #000000"></a></td>
                      <td width="22%" valign="top" bgcolor="<%=bgcolor%>"> <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=<%=Music_rs(0)%>" target="_blank"><u><font color="#FF6600"><%=Music_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=<%=Music_rs(5)%>" target="_blank"><%=Music_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><%=Music_rs(2)%></td>
                          </tr>
                        </table>
                        <%
Music_rs.movenext
If (i mod 3 = 0) or  Music_rs.eof or i=pagesize Then
%>
                    </tr>
                  </table>
                  <TABLE width=575 height=2 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/txwm_line_1.gif">
                    <TBODY>
                      <TR> 
                        <TD height=1><img src="images/b.gif" width="1" height="1"></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <%
End If
	If Music_rs.eof Then Exit For
Next
%>
                  <%else%>
                  <table width="575" border="0" align="center" cellpadding="0" cellspacing="0">
                    <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">
<%
 	For i=1 To pagesize
 		If i mod 2<>0 Then
			bgcolor="f7f7f7"
		Else
			bgcolor="ffffff"
		End If

%>
        <tr bgcolor="<%=bgcolor%>">
          <td height="22" align="center"> <input type="checkbox" name="checked" value="<%Response.Write (Music_rs(0))%>"></td>
          <td height="22" >&nbsp;<img src="images/d.gif" alt="" width="12" height="12"> 
            <%Response.Write (Music_rs(1))%></td>          
          <td height="22" align="center"><a href="special.asp?id=<%Response.Write (Music_rs(4))%>"><%Response.Write (Music_rs(2))%></a></td>
                      <td height="22" align="center"><a href="#" onclick="window.open('yxplay.asp?id=<%Response.Write(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="&Music_rs(0))
          	If Open_MusicWord_rs.eof Then
          		Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=add&id="&Music_rs(0)&"&musicname="&Replace(Music_rs(1),"'","’")&"&singer="&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="&Music_rs(0)&"&musicname="&Replace(Music_rs(1),"'","’")&"&singer="&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(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 (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>
<%
	Music_rs.movenext
	If Music_rs.eof Then Exit For
Next
%>      </table>
      <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></form>
                  <%End If%>
                  <div align="center"> 
                    <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td align="center"> &nbsp;共搜索到<font color=red><%=Music_rs.recordcount%></font>条记录，分成<font color=red><%=Music_rs.pagecount%></font>页，每页<font color=red><%=pagesize%></font>条记录，当前是第<font color=red><%=curpage%></font>页 
                          &nbsp; 
                          <%If curpage = 1 Then
						Response.Write ("上一页")
					Else%>
                          <a href='?page=<%=cint(curpage-1)%>&key_keyword=<%=key_keyword%>&key_type=<%=key_type%>'>上一页</a> 
                          <%                                       
					End If
					If  curpage = Music_rs.pagecount Then
						Response.Write ("&nbsp;下一页")
					Else%>
                          &nbsp;<a href='?page=<%=cint(curpage+1)%>&key_keyword=<%=key_keyword%>&key_type=<%=key_type%>'>下一页</a> 
                          <%End If%>
                        </td>
                      </tr>
                    </table>
                  </div>
                  <%
End If
Music_rs.close
Set Music_rs=NOTHING
%>
                </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><img src="images/0394log.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%>