📄 dj_body.asp
字号:
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%
sub dj_body()
sql="select * from djcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<TABLE bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<!--DWLayoutTable-->
<TBODY>
<TR>
<td width="756" height="84" valign="top" background="img/index_dj.gif"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="758" height="114">
<param name="movie" value="img/logo/top3.swf">
<param name="quality" value="high">
<embed src="img/logo/top3.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="758" height="114"></embed><param name="wmode" value="transparent"></object></TD>
</TR>
<TR>
<td height="37" align="right" valign="top"> <%do while not rs.eof%> <img src=img/none.gif border=0><img src=img/link2.gif border='0'> <a href="dj.asp?djcat_id=<%=rs("djcat_id")%>"><%=rs("djcat_name")%></a> <%rs.movenext
loop
if rs.bof and rs.eof then%>
当前没有分类 <%end if%> </TD>
</TR>
<TR>
<td height="5" background="img/menu_bg2.gif"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TR>
<td width=204 align=left vAlign=top background=img/left_bg.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41,11,67,24" href="book.asp?page=1" title="留言本"><area shape="rect" coords="114,11,140,24"面 href="admin.asp" title="后台管理"></map></td></tr>
</table>
<TABLE width=196 border=0 align=left cellPadding=0 cellSpacing=0>
<TR>
<td align=center height="61"><img src="img/two/top.jpg" width="197" height="91"></td>
</tr>
<TR>
<td><%
sql="SELECT top "&topdjnum&" * FROM dj ORDER by dj_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof %>
<img src=img/none.gif border=0><img src=img/I2.gif border='0'> <a
title="点击次数：<%=rs("dj_count")%><br>音乐评价：<%=rs("dj_desc")%><br>
更新时间：<%=rs("dj_date")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a><br><%
rs.movenext
loop
if rs.eof and rs.bof then%>
当前还没有音乐<%
end if%></td>
</tr>
<TR>
<td align=center height="61"><img src="img/two/tuijian.jpg" width="197" height="91"></td>
</tr>
<TR>
<td><%
sql="SELECT top "&bestdj&" * FROM dj where isbest = 1 order by dj_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%> <img src=img/none.gif border=0><img src=img/I2.gif border='0'> <a title="点击次数：<%=rs("dj_count")%><br>音乐评价：<%=rs("dj_desc")%><br>更新时间：<%=rs("dj_date")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a><br>
<%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有音乐<%end if%>
</td>
</tr>
<TR>
<td height="61" align=center><img src="img/two/findmusic.jpg" width="197" height="91"></td>
</tr>
<TR>
<td><%call br%><form name="frm" method="post" onSubmit="javascript: return check()" action="">
<input type='text' name='keyword' size='15' value='搜索关键字' maxlength='50' onFocus="this.value='';" class="lanyu"> <input type='submit' name='Submit' value='搜索' class="button">
</form>
<script language="javascript">
function check(){
if( frm.keyword.value == "" || frm.keyword.value == "搜索关键字"){
alert('请输入查询条件！');
}else{
//alert(form1.action);
frm.action = "dj.asp?res=" + frm.keyword.value;
return true;
}
return false;
}
</script>
<%call br%><%call br%></td>
</tr>
<TR>
<td align=center height="34"><img src="img/two/sm.jpg" width="197" height="91"></td>
</tr>
<TR>
<td><%call br%> 1.本站提供音乐来自网络,版权归原<%call br%> 作者所有!如有版权问题敬请<a href="book.asp">留言</a>指<%call br%> 明!<%call br%> 2.由于网络原因有的音乐连接较<%call br%> 慢，请耐心等待！<%call br%> 3.如有个别错误链接,不能听到舞<%call br%> 曲,请<a href="book.asp">留言</a>或直接到点击错误报告<%call br%> 给管理员指明错误链接!<%call br%><%call br%></td>
</tr>
</table>
</td>
<td width=1 height="190" background="img/xu.gif"></td>
<td width=553 align=left vAlign=top bgcolor="#ffffff">
<%call br%>
<%
dim totalcs,Currentpage,totalpages,i
sql="select * from dj "
if request.QueryString("res")<>"" then
sql=sql&" where dj_name like '%"&request.querystring("res")&"%'"
elseif request.querystring("djcat_id")<>"" then
sql=sql&" where djcat_id = "&request.querystring("djcat_id")
end if
sql=sql&" order by dj_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width='530' height="25" border='0' align="center" cellpadding='2' cellspacing='0' background="img/mainbg.gif">
<tr>
<td> <img src="img/biao.gif" align="absmiddle"> <%
if request.QueryString("res")<>"" then
response.Write "搜索“"&request.QueryString("res")&"”的结果如下："
else%>
共有<span><%=totalcs%></span>首音乐<%
end if %></td>
</tr>
</table>
<table width="530" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr>
<td bgcolor="#ECECEC" width="63%" align="center" height="22">音乐列表</td>
<td bgcolor="#ECECEC" width="10%" align="center">点击</td>
<td bgcolor="#ECECEC" width="27%" align="center">更新时间</td>
</tr><%
if not rs.eof then
rs.movefirst
rs.pagesize=djperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
if currentpage<>1 then
if (currentpage-1)*djperpage<totalcs then
rs.move(currentpage-1)*djperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalcs mod djperpage)=0 then
totalpages=totalcs\djperpage
else
totalpages=totalcs\djperpage+1
end if
i=0
do while not rs.eof and i<djperpage %>
<TR>
<TD> <img src=img/none.gif border=0><img src=img/i2.gif border='0'> <a title="音乐评价:<%=rs("dj_desc")%>" href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a></td>
<TD align="center"><%=rs("dj_count")%></TD>
<TD align="center"><%=rs("dj_date")%></TD>
</TR><%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%>
<tr>
<td nowrap height="30" colSpan=3><%
if request.QueryString("res")<>"" then
response.Write("对不起！没有你要找的结果。")
else
response.Write("当前没有音乐！")
end if %></td>
</tr><%
end if
end if
if not request("type")=1 then%>
<form name="form1" method="post" action="dj.asp?djcat_id=<%=request.querystring("djcat_id")%>">
<tr>
<td align="right" bgcolor="#ECECEC" colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TR>
<TD align=middle width="35%" height=25><IMG height=14 src="img/cha.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个作品 分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle bgcolor="#e6e6e6"><IMG height=11 src="img/lt.gif" width=11 align=absMiddle><%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=dj.asp?page=1&djcat_id="&request.querystring("djcat_id")&">首页</a> "
response.write "<a href=dj.asp?page="&CurrentPage-1&"&djcat_id="&request.querystring("djcat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=dj.asp?page="&CurrentPage+1&"&djcat_id="&request.querystring("djcat_id")
response.write ">下一页</a> <a href=dj.asp?page="&totalpages&"&djcat_id="&request.querystring("djcat_id")&">尾页</a>"
end if %><IMG height=11 src="img/gt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%">
<select name="page" class="lanyu"><%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>頁</option>
<%else%>
<option value=<%=i%>>第<%=i%>頁</option>
<%end if
next%>
</select><input type="submit" name="Submit2" value="轉向" class="button">
</TD>
</TR>
</table>
</td>
</tr>
</FORM><%
end if
call br
call br%>
</TABLE>
</td>
</tr>
</table><%
rs.close
set rs=nothing
end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -