<!--#include file="../Inc/Config.asp" -->
<!--#include file="Admin_Check.asp" -->
<!--#include file="../inc/md5VB.asp" -->
<!--#include file="../Inc/AdminClass.asp" -->
<%
Adminobj.ClassUpdate "Tb_Sys_Class","ClassCodelist","Sys"
Dim ClassShow
Set Rs=Conn.execute("select * from Tb_Sys_Class where ClassCode='"& CblogObj.GetRequest("ID") &"'")
SqlCount=SqlCount+1
ClassShow=RS.GetRows
Rs.Close:Set Rs=NotHing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="edit.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#5578b8" leftmargin="0" topmargin="100">
<form name="form1" method="post" action="">
  <table width="500" border="1" align="center" cellpadding="8" cellspacing="0" bordercolor="#f1f5fe">
    <tr bgcolor="#cfdded"> 
      <td height="40" colspan="2" class="txt"> <div align="center"> 修改分类</div></td>
    </tr>
    <tr bgcolor="#f0f5f9"> 
      <td width="22%" class="txt"> <div align="center">分类名称:</div></td>
      <td width="78%"> <div align="left"> 
          <input name="classname" type="text" id="clssname13" value="<%=ClassShow(1,0)%>" size="35">
          <input name="act" type="hidden" id="act" value="Update">
          <input name="id" type="hidden" id="id" value="<%=ClassShow(0,0)%>">
        </div></td>
    </tr>
    <tr bgcolor="#f0f5f9">
      <td class="txt">&nbsp;</td>
      <td><input name="DEF" type="checkbox" id="DEF" value="TRUE" <%IF ClassShow(2,0)=True Then%>checked<%End IF%>>
        此分类日志在首页上显示？</td>
    </tr>
    <tr bgcolor="#e3ecf5"> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit" value="修改">
        </div></td>
    </tr>
  </table>
</form>
<br>
<div align="center"><%set adminobj=nothing:set cblogobj=nothing%></div>
</body>
</html>
