<!--#include file="inc/jc_conn.asp"--><HTML><HEAD><TITLE>福建音乐视听网-www.0hao.cn|为您免费提供最新最热的mp3音乐视听</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="keywords" content="mp3音乐欣赏，mp3免费下载,mp3在线音乐,最新mp3,最新歌手mp3,在线点歌,点歌台,福建音乐视听网|http://0hao.cn">
<meta name="description" content="mp3音乐欣赏，mp3免费下载,mp3在线音乐,最新mp3,最新歌手mp3,在线点歌,点歌台,福建音乐视听网|http://0hao.cn">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<script language="jscript.encode" src="js/js.js"></script>
</head>
<body leftmargin="0" topmargin="0" link="#0066FF" vlink="#000000" alink="#FF0000" bgcolor="#ECFBFF" marginwidth="0" marginheight="0" rightmargin="0" style="text-align: center">
<script src="js/header.js"></script>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FFFFFF">
  <tr>
    <td><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" background="/images/class_r1_c3.gif">
        <tr><td width="0%"><img src="images/class_r1_c1.gif" width="10" height="25"></td>
          <td width="100%" align="center">
<a href='/'><font color='#FFFFFF'>首页</font></a> 
<a href='sclass/1.htm'><font color='#FFFFFF'>华人男歌手</font></a> <a href='sclass/2.htm'><font color='#FFFFFF'>华人女歌手</font></a> <a href='sclass/3.htm'><font color='#FFFFFF'>华人组合</font></a> <a href='sclass/4.htm'><font color='#FFFFFF'>日韩男歌手</font></a> <a href='sclass/5.htm'><font color='#FFFFFF'>日韩女歌手</font></a> <a href='sclass/6.htm'><font color='#FFFFFF'>日韩组合</font></a> <a href='sclass/7.htm'><font color='#FFFFFF'>欧美歌手</font></a> <a href='sclass/8.htm'><font color='#FFFFFF'>影视其他</font></a> <a href='http://www.23sg.net'><font color='#ccff33'>爱上搜歌</font></a> <a href='http://mtv.0hao.cn'><font color='#ccff33'>MTV频道</font></a> <a href='http://movie.0hao.cn'><font color='#ccff33'>免费电影</font></a>  
<a href='/caishow/'><font color="#59ff59">彩信频道</font></a><sup><img src="images/hot.gif" width="21" height="9"></sup>
	  </td><td width="0%"><img src="images/class_r1_c5.gif" width="10" height="25"></td>
        </tr>
      </table></td>
  </tr>
</table>

<%
function replacestr(str)
str=replace(replace(replace(replace(lcase(trim(str)),"'",""),">",""),"<",""),"chr","")
replacestr=replace(replace(replace(str,"%",""),"char",""),"=","")
end function

keyword=replacestr(request("keyword"))
stype=request("stype")
fs=request("fs")
if keyword="" then
Response.write "<center>查找字符不能为空，请重输入查找的信息<a href=""javascript:window.close()"">返回重查</a>"
Response.End 
end if
%><table class=en9pt cellpadding=0 cellspacing=0 border=0 width=780 align=center valign=middle> 
<tr>
<td align=center width="80%"> 
<table width="778" border="0" cellpadding="0" cellspacing="0">
        <tr>
      <td> 
            <table class=en9pt width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5" height="25">
              <tr> 
                <td width="780" height="1" colspan="2" bgcolor="#FF9933"></td>      
          </tr>      
              <tr> 
                <td width="587" height="23">　<font color="#000000">福建音乐视听网 &gt;&gt;&gt;&gt;</font>                                     <font color="#000000">搜索列表&gt;&gt;&gt;&gt;</font>关键字 "<font color="green"><%=keyword%></font>"</td>
            <td width="179" height="20">　</td>
          </tr>                                               
        </table>                                               
            <table width="780" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">                                               
              <tr>                                               
            <td>  <table border="0" width="100%" cellspacing="0" cellpadding="0">                                               
<td>                                               
                    <div align="center">                                               
                    <%
Set rs= Server.CreateObject("ADODB.Recordset")
if stype="1" then
sql="select * from musiclist order by musicid desc"
elseif stype="2" then
sql="select * from nclass order by nclassid desc"
elseif stype="3" then
sql="select * from Special order by Specialid desc"
else
Response.write "stype参数有误  <a href=""javascript:window.close()"">返回重查</a>"
Response.End                                                   
end if                                                
rs.open sql,conn,1,1 
if fs="1" then
  if stype="1" or stype="3" then 
     rs.filter = "name='"&keyword&"'" 
  elseif stype="2" then   
     rs.filter = "nclass='"&keyword&"'" 
  end if 
elseif fs="" then
  if stype="1" or stype="3" then 
     rs.filter = "name Like '%"&keyword&"%'" 
  elseif stype="2" then   
     rs.filter = "nclass like '%"&keyword&"%'" 
  end if                                                       
else
Response.write "参数有误  <a href=""javascript:window.close()"">返回重查</a>"&fs
Response.End
end if
                                               
if not isempty(request.QueryString("page")) then                                                       
currentPage=cint(request.QueryString("page"))                                                       
else                                                       
currentPage=1                                                       
end if                                                       
if rs.eof and rs.bof then                                                       
if stype="1" then                                                       
response.write "<SCRIPT language=JavaScript>alert('S o r r y\n没有找到您搜索的歌曲.');"
response.write"javascript:window.close();</SCRIPT>"                                                       
elseif stype="2" then                                                        
response.write "<SCRIPT language=JavaScript>alert('S o r r y\n没有找到您搜索的歌手.');"
response.write"javascript:window.close();</SCRIPT>"
elseif stype="3" then                                                        
response.write "<SCRIPT language=JavaScript>alert('S o r r y\n没有找到您搜索的专集.');"
response.write"javascript:window.close();</SCRIPT>"                                                    
end if                                                       
else                                                       
totalPut=rs.recordcount                                                       
MaxPerPage=20                                                       
PageUrl="Search.asp"                                                       
if currentpage<1 then currentpage=1                                                       
if (currentpage-1)*MaxPerPage>totalput then                                                       
if (totalPut mod MaxPerPage)=0 then                                                       
currentpage= totalPut \ MaxPerPage                                                       
else                                                       
currentpage= totalPut \ MaxPerPage + 1                                                       
end if                                                       
end if                                                       
if currentPage=1 then                                                       
showpage totalput,MaxPerPage,PageUrl                                                       
showContent                                                       
showpage totalput,MaxPerPage,PageUrl                                                       
search                                                       
else                                                       
if (currentPage-1)*MaxPerPage<totalPut then                                                       
rs.move (currentPage-1)*MaxPerPage                                                       
dim bookmark                                                       
bookmark=rs.bookmark                                                       
showpage totalput,MaxPerPage,PageUrl                                                       
showContent                                                       
showpage totalput,MaxPerPage,PageUrl                                                       
search                                                       
else                                                       
currentPage=1                                                       
showpage totalput,MaxPerPage,PageUrl                                                       
showContent                                                       
showpage totalput,MaxPerPage,PageUrl                                                       
search                                                       
end if                                                       
end if                                                       
rs.close                                                       
end if                                                       
                                                       
sub showContent

pagenub=request("page")
if pagenub="" then
pagenub="1"
end if                                                        
i=1                                                        
%>                                               
                      <!-----------------------搜索歌手----------------------------->                                               
                      <%if stype="2" then%>                                               
                      <table border="1" width="99%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#56B0F4" bordercolordark="#FFFFFF">                                               
<tr>                                               
<td width="40%" height=22 align=center bgcolor="#B4DEF8">歌 手</td> 
<td width="30%" height=22 align=center bgcolor="#B4DEF8">收录专集</td>
<td width="30%" height=22 align=center bgcolor="#B4DEF8">收录歌曲</td>
</tr><%do while not rs.eof%>                                       
<tr>                                               
<td>&nbsp;&nbsp;<%=i+(pagenub-1)*20%>.&nbsp;<%                                               
Set Trs= Server.CreateObject("ADODB.Recordset")                 
Tsql="SELECT * FROM Special where nclassid="+cstr(rs("nclassid"))                                               
Trs.open Tsql,conn,1,1                                               
TotalSNum=Trs.recordcount                                               
Trs.close
Tsql="SELECT * FROM musiclist where nclassid="+cstr(rs("nclassid"))                                               
Trs.open Tsql,conn,1,1                                               
MusicNum=Trs.recordcount                                               
Trs.close                                     
%> <a href="list.asp?typeid=<%=rs("nclassid")%>"><%=rs("nclass")%></a></td>                                              
<td align=center><%=TotalSNum%>　张</td>
<td align=center><%=MusicNum%>　首</td>
</tr>
<%
i=i+1                                               
if i>MaxPerPage then exit do
rs.movenext
loop
set Trs=nothing
%>
</table>

<!-----------------------搜索歌曲----------------------------->
<%elseif stype="1" then%>
<table border="1" width="99%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#56B0F4" bordercolordark="#FFFFFF"><tr>
<td width="35%" height=22 align=center bgcolor="#B4DEF8">歌曲名称</td>                                               
<td width="35%" height=22 align=center bgcolor="#B4DEF8">所属专集</td>
<td width="20%" height=22 align=center bgcolor="#B4DEF8">歌 手</td>
<td width="15%" height=22 align=center bgcolor="#B4DEF8">点歌</td> 
</tr>
<%do while not rs.eof%>
<tr>
<td>&nbsp;&nbsp;<%=i+(pagenub-1)*20%>.&nbsp;<a href="/play/play.asp?ID=<%=rs("musicid")%>" target="_blank"><%=rs("name")%></a></td>
<td align=center><a href="special/<%=rs("specialid")%>.htm" target="_blank"><%=rs("specialname")%></td>
<td align=center><a href="singer/<%=rs("nclassid")%>.htm"><%=rs("nclass")%></a></td>
<td align=center><a href="###" onclick=javascript:WriteSMusic('<%=rs("musicid")%>')><IMG src='images/qqsend.gif' border=0 width='16' height='16'></a></td>
</tr>
<%
i=i+1
if i>MaxPerPage then exit do
rs.movenext
loop
%>
                                           
</table> 


<!-----------------------搜索专集----------------------------->
<%elseif stype="3" then%>
<table border="1" width="99%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#56B0F4" bordercolordark="#FFFFFF"><tr>
<td width="30%" height=22 align=center bgcolor="#B4DEF8">专集名称</td>
<td width="20%" height=22 align=center bgcolor="#B4DEF8">歌 手</td>                                               
<td width="15%" height=22 align=center bgcolor="#B4DEF8">歌曲数目</td>
<td width="20%" height=22 align=center bgcolor="#B4DEF8">发行日期</td>
<td width="15%" height=22 align=center bgcolor="#B4DEF8">语 言</td>
</tr>
<%do while not rs.eof
Set Trs= Server.CreateObject("ADODB.Recordset")
Tsql="SELECT * FROM musiclist where Specialid="+cstr(rs("Specialid"))
Trs.open Tsql,conn,1,1                                               
MusicNumNum=Trs.recordcount                                               
Trs.close%>
<tr>
<td>&nbsp;&nbsp;<%=i+(pagenub-1)*20%>.&nbsp;<a href="special/<%=rs("specialid")%>.htm" alt='<img src=<%=rs("pic")%>>' target="_blank"><%=rs("name")%></a></td>
<td align=center><a href="singer/<%=rs("nclassid")%>.htm"><%=rs("nclass")%></a></td>
<td align=center><%=MusicNumNum%></td>
<td align=center><%=rs("times")%></td>
<td align=center><%=rs("yuyan")%></td>
</tr>
<%
i=i+1
if i>MaxPerPage then exit do
rs.movenext
loop
%>
                                           
</table>                                               
</div>                    
<%                      
else                      
end if                      
%>                      
<%                      
end sub                       
                      
function showpage(totalnumber,maxperpage,filename)                      
dim n                      
if totalnumber mod maxperpage=0 then                      
n= totalnumber \ maxperpage                      
else                      
n= totalnumber \ maxperpage+1                      
end if                      
%>                      
<BR><div align="center">                      
<center>                      
<table width=99% border="1" cellpadding="2" cellspacing="0" bordercolor="#56B0F4" bordercolordark="#FFFFFF">                      
<tr><form method=Post action="<%=filename%>?keyword=<%=keyword%>&stype=<%=stype%>">                      
<td bgcolor="#B4DEF8" width="100%" align="center">共找到<font color="<%=AlertFColor%>"><b><%=totalnumber%></b></font>项记录                                               
&nbsp;分<strong><font color="<%=AlertFColor%>"><%=n%></font></strong>页显示                                               
&nbsp;当前第<strong><font color="<%=AlertFColor%>"><%=CurrentPage%></font></strong>页                                                
<%if CurrentPage<2 then%>                                               
&nbsp;首页&nbsp;上一页&nbsp;                                               
<%else%>                                               
&nbsp<a href="<%=filename%>?page=1&keyword=<%=keyword%>&stype=<%=stype%>">首页</a>&nbsp;                                               
<a href="<%=filename%>?page=<%=CurrentPage-1%>&keyword=<%=keyword%>&stype=<%=stype%>"><font color="red"><b>上一页</b></font></a>&nbsp;                                               
<%                                               
end if                                               
if n-currentpage<1 then                                               
%>                                               
下一页&nbsp;末页                                               
<%else%>                                               
<a href="<%=filename%>?page=<%=CurrentPage+1%>&keyword=<%=keyword%>&stype=<%=stype%>"><font color="red"><b>下一页</b></font></a>&nbsp;                    
  <a href="<%=filename%>?page=<%=n%>&keyword=<%=keyword%>&stype=<%=stype%>">末页</a>                                              
<%end if%>                                                
</td></form>                                                
                                               
</tr>                                               
</table>                                               
</center>                                               
</div><BR>                                               
<%                                                
end function                                               
function Search                                               
%>                                               
<%end function%>                                               
</td>                                                
</table>                                             
			</td>                                               
          </tr>                                               
        </table>                                               
        </table>                                               
                                               
</table>                                               
                                               
<%                                               
set rs=nothing                                               
conn.close                                               
set conn=nothing                                               
%>                                               
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td align="center" bgColor=#caeeff><hr width="75%" color="#0099CC" size="1">
<font color="#0078A1">&nbsp;Copyright &copy; 2004-2008 <a href=http://www.0hao.cn><font color="#0078A1">www.0hao.cn</a> All Rights Reserved
</TD></TR></TBODY></TABLE><div style="VISIBILITY: hidden"><script src="http://0hao.cn/stat/mystat.asp?
siteid=1"></script></div></BODY></HTML>