dj.asp

本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、 教育科研、教师之窗、学生园地、学校党建、 校园相册、校内论坛(导航内容后台生成,可随

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="音乐音乐"
dim founderr
founderr=false
if request.querystring("djcat_id")<>"" then
  if not isInteger(request.querystring("djcat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
  end if
end if
call head()
call menu()
sql="select djcat_id,djcat_name from djcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=l></TD>" & vbCrLf
response.write "<TD height=""23"" align=""right"">"
do while not rs.eof
if request("djcat_id")=cstr(rs("djcat_id")) then
response.write "<font class=""title"">·"&rs("djcat_name")&"</font>&nbsp;"
else
response.write "<a href='?djcat_id="&rs("djcat_id")&"'>·"&rs("djcat_name")&"</a>&nbsp;"
end if
rs.movenext
loop
if rs.bof and rs.eof then
response.write "当前没有分类&nbsp;"
rs.close
end if%>
</TD><TD class=r></TD></TR></TBODY></TABLE>
<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder="0" height=300>
  <TBODY>
  <TR vAlign=top align=left>
    <TD width=200>
<DIV class=member>
<SCRIPT type=text/javascript>lanyutabletop("总 量 排 行","ml");</SCRIPT>
<UL class=nl>
<%
sql="SELECT top "&topdjnum&" dj_id,dj_name,dj_count,dj_date FROM dj ORDER by dj_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<LI><a href='showdj.asp?dj_id=<%=rs("dj_id")%>' onclick="LyWindow(this.href,'dj','400','330','no','no','center');return false" Title='音乐名称：<%=rs("dj_name")%>&#13&#10浏览次数：<%=rs("dj_count")%>&#13&#10上传时间：<%=rs("dj_date")%>'><%=left(rs("dj_name"),14)%></a></LI>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>当前还没有音乐<br><br></div>
<%
rs.close
end if%></UL>
<SCRIPT type=text/javascript>lanyutablebottom("mr");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("FLASH 推 荐","ml");</SCRIPT>
<UL class=nl>
<%
sql="SELECT top "&bestdj&" dj_id,dj_name,dj_count,dj_date FROM dj where isbest = 1 order by dj_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><LI><a href='showdj.asp?dj_id=<%=rs("dj_id")%>' onclick="LyWindow(this.href,'dj','400','330','no','no','center');return false" Title='音乐名称：<%=rs("dj_name")%>&#13&#10视听次数：<%=rs("dj_count")%>&#13&#10上传时间：<%=rs("dj_date")%>'><%=left(rs("dj_name"),14)%></a></LI>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>当前还没有音乐<br><br></div>
<%rs.close
end if%>
</UL>
<SCRIPT type=text/javascript>lanyutablebottom("mr");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("FLASH、动 漫 查 找","mr");</SCRIPT>
<form name="form2" method="post" action="dj.asp"><div align=center><input type='radio' name='select' value='dj_name' checked>名称&nbsp;<input type='radio' name='select' value='dj_user'>作者&nbsp;<input type='radio' name='select' value='review'>评论<input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onFocus='this.select();' class="lanyu">&nbsp;<input type='submit' name='search'  value='搜索' onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff">
</div></form>
<SCRIPT type=text/javascript>lanyutablebottom("mr");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("本 站 声 明","ml");</SCRIPT>
<div style="LINE-HEIGHT: 180%">&nbsp;1.本站FLASH、动漫部分来自网络,版权归原作者所有!如有版权问题敬请<a href='mailto:<%=webmail%>' Title='给站长写信'><font color=green>联系我们</font></a>,谢谢!<br>&nbsp;2.由于网络原因有的音乐连接较慢，请耐心等待！<br>&nbsp;3.如发现个别错误链接,请在FLASH播放窗口按[<font color=red><b>B</b></font>]键&nbsp;发送错误报告!</UL>
<SCRIPT type=text/javascript>lanyutablebottom("mr");</SCRIPT>
<%
dim totalcs,Currentpage,totalpages,i
sql="select * from dj order by dj_id DESC"
if request.querystring("djcat_id")<>"" then
sql="select dj_id,dj_name,dj_count,dj_date,dj_user,review,reviewcount from dj where djcat_id="&request.querystring("djcat_id")&" order by dj_id DESC"
elseif request("keyword")<>"" then
sql="select dj_id,dj_name,dj_count,dj_date,dj_user,review,reviewcount from dj where "&request("select")&" like '%"&request("keyword")&"%'order by dj_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
</DIV></TD>
<TD>
<DIV class=mframe>
<SCRIPT type=text/javascript>lanyutable("<%if request("djcat_id")<> "" then%>本分类共有<%elseif request("keyword")<>"" then%>共搜索到<%else%>当前共有<%end if%><span><%=totalcs%></span>首音乐");</SCRIPT></SPAN>
<table width="100%" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" frame=lhs>
<%
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 bgColor=#FFFFFF><TD nowrap width="60%"><UL class=nl><LI class=lanyu><a href='showdj.asp?dj_id=<%=rs("dj_id")%>' onclick="LyWindow(this.href,'dj','400','330','no','no','center');return false" Title='音乐名称：<%=rs("dj_name")%>&#13&#10视听次数：<%=rs("dj_count")%>&#13&#10上传时间：<%=rs("dj_date")%>'><%=rs("dj_name")%></a></LI></UL></TD><TD width="15%" align=Center><a href="dj.asp?select=dj_user&keyword=<%=rs("dj_user")%>" title='查找作者[<%=rs("dj_user")%>]的所有歌曲'><%=rs("dj_user")%></a></TD><TD width="10%" align=Center><%=rs("dj_count")%></TD><TD width="15%" align=Center><%=rs("dj_date")%></TD></TR>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%><tr><td align=middle height="60" colSpan=4><%if request("djcat_id")<> "" then%>该分类暂时没有音乐<%elseif request("keyword")<>"" then%>没有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的音乐！<%else%>没有任何音乐，请管理员到后台添加！<%end if%></td></td></tr>
<%end if
end if
%>
<form name="form1" method="post" action="dj.asp?select=<%=request("select")%>&keyword=<%=request("keyword")%>&djcat_id=<%=request.querystring("djcat_id")%>">
<tr> 
<td align="right" colspan="4">
<TABLE cellSpacing=0 cellPadding=3 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle width="200"><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="200" align=middle><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?select="&request("select")&"&keyword="&request("keyword")&"&page=1&djcat_id="&request.querystring("djcat_id")&">首页</a> "
response.write "<a href=dj.asp?select="&request("select")&"&keyword="&request("keyword")&"&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?select="&request("select")&"&keyword="&request("keyword")&"&page="&CurrentPage+1&"&djcat_id="&request.querystring("djcat_id")
response.write ">下一页</a> <a href=dj.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&totalpages&"&djcat_id="&request.querystring("djcat_id")&">尾页</a>"
end if
%>&nbsp;<IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="120">
<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="转向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"> </TD>
</TR>
</TABLE></td></tr></FORM>
<tr align="center"><td height="1" colspan="3"></td></tr></table>
</DIV><br></TD></TR>
</TBODY></TABLE>
<%
rs.close
set rs=nothing
call footer()
%>