<%PageName="search"%>
<%on error resume next%>
<!--#include file="conn.asp"-->
<!--#include file="functionuser.asp"-->
<!--#include file="../css/star.INC"-->
<%
keyword=trim(request("keyword")) 
keyword=replace(keyword,"'","''") 
stype=request("stype")
if keyword="" then
errmsg=errmsg+"ַΪգҵϢ<a href=""javascript:history.go(-1)"">ز</a>"
call error()
Response.End 
end if
%>
<div align="center">  
<script language="jscript.encode" src="../js/mb.asp"></script>
<html><head><meta http-equiv='Content-Type' content='text/html' charset=gb2312'>
<meta name=keywords content=',ÿ,ֿ,,ÿ,Ӱ,Ҫ,ҡ,DJ,ֿ'>
<meta name='description' content=',ÿ,ֿ,ÿ,ֳ,̳,,,,,,,mp3,,ƽ,Ӱ,zy11,dj,ֿ '>
<META NAME='ROBOTS' CONTENT = 'All'><link rel='Bookmark' href='../favicon.ico'>
<link rel='Shortcut Icon' href='../favicon.ico'> 
<title>ÿ-ֿ:ĸ-ֵ-http://www.okera.com</title>

<script language="jscript.encode" src="../js/top.js"></script>
 <DIV align=center>
  <table border="0" cellpadding="0" cellspacing="0" class=tb1 style='border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;width:99%;'>
        <tr>
    <script language="jscript.encode" src=../js/ad2/1-1.js></script> 
  </tr>
        </table>
<table cellspacing=0 cellpadding=0 align=center class=tb1 style='border-top-width: 0px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;width:99%;'>
  <tr> 
 <td class=tb1 style='border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 0px;width:185;' valign="top" bgColor=#f0f0f0>
<script language="jscript.encode" src=../js/zy11-1.js></script>
<script language="jscript.encode" src=../js/gonggao.js></script>
<script language="jscript.encode" src=../js/zy11-2.js></script>
<script language="jscript.encode" src=../js/z-topzj10.js></script>
<script language="jscript.encode" src=../js/zy11-3.js></script>
<script language="jscript.encode" src=../js/z-topge10.js></script>
<script language="jscript.encode" src=../js/zy11-4.js></script>
<script language="jscript.encode" src=../js/kucunxinxi.js></script>
<script language="jscript.encode" src=../js/zy11-5.js></script>
<script language="jscript.encode" src=../js/guanggao2.js></script>
<script language="jscript.encode" src=../js/zy11-6.js></script>
  </td>
  <td width="100%" valign="top" align="center" class=tb1 style='border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px;'> 
         
  
   <div align="center"> 
               <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class=tb1 style='border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px;'>
   <tr>
<td  align=center width="100%"> 
<table width="100%">
<tr>
<td >
<%
Set rs= Server.CreateObject("ADODB.Recordset")
if stype="Singer" then
sql="select * from Nclass where Nclass Like '%"& keyword &"%' order by Nclassid desc"
elseif stype="Music" then 
'sql="select * from MusicList where MusicName Like '%"& keyword &"%' order by id desc"
sql="select * from Musiclist where MusicName like '%"&keyword&"%' "
elseif stype="Special" then
sql="select * from Special where Name Like '%"& keyword &"%' order by Specialid desc"
else
end if
'response.write sql
'response.end
rs.open sql,conn,1,1
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="Singer" then
response.write "<p align='center'><br><br>Sorry, δ     Ҫ   <br><br><a href=""javascript:history.go(-1)"">   </a><br><br></p>"
elseif stype="Music" then 
response.write "<p align='center'><br><br>Sorry, δ     Ҫ   <br><br><a href=""javascript:history.go(-1)"">   </a><br><br></p>"
elseif stype="Special" then
response.write "<p align='center'><br><br>Sorry, δ     Ҫ  ר <br><br><a href=""javascript:history.go(-1)"">   </a><br><br></p>"
end if
else
totalPut=rs.recordcount
MaxPerPage=10
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 
i=0 
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<td><div align="center">
<!---------------------------------------------------->
<%if stype="Singer" then%>
<table border="1" width="100%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="50%" height=22 align=center bgcolor="#E8F7E6"></td>
<td width="25%" height=22 align=center bgcolor="#E8F7E6">¼</td>
<td width="25%" height=22 align=center bgcolor="#E8F7E6">¼ר</td>
</tr>
<%
Set Trs= Server.CreateObject("ADODB.Recordset")
do while not rs.eof
i=i+1
Tsql="SELECT * FROM MusicList where Nclassid="+cstr(rs("Nclassid"))
Trs.open Tsql,conn,1,1
TotalMNum=Trs.recordcount
Trs.close
Tsql="SELECT * FROM Special where Nclassid="+cstr(rs("Nclassid"))
Trs.open Tsql,conn,1,1
TotalSNum=Trs.recordcount
Trs.close
Tsql="SELECT * FROM Nclass where Nclassid="+cstr(rs("Nclassid"))
Trs.open Tsql,conn,1,1
Trs.close
%>
<tr>
<td width="50%">&nbsp;&nbsp;<%=i%>.&nbsp;<a href="../special/msp_<%=rs("NClassid")%>.htm"><%=rs("Nclass")%></a></td>
<td width="25%" align=center><%=TotalMNum%></td>
<td width="25%" align=center><%=TotalSNum%></td>
</tr>
<%
if i>=MaxPerPage then exit do
rs.movenext
loop
set Trs=nothing
%>
</table>

<!---------------------------------------------------->
<%elseif stype="Music" then%>
<table border="1" width="100%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#000000" bordercolordark="#FFFFFF">
<tr>
<form name="form2" onSubmit="javascript:return lbsong();" target="zy11musiclisten" action="../play/zy11songlian.asp">
                                <td width="35" align="center" class=bg1 valign="bottom">ѡ</td>
                                <td width="171" align="center" height="20" class=bg1 valign="bottom"></td>
                                <td width="51" align="center" class=bg1 valign="bottom"></td>
                                <td width="40" align="center" class=bg1 valign="bottom"></td>
                                <td width="49" align="center" class=bg1 valign="bottom"></td>
                                <td width="28" align=center class=bg1></td>
                                <td width="37" align="center" class=bg1 valign="bottom"></td>
                                <td width="33" align="center" class=bg1 valign="bottom"></td>
                                <td width="42" align="center" class=bg1 valign="bottom">ֺ</td>
                                <td width="35" align="center" class=bg1 valign="bottom"></td>
</tr>

<%do while not rs.eof%>
<tr>
<td width="35" align="center"><input type="checkbox" name="id" value="<%=rs("id")%>"></td>
<td width="171" > <%=(i+1)%>.<a href="javascript:zy11play('<%=rs("id")%>')"><%=rs("MusicName")%></a></td>
<td width="51" align="center" width="61"><a href="../special/msp_<%=rs("NClassid")%>.htm"><%=rs("singer")%></a></td>
<td width="40" align=center><%=rs("hits")%></td>
<td width="49" align="center" width="49"><%if rs("Wma")<>"" then%><a href="javascript:zy11play('<%=rs("id")%>')"><img border="0" height="17" src="../images/shiting.gif" width="19" alt=""></a><%else%><%end if%></td>
<td width="28" align="center" width="37"><a href="javascript:down('<%=rs("id")%>')"><img src="../images/down.gif" border="0" width="15" height="15" alt="ر"></a></td>
<td align="center" width="37"><a href="javascript:songword('<%=rs("id")%>')"><img src="../images/geci.gif" width="15" height="15" border="0" alt="鿴ĸ"></a></td>
<td align="center" width="33"><a href="#" onClick="window.open('Mailsong.asp?id=<%=rs("id")%>','','scrollbars=no,resizable=no,width=419,height=151,menubar=no,top=98,left=198')"><img border="0" height="17" src="../images/diange.gif" width="18" alt="ѱ͸ѹ"></a></td>
<td align="center" width="42"><a href="musicsc.asp?action=add&amp;id=<%=rs("id")%>" target="_blank" title="Աʹֺ"><img src="../images/shoucang.gif" border="0" width="15" height="15" alt="ѱֺ"></a></td>
<td align="center"><a href="http://mysms.tom.com/smslist/smsearch.php?inc=3&amp;keyword=<%=rs("MusicName")%>&amp;user_id=56473" target="_blank"><img border="0" src="../images/sms.gif" WIDTH="18" HEIGHT="14" alt="뱾صֻ"></a></td>
</tr>
                     
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr>
<td align="center" colspan="10" height="22" width="100%">
<input type="button" name="chkall" value="ȫѡ" style="background-color: #f0f0f0; color: #000000; border: 1 solid #000000" onclick="CheckAll(this.form)" title="ѡʾи">&nbsp;
<input type="button" name="chkOthers" value="ѡ" style="background-color: #f0f0f0; color: #000000; border: 1 solid #000000" onclick="CheckOthers(this.form)" title="ѡ">&nbsp;
<input type="submit" name="B1" value="" style="background-color: #f0f0f0; color: #000000; border: 1 solid #000000" title="ѡĸٵ">
</td>
</tr>
</form>
</table>
<!-----------------------ר----------------------------->
<%elseif stype="Special" then%>
<table border="1" width="100%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="30%" height=22 align=center bgcolor="#E8F7E6">ר</td>
<td width="20%" height=22 align=center bgcolor="#E8F7E6">ݳ</td>
<td width="10%" height=22 align=center bgcolor="#E8F7E6"></td>
<td width="10%" height=22 align=center bgcolor="#E8F7E6">ר</td>
<td width="10%" height=22 align=center bgcolor="#E8F7E6">¼</td>
<td width="5%" height=22 align=center bgcolor="#E8F7E6">ղ</td>
<td width="5%" height=22 align=center bgcolor="#E8F7E6">㲥</td>
</tr>
<%
Set Trs= Server.CreateObject("ADODB.Recordset")
do while not rs.eof
i=i+1
Tsql="SELECT * FROM MusicList where Specialid="+cstr(rs("Specialid"))
Trs.open Tsql,conn,1,1
TotalMNum=Trs.recordcount
Trs.close
%>
<tr>
<td>&nbsp;<%=i%>.<a href="../musiclist/mmc_<%=rs("Specialid")%>.htm"><%=rs("Name")%></a></td>
<td  align=center><a href="../special/msp_<%=rs("NClassid")%>.htm"><%=rs("Nclass")%></a></td>
<td  align=center><%=rs("Times")%></td>
<td  align=center><%=rs("Yuyan")%></td>
<td  align=center><%=TotalMNum%></td>
<td  align=center><a href="albumsc.asp?action=add&amp;id=<%=rs("specialid")%>" target="_blank" title="Աʹרղؼ">ղ</a></td>
<td  align=center><a href="#" onClick="window.open('Mailalbum.asp?id=<%=rs("specialid")%>','','scrollbars=no,resizable=no,width=419,height=151,menubar=no,top=98,left=198')" title="ѵ㲥ר">㲥</a></td>
</tr>
<%
if i>=MaxPerPage then exit do
rs.movenext
loop
Set Trs=nothing
%>
</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=100% border="0" cellpadding="2" cellspacing="0" bordercolor="#000000" bordercolordark="#FFFFFF">
<tr><form method=Post action="<%=filename%>?keyword=<%=keyword%>&stype=<%=stype%>">
<td  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> 
</table> 
</center> 
</div> 
</table> 
</table> 
</div> 
<%
set rs=nothing
conn.close
set conn=nothing
%> 
<script language="jscript.encode" src=../js/zy11copy.js></script>  