www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > search.asp
<!--#include file="Connkkp.asp"-->
<%on error resume next%>
<%
keyword=trim(request("keyword"))
keyword=replace(keyword,"'","''")
stype=request("stype")
if keyword="" then
errmsg=errmsg+"您要找什么？？您没有输入任何字符，请输入要查找的字符"
call error()
Response.End
end if
%>
<!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=GB2012" />
<meta content="all" name="robots" />
<meta name="Generator" content="Notepad" />
<meta name="Author" content="www.xu57.cn" />
<meta name="author" content="<%=yuming%>" />
<title>搜索结果-<%=zhanming%>-<%=yuming%></title>
<meta name="description" content="<%=yuming%>,<%=zhanming%>" />
<meta name="keywords" content="<%=zhanming%>" />
<LINK href="images/xy.css" type=text/css rel=stylesheet>
<script language="javascript" type="text/javascript" src="js/js.js"></script>
</head>
<body>
<CENTER>
<DIV id=topdiv>
<DIV id=DengLu><IFRAME marginWidth=0 marginHeight=0 src="user/"
frameBorder=0 width=758 scrolling=no height=30></IFRAME></DIV>
<DIV id=Crown>
<DIV id=logo><IMG src="images/logo.jpg"></DIV>
<DIV id=CrownLeft><IMG src="images/ad1.gif"></DIV></DIV></DIV>
<DIV id=wbk>
<DIV id=Column>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname></DIV>
<DIV id=Columnname></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="list/dj_6_1.html">流行音乐</A></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="list/dj_5_1.html">视频舞曲</A></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="list/dj_4_1.html">慢摇舞曲</A></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="list/dj_3_1.html">英文嗨曲</A></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="list/dj_2_1.html">中文舞曲</A></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="list/dj_1_1.html">现场串烧</A></DIV>
<DIV id=Columnimg><IMG height=20 src="images/sutiao.jpg" width=2></DIV>
<DIV id=Columnname><A href="index.html">网站首页</A></DIV></DIV>
<DIV id=tongso>
<DIV id=Statistics><a href="/djtop/index.Html" class="main"> 最新上传舞曲</a> <a href="/djtop/h.Html" class="main">试听总榜</a> <a href="/djtop/d1.Html" class="main">今日排行</a> <a href="/djtop/d2.html" class="main">昨日排行</a> <a href="/djtop/w2.html" class="main">上周排行</a> <a href="/djtop/w1.html" class="main">本周排行</a> <a href="/djtop/m2.html" class="main">上月排行</a> <a href="/djtop/m1.html" class="main">本月排行</a> <a href="/djtop/good.html" class="main">精选舞曲</a></DIV>
<FORM action=search.asp method=post>
<DIV id=Search>舞曲搜索： <INPUT id=keyword
style="BORDER-RIGHT: #999999 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: #999999 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; BACKGROUND: #ffffff; PADDING-BOTTOM: 0px; BORDER-LEFT: #999999 1px solid; WIDTH: 155px; COLOR: #333333; PADDING-TOP: 2px; BORDER-BOTTOM: #999999 1px solid; HEIGHT: 15px"
name=keyword> <SELECT name=select> <OPTION value=music
selected>舞曲</OPTION></SELECT> <INPUT style="WIDTH: 55px; HEIGHT: 17px"
type=image src="images/sosuo.jpg"> </DIV></FORM></DIV></DIV>
<DIV id=wbk>
<DIV id=ad><SPAN id=ads778a>内容载入中...</SPAN></DIV></DIV>
<div id="wbk">
<div id="ad" class="webtext"> 当前位置 > > 搜索：<font color=#ff0000><%=KeyWord%></font> - 欢乐今夜DJ舞曲网-www.xy57.cn</div>
</div>
<div id="wbk">
<div id="ad" class="webtext"> 搜索到与[ <font color=#ff0000><%=KeyWord%></font> ]相关舞曲</div>
</div>
<div id="wbk">
<div id="djweb">
<div id="list">
<div id="zxjrwq1">
<div id="Navigation" class="top1 nwwuqu1">
<div id="wuqudh3"> <span id="xu0" class="top6 cu">选择</span><span id="musicname0" class="top6 cu">歌曲名称</span><span id="shiting0" class="cu" style="padding-top:6px;">试听</span><span id="hits0" class="top6 cu">人气</span><span id="shoucang0" class="top6 cu">收藏</span><span id="down0" class="top6 cu">下载</span><span id="addtime0" class="top6 cu">更新时间</span><span id="xu0" class="top6 cu">选择</span><span id="musicname0" class="top6 cu">歌曲名称</span><span id="shiting0" class="cu" style="padding-top:6px;">试听</span><span id="hits0" class="top6 cu">人气</span><span id="shoucang0" class="top6 cu">收藏</span><span id="down0" class="top6 cu">下载</span><span id="addtime0" class="top6 cu">更新时间</span></div>
</div>
<div id="wuqudh4" class="sbj9">
<table width="100%"><form name='form' target='xydj' action='../Player/'>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from Musiclist"
rs.open sql,conn,1,1
rs.filter = "MusicName like '%"&keyword&"%'"
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>没有找到你所要的音乐<br><br><br><br></p>"
else
totalPut=rs.recordcount
MaxPerPage=100
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
%>
<tr>
<%do while not rs.eof
i=i+1%>
<td width='30pt'><span class='anlan'><input type=checkbox name=id value=<%=Rs("Id")%>></span></td><td width='248pt' align=left> <a href='../P/<%=Rs("Id")%>.html' target='xydj' title=''><%=i%>.<%=left(rs("musicname"),18)%></a></td><td width='35pt'><a href='../P/<%=Rs("Id")%>.html' target='xydj'><img src='../images/music.gif' border='0' /></a></td><td width='35pt'><%=Rs("hits")%></td><td width='35pt'><a href='../User/UserCollect.asp?action=add&id=<%=Rs("Id")%>' target='shoucang'>收藏</a></td><td width='30pt'><a href='../D/?id=6783' target='xz'><img src='../images/down.jpg' border='0' /></a></td><td width='65pt'><%=Year(rs("DateAndTime"))%>-<%=Right("0"&Month(rs("DateAndTime")),2)%>-<%=Right("0"&Day(rs("DateAndTime")),2)%></td>
<%
if i mod 2=0 then
%>
</tr><tr>
<%
end if
if i mod 100=0 then
%>
</tr>
<%
end if
%>
<%
if i>=MaxPerPage then exit do
rs.movenext
loop
%> </table>
</div>
</div>
<div id="zxjrwq1" class="mixfy">
<input type=button value="全 选" onClick="CheckAll(this.form)" title="选择显示的所有歌曲" class="ipbb" /> <input type=button value="反 选" onClick="CheckOthers(this.form)" title="反向选择歌曲" class="ipbb" /> <input type="submit" value="连续播放" title="请先选择你想听的歌曲后再点击连播" name="B1" class="ipbc"/> <input type="reset" name="Submit22" value="清空选定" class="ipbc"/>
</div>
<div id="zxjrwq1" class="mixfy">
<%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
%>
<%=Nclass%><font color="#FF9933"><b>
共找到<%=totalnumber%>个结果 分<%=n%>页显示 当前第<%=CurrentPage%>页
<a href="<%=filename%>?page=1&keyword=<%=keyword%>">
首页</a> <%if CurrentPage<2 then%>上一页 <%else%>
</b></font><b>
<a href="<%=filename%>?page=<%=CurrentPage-1%>&keyword=<%=keyword%>">
<font color="#FF9933">上一页</font></a><font color="#FF9933">
<%
end if
if n-currentpage<1 then
%> 下一页 末页 <%else%> </font><a href="<%=filename%>?page=<%=CurrentPage+1%>&keyword=<%=keyword%>">
<font color="#FF9933">下一页</font></a></b><font color="#FF9933"><b>
<a href="<%=filename%>?page=<%=n%>&keyword=<%=keyword%>">
末页</a> <%end if%> </b></font>
<%
end function
function Search
%>
<%end function%><%
set rs=nothing
conn.close
set conn=nothing
%>
</div></form>
</div>
</div>
</div>
<DIV id=wbk>
<DIV id=ad><SPAN id=ads960b>内容载入中...</SPAN></DIV></DIV>
<div id="wbk">
<div class="copyright">
<div id="bottomlm1">关于本站 - 联系我们 - 广告联系 - 版权说明 - 加入收藏 - 设为主页</div>
<div style="height:60px; line-height:180%; margin-top:5px;">Copyright 2003-2007 Www.xy57.cn All rights reserved<BR>
本站舞曲紧供测试网络,其所有权为DJ作者及所属公司拥有<BR>
<a href="http://www.miibeian.gov.cn/" target="_blank">鲁ICP备07504330号</a> 联系ＱＱ：260477522 <script language="javascript" type="text/javascript" src="http://js.users.51.la/1562569.js"></script>
<noscript><a href="http://www.51.la/?1562569" target="_blank"><img alt="我要啦免费统计" src="http://img.users.51.la/1562569.asp" style="border:none" /></a></noscript>
</div>
</div>
</div>
</center>
</body>
</html>
<script language="JavaScript" type="text/javascript" src="../js/fenlei.js"></script>