www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Admin_Smusicmana.asp
<!--#include file="const.asp"--> <%CheckAdmin3%> <%pagename="admin_Smusicmana"%> <!--#include file="Top.Asp"--> <link rel="stylesheet" href="Images/Admin_Style.Css"> <% '===========================版权信息=============================== ' 流光音乐系统 1.0 ' Homepage : http://www.ad968.cn ' E-Mail : 77280511@qq.com ' QQ : 77280511 '请保留版权信息,以便我们更好的为您服务 '================================================================== if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> <table border="0" width="100%" cellspacing="1" cellpadding="1"> <tr> <td align=center valign=top> <% set rs=server.createobject("adodb.recordset") sql="select * from Basic order by id desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>暂时没有点歌</p>" else MaxPerPage=15 totalPut=rs.recordcount 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,"admin_SMusicMana.asp" showContent showpage totalput,MaxPerPage,"admin_SMusicMana.asp" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showpage totalput,MaxPerPage,"admin_SMusicMana.asp" showContent showpage totalput,MaxPerPage,"admin_SMusicMana.asp" else currentPage=1 showpage totalput,MaxPerPage,"admin_SMusicMana.asp" showContent showpage totalput,MaxPerPage,"admin_SMusicMana.asp" end if end if rs.close end if sub showContent dim i i=0 %> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> <tr class="title"> <td height=24 colspan="8" align="center"><font color="#FFFFFF">点 歌 管 理</font></td> </tr> <tr> <td width="5%" class=tdbg align=center>序号</td> <td width="10%" class=tdbg align=center>点歌人</td> <td width="10%" class=tdbg align=center>点歌给</td> <td width="20%" class=tdbg align=center>歌名</td> <td width="26%" class=tdbg align=center>祝福</td> <td width="13%" class=tdbg align=center>时间</td> <td width="8%" class=tdbg align=center>删除</td> </tr> <%do while not rs.eof i=i+1 %> <tr height="22"> <td width="5%" class=tdbg align=center><%=rs("id")%> </td> <td width="10%" class=tdbg align=center><%=rs("myname")%> </td> <td width="10%" class=tdbg align=center><%=rs("yourname")%> </td> <td width="20%" class=tdbg align=center><%=rs("title")%> </td> <td width="26%" class=tdbg align=center><%=rs("content")%> </td> <td width="13%" class=tdbg align=center><%=rs("jtime")%> </td> <td width="8%" class=tdbg align=center><a href="Admin_SMusicDel.asp?id=<%=rs("id")%>&page=<%=CurrentPage%>">删除</a></td> </tr> <% if i>=MaxPerPage then exit do rs.movenext loop %> </table> <% 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 %> <form method=Post action="<%=filename%>?classid=<%=classid%>&Nclassid=<%=Nclassid%>"> <center>共<font color="<%=AlertFColor%>"><b><%=totalnumber%></b></font>项点歌 <%if CurrentPage<2 then%> 首页 上一页 <%else%>  <a href="<%=filename%>?page=1&classid=<%=classid%>&Nclassid=<%=Nclassid%>">首页</a> <a href="<%=filename%>?page=<%=CurrentPage-1%>&classid=<%=classid%>&Nclassid=<%=Nclassid%>">上一页</a> <% end if if n-currentpage<1 then %> 下一页 末页 <%else%> <a href="<%=filename%>?page=<%=CurrentPage+1%>&classid=<%=classid%>&Nclassid=<%=Nclassid%>">下一页</a> <a href="<%=filename%>?page=<%=n%>&classid=<%=classid%>&Nclassid=<%=Nclassid%>">末页</a> <%end if%> 页次:<strong><font color="<%=AlertFColor%>"><%=CurrentPage%>/<%=n%></font></strong>页 转到:<select name="page" size="1" onchange="javascript:submit()"> <%for i = 1 to n%> <option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option> <%next%> </select> </form> <% end function %> </td> </tr> </table> </div> <% set rs=nothing conn.close set conn=nothing %></body></html>