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

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

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

开发平台：

DOS

moveclass.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%if session("admin")="" then
  3. response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
  4. response.End
  6. end if
  7. %>
  8. <html>
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  11. <link href="../images/css.css" rel="stylesheet" type="text/css">
  12. </head>
  13. <body>
  14. <br><br><br><br><br><br><br><br>
  15. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
  16.   <tr> 
  17. <th background="../images/admin_bg_1.gif" class="tableHeaderText">商品类别转移</th>
  18.  </tr>
  19.  <tr> 
  20. <td align="center" class="forumRowHighlight">转移小类的同时会转移小类下所有的商品；转移后需要修改小分类的排序。</td>
  21.  </tr>
  22.   <form name="form1" method="post" action="savemoveclass.asp">
  23.  <tr> 
  24.       <td align="center" class="forumRowHighlight">选择要转移的小类：
  25. <select name="nclassid" size="1" class="smallinput" >
  26.   <%set rs=server.CreateObject("adodb.recordset")
  27.    rs.Open "select nclassid,nclass from ssort  order by nclassid",conn,1,1
  28. if rs.EOF and rs.BOF then
  29. response.Write "<option value=0>还没有分类</option>"
  30. else
  31. do while not rs.EOF
  32. %>
  33.    <option value="<%=int(rs("nclassid"))%>"><%=trim(rs("nclass"))%></option>
  34.    <%rs.MoveNext
  35.     loop
  36. rs.Close
  37.  set rs=nothing
  38.  end if%>
  39.    </select>
  40.     </td>
  41.   </tr>
  42.   <tr> 
  43.       <td align="center" class="forumRowHighlight">请选择所属大类： 
  44.         <select name="anclassid" size="1" class="smallinput" >
  45.   <%set rs=server.CreateObject("adodb.recordset")
  46.         rs.Open "select anclassid,anclass from bsort order by anclassidorder",conn,1,1
  47.         if rs.eof and rs.bof then
  48.         response.Write "<option value=0>还没有分类</option>"
  49.         else
  50.        do while not rs.eof
  51.     %>
  52.   <option value="<%=int(rs("anclassid"))%>"><%=trim(rs("anclass"))%></option>
  53.   <%rs.movenext
  54.        loop
  55.        rs.close
  56.        set rs=nothing
  57.         end if%>
  58.   </select>
  59.   </td>
  60.  </tr>
  61.  <tr> 
  62.    <td height="30" colspan="2" class="forumRowHighlight"><div align="center"><input type="submit" name="Submit" value="确定转移"></div></td>
  63.   </tr>
  64.  </form>
  65. </table>
  66. </body>
  67. </html>