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%">&nbsp;&nbsp;<%=rs2("SClassid")%>.<%=rs2("SClass")%></td>
                      <td class=tdbg width="27%"><input size=15 type="text" name="SClass" class=input value="<%=rs2("SClass")%>">&nbsp;&nbsp;<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>&nbsp;&nbsp;<a title='生成<%=rs2("SClass")%>所有专辑页面' href='make_specialall.asp?type=all&zzyy=<%=rs2("sclassid")%>'><font color=BLUE>2.生成专辑页面</font></a>&nbsp;&nbsp;<a title='生成<%=rs2("SClass")%>所有歌曲页面' href='make_musiclistall.asp?type=all&zzyy=<%=rs2("sclassid")%>'><font color=BLUE>3.生成歌曲页面</font></a>&nbsp;&nbsp;<a title="不到万一请不要使用此功能" href='Art_2.asp?act=del&SClassid=<%=rs2("SClassID")%>'><font color=red>删除</font></a>&nbsp;&nbsp;&nbsp;&nbsp;</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>