<!--#include file="Const.Asp"-->
<!--#include file="error.ini"-->
<%PageName="Class"%>
<!--#include file="Top.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%
dim i
i=0 
MaxList=80
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")
%>

<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>
  <%
do while not rs.eof
	i=i+1
%>  
		  <form method="POST" action="Class2.Asp?act=rename&Classid=<%=rs("Classid")%>" id=form1 name=form1>
  <tr class="tdbg">
    <td height="30"><%=rs("Classid")%>.<%=rs("Class")%></td>
    <td width="609"><input size=20 type="text" class=input name="Class" value="<%=rs("Class")%>">&nbsp;&nbsp;<input class=input type="submit" value="改 名" name="Submit"></td>
    <td width="325"><a title="不到万一请不要用此功能" href='Class2.Asp?act=del&Classid=<%=rs("ClassID")%>'><font color=red>删除</font></a></td>
  </tr>
  </form>
  <%
	if (i mod (MaxList/2)=0) and i>=(MaxList/2) then
%>

<%
	end if
	if i>=MaxList then exit do
    rs.movenext
	loop
	rs.close
	%>
  <tr class="tdbg"> 
    <td width="173" height="30"><strong>添加总类：</strong></td>
	<form method="POST" action="Class2.Asp?act=add">
    <td><input type="text" class=input name="Class" size="20">  &nbsp;<input type="submit" value="添 加" name="B3" class=input></td>
    <td></td>
  </tr>
</table>

<% 
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>