⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_wztype.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/MyFunction.Asp"-->
<% call master %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分类</title>
<link href="../css/admincss.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="80%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#0099CC">
  <tr bgcolor="#FFFFFF">
    <td colspan="3" align="center" height="25">分类管理</td>
  </tr><form name="form1" method="post" action="admin_do.asp?act=muneadd">
  <tr bgcolor="#FFFFFF">
    <td width="16%">添加一级分类:</td>
    <td colspan="2">
          <input name="m_name" type="text" id="m_name">
&nbsp;&nbsp;
  <input type="submit" name="Submit" value="添加">
      </td>
  </tr></form>
  <% set rr=server.CreateObject("adodb.recordset")
   	 rr.open"select * from munexx where m_type=1",conn,1,1
	 if not rr.eof then %>
  <form name="form2" method="post" action="admin_do.asp?act=muneadd">
  <tr bgcolor="#FFFFFF">
    <td>添加二级分类:</td>
    <td colspan="2">
          <select name="m_from" id="m_from">
            <%  while not rr.eof %>
            <option value="<%=rr(0)%>"><%=rr(1)%></option>
            <% rr.movenext
	  			wend %>
        </select>
          <input name="m_name" type="text" id="m_name">
          <input name="m_type" type="hidden" id="m_type" value="2">
        &nbsp;&nbsp; 
<input type="submit" name="Submit" value="添加" onClick="return cks();">      </td>
  </tr></form>
  <% end if
  	 rr.close
	 set rr=nothing %>
  <tr bgcolor="#F3F3F3">
    <td align="center">类别属性</td>
    <td width="53%" align="center">类别名称</td>
    <td width="31%" align="center">操作</td>
  </tr>
  <% set t1=conn.execute("select * from munexx where m_type=1 order by m_order asc")
  	 if not t1.eof then
	 do until t1.eof %>
  <tr bgcolor="#FFFFFF">
    <td>&nbsp;<b>一级类别</b></td>
    <td align="center"><b><%= t1(1) %></b></td>
    <td align="center"><a href="admin_do.asp?act=muneup&id=<%= t1(0) %>">向上</a>&nbsp;<a href="admin_do.asp?act=munedown&id=<%= t1(0) %>">向下</a>&nbsp;<a href="admin_do.asp?act=munedel&id=<%= t1(0) %>" onClick="{if(confirm('确定要删除吗?')){return ture;}return false;}">删除</a></td>
  </tr>
  <% set t2=conn.execute("select * from munexx where m_type=2 and m_from=" & t1(0) & " order by m_order asc")
  	 if not t2.eof then
	 do until t2.eof %>
  <tr bgcolor="#FFFFFF">
    <td align="right">二级类别&nbsp;</td>
    <td align="center"><%= t2(1) %></td>
    <td align="center"><a href="admin_do.asp?act=muneup&id=<%= t2(0) %>">向上</a>&nbsp;<a href="admin_do.asp?act=munedown&id=<%= t2(0) %>">向下</a>&nbsp;<a href="admin_do.asp?act=munedel&id=<%= t2(0) %>" onClick="{if(confirm('确定要删除吗?')){return ture;}return false;}">删除</a></td>
  </tr>
  <% t2.movenext
  	 loop
	 end if
	 t2.close
	 set t2=nothing %>
  <% t1.movenext
  	 loop
	 end if
	 t1.close
	 set t1=nothing %>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -