bclass.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("rank")>1 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
end if
%>
<title>商品大类管理</title>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6699cc">
  <tr> 
    <td height="20" bgcolor="#6699cc" align="center"><font color="#FFFFFF">商品大类管理</font></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
	<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
        <tr align="center" bgcolor="#FFFFFF" height="20"> 
          <td width="30%">分类名称</td>
          <td width="20%"> 分类排序</td>
          <td width="20%">一级分类</td>
          <td width="30%">确定操作</td>
        </tr>
        <%set rs=server.CreateObject("adodb.recordset")
		  rs.Open "select * from category order by categoryorder",conn,1,1
		  dim follows
		  if rs.EOF and rs.BOF then
		  response.Write "<div align=center><font color=red>还没有分类</font></center>"
		  follows=0
		  else
		  do while not rs.EOF
		  %>
        <form name="form1" method="post" action="savebclass.asp?action=edit&id=<%=int(rs("categoryid"))%>">
          <tr bgcolor="#FFFFFF" align="center">
		  <td><input name="category" type="text" id="category" size="12" value="<%=trim(rs("category"))%>"></td>
            <td><input name="categoryorder" type="text" id="categoryorder" size="4" value="<%=int(rs("categoryorder"))%>"></td>
            <td><input name=first type=checkbox value=1>
                <%if rs("first")=1 then
                response.Write "<font color=red>一级</font>"
                else
                response.Write "二级"
                end if%>
              </td>
            <td><input type="submit" name="Submit" value="修 改">
                &nbsp; <a href="savebclass.asp?id=<%=int(rs("categoryid"))%>&action=del" onClick="return confirm('您确定进行删除操作吗？')"><font color=red>删除</font></a> 
              </td>
          </tr>
        </form>
        <%rs.MoveNext
          loop
          follows=rs.RecordCount
          end if%>
      </table><br></td>
  </tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6699cc">
  <tr> 
    <td height="20" bgcolor="#6699cc" align="center"><font color="#FFFFFF">添加商品大类</font></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
	<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
        <tr align="center" bgcolor="#FFFFFF" height="20"> 
          <td width="30%"> 分类名称</td>
          <td width="20%">分类排序</td>
          <td width="20%">一级分类</td>
          <td width="30%">确定操作</td>
        </tr>
        <form name="form1" method="post" action="savebclass.asp?action=add">
          <tr align="center" bgcolor="#FFFFFF"> 
            <td><input name="category2" type="text" id="category2" size="12"></td>
            <td><input name="categoryorder2" type="text" id="categoryorder2" size="4" value="<%=follows+1%>"></td>
            <td><input name="first2" type="checkbox" id="first2" value="1"></td>
            <td><input type="submit" name="Submit3" value="添 加"></td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6699cc">
  <tr> 
    <td bgcolor="#6699cc" height="20" align="center"><font color="#FFFFFF">操作注意事项及说明</font></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"> 
	<table width="80%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr> 
          <td height="20"><font color="#FF0000">·请注意分类名称不要含有非法字符。<br>
            ·增加一级分类后，些分类将会被列出前台一级分类中。<br>
            ·进行删除操作的同时，会删除此大类下包含的所有小分类和商品。</font></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="footer.asp"-->