videoclass.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<script language="javascript">
<!--
   function test() {
      return confirm("警告！\n将同时删除该栏目下的所有专辑以及视频！是否继续？");
    }
//-->
</script>

  
<table width="60%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
  <%
set rs=server.createobject("adodb.recordset")
sql="select ClassName,ClassId from VideoClass"
rs.open sql,conn,1,1
if rs.eof then
response.write "<form name=form method=post action=VideoClasssave.asp?action=add>"&_
          "<tr  align=center> "&_
            "<td colspan=3>一级栏目管理</td>"&_
          "</tr>"&_
          "<tr> "&_
            "<td width=113 align=right nowrap ><font color=#663333>增加栏目：</font></td>"&_
            "<td width=272>"&_
            "  <input type=text name=NewClassName size=30>"&_
            "</td>"&_
           " <td width=127 align=center> "&_
           "   <input type=submit name=add value=增　加>"&_
           " </td>"&_
         " </tr>"&_
       " </form>"&_
	   "</table>"&_
	   "</td></tr></table>"
response.end
else

%>
        <form name="form" method="post" action="VideoClassSave.asp?action=add">
          <tr  align="center" > 
            <td colspan="3" bgcolor="#F0F0F0">视频栏目管理</td>
          </tr>
          <tr> 
            <td width="113" align="right" nowrap><font color="#663333">增加栏目：</font></td>
            <td width="272"> 
              <input type="text" name="NewClassName" size="30">
            </td>
            <td width="127" align="center"> 
              <input type="submit" name="add" value="增　加">
            </td>
          </tr>
        </form>
        <form name="form" method="post" action="VideoClassSave.asp?action=edit">
          <tr> 
            <td width="113" align="right" nowrap><font color="#663333">修改栏目：</font></td>
            <td width="272"> 
              <input type="text" name="NewClassName" size="20">
              <select name="ClassId">
                <% do while not rs.eof
			   response.write"<option value="&rs("ClassId")&">"&rs("ClassName")&"</option>"
			   rs.movenext
			   loop
			  %>
              </select>
            </td>
            <td width="127" align="center"> 
              <input type="submit" name="edit" value="修　改">
            </td>
          </tr>
        </form>
        <%rs.MoveFirst%>
        <form name="form" method="post" action="VideoClassSave.asp?action=del" onSubmit="return test();">
          <tr bgcolor="#FFE8DF"> 
            <td width="113" align="right" nowrap bgcolor="#FFFFFF"><font color="#663333">删除栏目：</font></td>
            <td width="272" bgcolor="#FFFFFF"> 
              <select name="ClassId">
                <% do while not rs.eof
			   response.write"<option value="&rs("ClassId")&">"&rs("ClassName")&"</option>"
			   rs.movenext
			   loop
			  %>
              </select>
            </td>
            <td width="127" align="center" bgcolor="#FFFFFF"> 
              <input type="submit" name="del" value="删　除">
            </td>
          </tr>
        </form>
      </table>
     
       
        <%
end if
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%> 

</table> 
<!-- #include file="../Inc/Foot.asp" -->