开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
managessort.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：6k
源码类别：

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

开发平台：

DOS

managessort.asp：源码内容
  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
  9. cls = Instr(session("flag"), "xiaoleifig")
  10. if cls <= 0 then
  11. %>
  12. <script language="javascript">
  13. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  14.   location.href="login.asp";
  15. else
  16.   location.href="index.asp";
  17. </script>
  18. <%
  19. end if
  20. end if
  21. end if
  22. %>
  23. <%dim anclassid,anclass,paixu
  24. anclass=request.QueryString("nclass")
  25. anclassid=request.QueryString("id")
  26. %>
  27. <html>
  28. <head>
  29. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  30. <link href="../images/css.css" rel="stylesheet" type="text/css">
  31. </head>
  32. <body>
  34. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  35. <tr> 
  36.     <td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">请选择小类进行管理--&gt;</font><font color="#ffffff"> 
  37.       <select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
  38.         <option >选择商品分类</option>
  39.         <%set rs=server.createobject("adodb.recordset")
  40. rs.Open "select * from bsort order by anclassidorder",conn,1,1
  41. do while not rs.eof %>
  42.         <option value="managessort.asp?id=<%=rs("anclassid")%>&anclass=<%=rs("anclass")%>" <%if rs("anclassid")=cint(request.QueryString("id")) then %>selected<%end if%>><%=trim(rs("anclass"))%></option>
  43.         <%rs.movenext
  44. loop
  45. rs.close
  46. set rs=nothing
  47. %>
  48.       </select>
  49.       <%if request.QueryString("id")<>"" then
  50.         response.Write "当前查讯："&request.QueryString("anclass")
  51.         end if%>
  52.       <br>
  53.       </font></b></td>
  54. </tr>
  55. <tr> 
  57. <td width="70%" > 
  58. <table width="90%" align="center" border="0" cellpadding="1" cellspacing="2">
  59.         <tr> 
  60.           <td width="15%" align="center">分类名称</td>
  61.           <td width="21%" align="center">关键词(Keywords)</td>
  62.           <td width="28%" align="center">描述(Description)</td>
  63.           <td width="14%" align="center">分类排序</td>
  64.           <td width="22%" align="center">确定操作</td>
  65.         </tr>
  66.         <%
  67.         if anclassid="" then
  68.         response.Write "<div align=center><font color=red>请选择左测的分类</font></div>"
  69.         else
  70.         set rs=server.CreateObject("adodb.recordset")
  71.         rs.Open "select * FROM ssort where anclassid="&anclassid&" order by nclassidorder",conn,1,1
  72.          if rs.EOF and rs.BOF then
  73.   response.Write "<div align=center><font color=red>还没有分类</font></center>"
  74.   paixu=0
  75.   else
  76.          do while not rs.EOF
  77.          %>
  78.         <form name="form1" method="post" action="savessort.asp?action=edit&id=<%=rs("nclassid")%>&anclass=<%=request.QueryString("anclass")%>">
  79.           <tr> 
  80.             <td align="center"> <input name="nclass" type="text" id="nclass" size="16" value="<%=trim(rs("nclass"))%>"> 
  81.               <input name="anclassid" type="hidden" value="<%=request.QueryString("id")%>" id="Hidden1"> 
  82.             </td>
  83.             <td align="center"><textarea name="key" id="key"><%=trim(rs("key"))%></textarea></td>
  84.             <td align="center"><textarea name="des" id="textarea4"><%=trim(rs("des"))%></textarea></td>
  85.             <td align="center"> <input name="nclassidorder" type="text" id="nclassidorder" size="4" value="<%=int(rs("nclassidorder"))%>"> 
  86.             </td>
  87.             <td align="center"> <input type="submit" name="Submit" value="修 改"> 
  88.               &nbsp; <a href="savessort.asp?id=<%=int(rs("nclassid"))%>&action=del&anclassid=<%=request.QueryString("id")%>&anclass=<%=request.QueryString("anclass")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color=red>删除</font></a> 
  89.             </td>
  90.           </tr>
  91.         </form>
  92.         <%rs.movenext
  93.         loop
  94.         paixu=rs.RecordCount
  95.         rs.close
  96.         set rs=nothing
  97.         end if
  98.         end if
  99. %>
  100.       </table>
  101. </td>
  102. </tr>
  103. </table><br>
  104. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  105. <tr> 
  106.     <td colspan="4" align="center" background="../images/admin_bg_1.gif"><b>当前分类：<%=request.QueryString("anclass")%> 
  107.       </b></td>
  108. </tr>
  109. <tr> 
  111. <td width="70%" > 
  112. <table width="90%" align="center" border="0" cellpadding="1" cellspacing="2">
  113.         <tr> 
  114.           <td width="25%" align="center">分类名称</div></td>
  115.           <td width="25%" align="center">关键词(Keywords)</td>
  116.           <td width="50%" align="center">描述(Description)</td>
  117.           <td width="20%" align="center">分类排序</div></td>
  118.           <td width="30%" align="center">确定操作</div></td>
  119.         </tr>
  120.         <form name="form2" method="post" action="savessort.asp?action=add&anclass=<%=request.QueryString("anclass")%>">
  121.           <tr> 
  122.             <td align="center"> <input name="nclass2" type="text" id="nclass22" size="16"> 
  123.               <input name="anclassid" type="hidden" value="<%=request.QueryString("id")%>"> 
  124.             </td>
  125.             <td align="center"><textarea name="key" id="textarea2"></textarea></td>
  126.             <td align="center"><textarea name="des" id="textarea3"></textarea></td>
  127.             <td align="center"> <input name="nclassidorder2" type="text" id="nclassidorder22" size="4" value="<%=paixu+1%>"> 
  128.             </td>
  129.             <td align="center"> <input type="submit" name="Submit2" value="添加分类"> 
  130.             </td>
  131.           </tr>
  132.         </form>
  133.       </table>
  134. </td>
  135. </tr>
  136. </table>
  137. <!--#include file="foot.asp"-->
  138. </body>
  139. </html>