www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Art_3.asp
<!--#include file="const.asp"--> <%CheckAdmin2%> <%PageName="Art_3"%> <!--#include file="Top.Asp"--> <link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css"> <% '===========================版权信息=============================== ' 流光音乐系统 1.0 ' Homepage : http://www.ad968.cn ' E-Mail : 77280511@qq.com ' QQ : 77280511 '请保留版权信息,以便我们更好的为您服务 '================================================================== dim i set rs=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") sql="select * from class order by classid" rs.open sql,conn,1,1 i=request("id") if i="" then i=rs("Classid") do while not rs.eof rs.movenext loop rs.close sql="select * from class where classid="&i rs.open sql,conn,1,1 if rs.eof then else %> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> <tr class="title"> <td height="22" colspan="3" align="center"><strong>歌 手 分 类 管 理</strong></td> </tr> <% sql2="select * from SClass where Classid="&rs("Classid")&" order by Sclassid" rs2.open sql2,conn,1,1 if rs2.eof then %> <tr><td Class="title" align="center">尚无歌手分类</td></tr> <% else j=0 do while not rs2.eof j=j+1 %> <tr> <td width="100%" class=tdbg> <table width="100%" border="0" cellspacing="0" cellpadding="0" align=center class=tdbg> <form method="POST" action="Art_2.asp?act=rename&SClassid=<%=rs2("SClassid")%>" id=form<%=j%> name=form<%=j%>> <tr> <td class=tdbg width="21%"> <%=rs2("SClassid")%>.<%=rs2("SClass")%></td> <td class=tdbg width="27%"><input size=15 type="text" name="SClass" class=input value="<%=rs2("SClass")%>"> <input class=input type="submit" value="改 名" name="Submit"></td> <td class=tdbg width="52%"><a title='生成<%=rs2("SClass")%>所有歌手页面' href='make_type.asp?263=<%=rs2("sclassid")%>'><font color=BLUE>1.生成歌手页面</font></a> <a title='生成<%=rs2("SClass")%>所有专辑页面' href='make_specialall.asp?type=all&zzyy=<%=rs2("sclassid")%>'><font color=BLUE>2.生成专辑页面</font></a> <a title='生成<%=rs2("SClass")%>所有歌曲页面' href='make_musiclistall.asp?type=all&zzyy=<%=rs2("sclassid")%>'><font color=BLUE>3.生成歌曲页面</font></a> <a title="不到万一请不要使用此功能" href='Art_2.asp?act=del&SClassid=<%=rs2("SClassID")%>'><font color=red>删除</font></a> </td> </tr> </form> </table> </td> </tr> <% rs2.movenext loop end if rs2.close end if rs.close %> </table> <% set rs=nothing set rs2=nothing conn.close set conn=nothing %> </body> </html>