managebsort.asp
上传用户:btntkt
上传日期:2021-04-16
资源大小:5296k
文件大小:4k
源码类别:

WEB源码(ASP,PHP,...)

开发平台:

DOS

  1. <!--#include file="conn.asp"-->
  2. <%
  3. dim cls
  4. if session("admin")="" then
  5. Response.Redirect("admin.asp")
  6. else
  7. if session("flag")<>"0" then
  8. cls = Instr(session("flag"), "daleifig")
  9. if cls <= 0 then
  10. %>
  11. <script language="javascript">
  12. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  13.   location.href="login.asp";
  14. else
  15.   location.href="index.asp";
  16. </script>
  17. <%
  18. end if
  19. end if
  20. end if
  21. %>
  22. <html><head>
  23. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  24. <link href="../images/css.css" rel="stylesheet" type="text/css">
  25. </head>
  26. <body>
  27. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  28.   <tr> 
  29.     <td colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商品查看与修改</font></b></td>
  30.   </tr>
  31.   <tr > 
  32.     <td width="21%" align="center" bgcolor="fbc2c2">分类名称</td>
  33.     <td width="21%" align="center" bgcolor="fbc2c2">关键词(Keywords)</td>
  34.     <td width="29%" align="center" bgcolor="fbc2c2">描述(Description)</td>
  35.     <td width="11%" align="center" bgcolor="fbc2c2">分类排序</td>
  36.     <td width="18%" align="center" bgcolor="fbc2c2">确定操作</td>
  37.   </tr>
  38.   <%set rs=server.CreateObject("adodb.recordset")
  39.   rs.Open "select * FROM bsort order by anclassidorder ",conn,1,1
  40.   dim paixu
  41.   if rs.EOF and rs.BOF then
  42.   response.Write "<div align=center><font color=red>还没有分类</font></center>"
  43.   paixu=0
  44.   else
  45.   do while not rs.EOF
  46.   %>
  47.   <form name="form1" method="post" action="savebsort.asp?action=edit&id=<%=int(rs("anclassid"))%>">
  48.     <tr  align="center"> 
  49.       <td><input name="anclass" type="text" id="anclass" size="12" value="<%=trim(rs("anclass"))%>"> 
  50.       </td>
  51.       <td><textarea name="key" id="key"><%=trim(rs("key"))%></textarea></td>
  52.       <td><textarea name="des" id="des"><%=trim(rs("des"))%></textarea></td>
  53.       <td><input name="anclassidorder" type="text" id="anclassidorder" size="4" value="<%=int(rs("anclassidorder"))%>"> 
  54.       </td>
  55.       <td><input type="submit" name="Submit" value="修 改"> &nbsp; <a href="savebsort.asp?id=<%=int(rs("anclassid"))%>&action=del" onClick="return confirm('您确定要删除该分类吗?')"><font color=red>删除</font></a> 
  56.       </td>
  57.     </tr>
  58.   </form>
  59.   <%rs.MoveNext
  60. loop
  61. paixu=rs.RecordCount
  62. end if%>
  63. </table>
  64. <br>
  65. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  66.   <tr> 
  67.     <td colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">添加商品大类</font></b></td>
  68.   </tr>
  69.   <tr  align="center"> 
  70.     <td width="20%" align="center" bgcolor="fbc2c2"> 分类名称</td>
  71.     <td width="20%" align="center" bgcolor="fbc2c2">关键词(Keywords)</td>
  72.     <td width="40%" align="center" bgcolor="fbc2c2">描述(Description)</td>
  73.     <td width="20%" align="center" bgcolor="fbc2c2"> 分类排序</td>
  74.     <td align="center" bgcolor="fbc2c2"> 确定操作</td>
  75.   </tr>
  76.   <form name="form1" method="post" action="savebsort.asp?action=add">
  77.     <tr  align="center"> 
  78.       <td> <input name="anclass2" type="text" id="anclass2" size="12"></td>
  79.       <td><textarea name="key" id="key"></textarea></td>
  80.       <td><textarea name="des" id="des"></textarea></td>
  81.       <td> <input name="anclassidorder2" type="text" id="anclassidorder2" size="4" value="<%=paixu+1%>"></td>
  82.       <td> <input type="submit" name="Submit3" value="添 加"></td>
  83.     </tr>
  84.   </form>
  85. </table>
  86. <!--#include file="foot.asp"-->
  87. </body>
  88. </html>