<!--#include file="../inc/conn.asp"-->
<!--#include file="Star.INC"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="function.asp"-->
<%
'===========请保留版权信息,如果去除，将不提供相关服务==============
' 888网音乐系统 V8.1 版
' 管方网址：www.888wang.com
' 技术支持: QQ:56566918
' 客服：见www.888wang.com网站的客服QQ
' 电话:15918529718
'==================================================================
'此文件为了搜索速度，去除了分页功能，这样速度大大加快
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="免费音乐,在线音乐试听,mp3音乐下载,<%=keywords%>">
<meta http-equiv="Description" content="免费音乐,在线音乐试听,mp3音乐下载,<%=Description%>">
<meta content="all" name="robots" />
<LINK href="../images/search.css" type=text/css rel=stylesheet>
<title><%=web_title%>搜索结果-免费在线音乐试听,mp3音乐下载</title>
<script type="text/javascript" src="../js/common.js"></script>
<base target="_blank" />
</head>
<body>
<script type="text/javascript" src="../js/top.js"></script>
<div id="c">
  <div class="o1 o2">
    <div class="iu">
      <iframe src="../user/userLogin.asp" frameborder="0" scrolling="no" width="380" height="25"></iframe>
    </div>
  <div class="is" id="header_bar">
	 <form name="Gforms" id="Gforms" action="../user/search.asp" method="post">
          <p style="margin-left:100px;"><span style="font-size:14px;font-weight:bold;">搜  索：</span>
            <input name="keyword" type="text" id="keyword" size="40" style="width:280px;height:18px;"/>
            <input type="submit" name="Submit" value="音乐搜索" style="height:23px;" class="btn" onClick="return check()";/>
          </p>
      </form>
	</div>  </div>
  <div class="le">
    <div class="b1">
      <h1>您好，以下是您要的搜索结果</h1>
    </div>
    <div class="tts">
      <iframe scrolling="no" topmargin="0" width="100%"  height="60" marginwidth="0" marginheight="0" frameborder="0" align="center" src="../ads/s_1.html"></iframe>
    </div>
    <%

keyword=trim(request("keyword")) 
keyword=replace(keyword,"'","''") 


if keyword="" then
'errmsg=errmsg+"您要找什么？？您没有输入任何字符，请输入要查找的字符"
response.write "<script language=javascript>alert('您要找什么？？您没有输入任何字符，请输入要查找的字符');location.href='javascript:history.go(-1)';</script>"
'call error()
Response.End 
end if

' 读取数据

   ' sql="select id,wma,musicname from musiclist where MusicName like '%"&keyword&"%' order by ID desc" 
  
 sql="select id,classid,sclassid,wma,musicname,hits,IsGood from musiclist where InStr(1,LCase(MusicName),LCase('"&keyword&"'),0)<>0 order by id desc" 
 
set rs = conn.execute(sql)

if not isempty(request.QueryString("page")) then
	currentPage=cint(request.QueryString("page"))
else
	currentPage=1
end if


if rs.eof and rs.bof then

response.write "<p align='center'><br><br><img src='../Images/Music_err.gif' width='548' height='203'><br><br><br><br></p></div>"

else
totalPut=rs.recordcount
MaxPerPage=50
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 
%>
    
    <!-----------------------搜索歌曲---------------------------->
    <div class="b1">
      <table cellspacing=""0"" cellpadding=""0"">
      <thead>
        <tr>
          <th width=""5%"">选择</th>
          <th width""60%"">歌曲</th>
		  
          <th width=""7%"">试听</th>
          <th width=""7%"">收藏</th>
          
          <th width=""7%"">下载</th>
          <th width=""7%"">铃声</th>
        </tr>
      </thead>
      <tbody id=albumSongs>
        <%do while not rs.eof%>
        <tr>
          <td align=center><input type=checkbox value=<%=rs("id")%> name=checked></td>
          <td class=ge><a href=<%=urlPlay(rs("id"))%>><%=rs("MusicName")%></a></td>
		  
          <td align=center><a href=<%=urlPlay(rs("id"))%>>试听</a></td>
          <td align=center><a href=../user/musicsc.asp?action=add&id=<%=rs("id")%>>收藏</a></td>
          
          <td align=center><a href=../ads/mms.html?<%=rs("musicname")%>  target=_blank>下载</a></td>
          <td align=center><a href=../ads/ivr.html?<%=rs("musicname")%> target=_blank>铃声</a></td>
        </tr>
        <%
	i=i+1
	if i>=MaxPerPage then exit do
rs.movenext
loop
%>
    </div>
    </table>
    <div class="e">
      <input type="button" name="" value="全 选" class="i2" onClick="clk('all','albumSongs');"/>
      <input type="button" name="" value="反 选" class="i2"  onclick="clk('un','albumSongs');"/>
      <input type="button" name="" value="歌曲连播" class="i3"  onclick="clk('play','albumSongs');"/>
    </div>
  </div>

  <%
end sub 

function showpage(totalnumber,maxperpage,filename)
dim n
if totalPut mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if
     
end function

function Search
%>
</div>
<%end function%>
<%
set rs=nothing
conn.close
set conn=nothing
%>
<div class="r">
  <div class="o1">
    <h3>广告也娱乐</h3>
    <ul>
      <iframe scrolling="no" topmargin="0" width="100%"  height="300" marginwidth="0" marginheight="0" frameborder="0" align="center" src="../ads/s_2.html"></iframe>
    </ul>
  </div>
  <div class="o1">
    <h3>广告也娱乐</h3>
    <ul id="newSongs">
      <iframe scrolling="no" topmargin="0" width="100%"  height="300" marginwidth="0" marginheight="0" frameborder="0" align="center" src="../ads/s_3.html"></iframe>
    </ul>
  </div>
  <div class="tts"></div>
</div>
</div>
<script type="text/javascript" src="../js/foot.js"></script>
</body>
</html>






