<!--#include file="ljconn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<html><head><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="img/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
	font-size: 12px;
	font-weight: bold;
}
.style2 {font-size: 12px}
.style3 {font-size: 12}
-->
</style>
</head>
<body>
                              <table class="tableBorder" width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
							  <tr>
							  <td colspan="5" align="center" background="img/admin_bg_1.gif"><span class="style1"><font color="#ffffff">综合大类管理</font></span></td>
							  </tr>
                                <tr bgcolor="#E8F1FF"> 
                                  <td width="40%" align="center"><span class="style2">综合大类名称</span></td>
                                  <td width="30%" align="center"><span class="style2">分类排序</span></td>
                                  <td width="30%" align="center"><span class="style2">确定操作</span></td>
                                </tr>
          <%set rs=server.CreateObject("adodb.recordset")
		  rs.Open "select * from shop_anclass order by anclassidorder ",conn,1,1
		  dim paixu
		  if rs.EOF and rs.BOF then
		  response.Write "<div align=center><font color=red><span class='style2'>还没有分类</span></font></center>"
		  paixu=0
		  else
		  do while not rs.EOF
		  %>
                                <form name="form1" method="post" action="saveanclass.asp?action=edit&id=<%=rs("anclassid")%>">
                                  <tr bgcolor="#E8F1FF" align="center"> 
                                    <td><input name="anclass" type="text" id="anclass" value="<%=trim(rs("anclass"))%>" size="30">
                                    </td>
                                    <td><input name="anclassidorder" type="text" id="anclassidorder" value="<%=rs("anclassidorder")%>" size="4" onKeyUp="this.value=this.value.replace(/\D/g,'')" onpaste = "return false">
                                    <td><span class="style3">
                                    <input type="submit" name="Submit" value="修 改">
                                    &nbsp;
									  <span style="display:">
									  <a href="saveanclass.asp?id=<%=rs("anclassid")%>&action=del" onClick="return confirm('您确定要删除该分类吗？同时删除产品中此类的产品!')"><font color=red>删除</font></a></span>
                                    </span></td>
                                  </tr>
                                </form>
						<%rs.MoveNext
								loop
								paixu=rs.RecordCount
								end if%>
</table>
                              <br>
<table class="tableBorder" width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" background="img/admin_bg_1.gif"><span class="style2"><b><font color="#ffffff">添加综合大类</font></b></span></td>
</tr>
<tr bgcolor="#E8F1FF" align="center"> 
<td width="40%" align="center"><span class="style2"> 综合大类名称</span></td>
<td width="30%" align="center"><span class="style2"> 分类排序</span></td>
<td width="30%" align="center"><span class="style2"> 确定操作</span></td>
</tr>
<form name="form1" method="post" action="saveanclass.asp?action=add">
<tr bgcolor="#E8F1FF" align="center"> 
<td>
<input name="anclass2" type="text" id="anclass2" size="30">
</td>
<td>
<input name="anclassidorder2" type="text" id="anclassidorder2" value="<%=paixu+1%>" size="4" onKeyUp="this.value=this.value.replace(/\D/g,'')" onpaste = "return false">
</td>
<td>
<input name="Submit3" type="submit" value="添 加">

</td>
</tr>
</form>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
