managebsort.asp
资源名称:shop2.rar [点击查看]
上传用户:btntkt
上传日期:2021-04-16
资源大小:5296k
文件大小:4k
源码类别:
WEB源码(ASP,PHP,...)
开发平台:
DOS
- <!--#include file="conn.asp"-->
- <%
- dim cls
- if session("admin")="" then
- Response.Redirect("admin.asp")
- else
- if session("flag")<>"0" then
- cls = Instr(session("flag"), "daleifig")
- if cls <= 0 then
- %>
- <script language="javascript">
- if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
- location.href="login.asp";
- else
- location.href="index.asp";
- </script>
- <%
- end if
- end if
- end if
- %>
- <html><head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <link href="../images/css.css" rel="stylesheet" type="text/css">
- </head>
- <body>
- <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
- <tr>
- <td colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商品查看与修改</font></b></td>
- </tr>
- <tr >
- <td width="21%" align="center" bgcolor="fbc2c2">分类名称</td>
- <td width="21%" align="center" bgcolor="fbc2c2">关键词(Keywords)</td>
- <td width="29%" align="center" bgcolor="fbc2c2">描述(Description)</td>
- <td width="11%" align="center" bgcolor="fbc2c2">分类排序</td>
- <td width="18%" align="center" bgcolor="fbc2c2">确定操作</td>
- </tr>
- <%set rs=server.CreateObject("adodb.recordset")
- rs.Open "select * FROM bsort order by anclassidorder ",conn,1,1
- dim paixu
- if rs.EOF and rs.BOF then
- response.Write "<div align=center><font color=red>还没有分类</font></center>"
- paixu=0
- else
- do while not rs.EOF
- %>
- <form name="form1" method="post" action="savebsort.asp?action=edit&id=<%=int(rs("anclassid"))%>">
- <tr align="center">
- <td><input name="anclass" type="text" id="anclass" size="12" value="<%=trim(rs("anclass"))%>">
- </td>
- <td><textarea name="key" id="key"><%=trim(rs("key"))%></textarea></td>
- <td><textarea name="des" id="des"><%=trim(rs("des"))%></textarea></td>
- <td><input name="anclassidorder" type="text" id="anclassidorder" size="4" value="<%=int(rs("anclassidorder"))%>">
- </td>
- <td><input type="submit" name="Submit" value="修 改"> <a href="savebsort.asp?id=<%=int(rs("anclassid"))%>&action=del" onClick="return confirm('您确定要删除该分类吗?')"><font color=red>删除</font></a>
- </td>
- </tr>
- </form>
- <%rs.MoveNext
- loop
- paixu=rs.RecordCount
- end if%>
- </table>
- <br>
- <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
- <tr>
- <td colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">添加商品大类</font></b></td>
- </tr>
- <tr align="center">
- <td width="20%" align="center" bgcolor="fbc2c2"> 分类名称</td>
- <td width="20%" align="center" bgcolor="fbc2c2">关键词(Keywords)</td>
- <td width="40%" align="center" bgcolor="fbc2c2">描述(Description)</td>
- <td width="20%" align="center" bgcolor="fbc2c2"> 分类排序</td>
- <td align="center" bgcolor="fbc2c2"> 确定操作</td>
- </tr>
- <form name="form1" method="post" action="savebsort.asp?action=add">
- <tr align="center">
- <td> <input name="anclass2" type="text" id="anclass2" size="12"></td>
- <td><textarea name="key" id="key"></textarea></td>
- <td><textarea name="des" id="des"></textarea></td>
- <td> <input name="anclassidorder2" type="text" id="anclassidorder2" size="4" value="<%=paixu+1%>"></td>
- <td> <input type="submit" name="Submit3" value="添 加"></td>
- </tr>
- </form>
- </table>
- <!--#include file="foot.asp"-->
- </body>
- </html>
English
