admin_classmana.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top1.asp"-->
<%
dim i
set rs=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")
%>
<br><br><div align="center">
  <center>
<table border="0" width="750" cellspacing="0" cellpadding="0" height="177" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td width=5 valign=top height="219" background="images/line_bg02.gif"></td>
    <td width=175 valign=top height="219"><!--#include file="admin_left.asp"--></td>
    <td width=5 valign=top height="219" background="images/line_bg02.gif">　</td>
    <td width=568 valign=top height="219">
      <div align="center">
        <center>
              <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" style="border-collapse: collapse" bordercolor="#408AC1">
                <tr> 
                  <td width="100%" height="20" align=center bgcolor="#315977"><b> 
                    <font color="#FFFFFF">舞 曲 分 类 管 理</font></b></td>
                </tr>
                <tr> 
                  <td align=center> 
                    <%do while not rs.eof
  %>
                    <a href=admin_classmana.asp?id=<%=rs("Classid")%>><font color="#FFFFFF"><%=rs("Class")%></font> </a> 
                    <%rs.movenext
	loop
	rs.close
	%>
                    </td>
                </tr>
                <%sql="select * from class where classid="&i
rs.open sql,conn,1,1
%>
                <tr> 
                  <form method="POST" action="admin_ClassSave.asp?act=rename&Classid=<%=rs("Classid")%>" id=form<%=i%> name=form<%=i%>>
                    <td width="100%"> 
                      <table border="1" cellspacing="0" cellpadding="2" class="TableLine" width="100%">
                        <tr> 
                          <td width=439> 舞曲栏目: 
                            <input size=20 type="text" name="Class" value="<%=rs("Class")%>">
                            广告图片: 
                            <input size=20 type="text" name="tu" value="<%=rs("tu")%>">
                            <br>
                            广告选者: 
                            <select name="xz" size="1">
                             <option value=0>图片</option>
							  <option value=1>-------flash------</option>
							  <option value=2>关闭广告</option>
							  
                            </select>
                            广告连接: 
                            <input size=20 type="text" name="dz" value="<%=rs("dz")%>">
                            <br>
                            广告高度: 
                            <input size=20 type="text" name="gd" value="<%=rs("gd")%>">
                            广告宽度: 
                            <input size=20 type="text" name="kd" value="<%=rs("kd")%>">
                          </td>
                          <td width=44 align=center onmouseover="this.style.backgroundColor=''; this.style.cursor='hand'" onmouseout="this.style.backgroundColor=''" onclick="javascript:submit();this.style.backgroundColor=''" title="修改一级栏目名字"> 
                            改名</td>
                          <td width=39 align=center onmouseover="this.style.backgroundColor=''; this.style.cursor='hand'" onmouseout="this.style.backgroundColor=''" onclick="window.location.href='admin_ClassSave.asp?act=del&Classid=<%=rs("ClassID")%>';this.style.backgroundColor='<%=MianTColor%>'" title="删除此一级栏目"> 
                            删除</td>
                          </tr>
                      </table>
                    </td>
                  </form>
                </tr>
                <%
rs.close
%>
              </table>
        </center>
      </div>
          <table border="1" width="100%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#408AC1" style="border-collapse: collapse">
            <form method="POST" action="admin_ClassSave.asp?act=add">
        <tr>
                <td width="100%" height="20" colspan=2 align=center bgcolor="#315977"><b><font color="#FFFFFF">添 
                  加 舞 曲 分 类</font></b></td>
        </tr>
        <tr>
          <td>舞曲栏目: 
                            <input size=20 type="text" name="Class">
                            广告图片: 
                            <input size=20 type="text" name="tu">
                            <br>
                            广告选者: 
                            <select name="xz" id="select">
                    <option value="2" selected>关闭广告</option>
                    <option value="1">-------flash------</option>
                    <option value="0">图片</option>
                  </select>
                            广告连接: 
                            <input size=20 type="text" name="dz" >
                            <br>
                            广告高度: 
                            <input size=20 type="text" name="gd">
                            广告宽度: 
                            <input size=20 type="text" name="kd"> <input type="submit" value="添加" name="B3"></td>
        </tr>
        </form>
      </table>
    </td>
    <td width=5 valign=top height="219" background="images/line_bg02.gif">
      　</td>
  </tr>
  <tr>
    <td valign=top height="1" background="images/line_bg01.gif" colspan="5">
    <img border="0" src="images/line_bg01.gif"></td>
    </tr>
</table>
  </center>
</div>
<br><br>
<% 
set rs=nothing

conn.close
set conn=nothing
%>