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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
mclass.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：4k
源码类别：

Jsp/Servlet

开发平台：

Java

mclass.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  4. %><!--#include file="inc/config.asp"-->
  5. <!--#include file="inc/conn.asp"--> 
  6. <!--#include file="inc/chk.asp"--> 
  7. <%
  8. if session("rank")>1 then
  9. call Msgbox("对不起，您的权限不够！","Back","None")
  10. response.End
  11. end if
  12. %>
  14. <%
  15. if NOT isempty(request("MoveSubmit")) then
  16. dim sortsid,categoryid
  17. sortsid=int(request("sortsid"))
  18. categoryid=int(request("categoryid"))
  19. set rs=server.CreateObject("adodb.recordset")
  20. rs.open "select sortsid,categoryid from sorts where sortsid="&sortsid ,conn,1,3
  21. rs("categoryid")=categoryid
  22. rs.Update
  23. rs.Close
  24. set rs=nothing
  25. call MsgBox("转移成功！","None","None")
  26. end if
  27. %>
  28. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  29. <html>
  30. <head>
  31. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  32. <title>406网络书店</title>
  33. <link href="../style.css" rel="stylesheet" type="text/css">
  36. </head>
  38. <body>
  39. <!--#include file="head.htm"-->
  41. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  42.   <tr>
  43.     <td width="219" align="left" valign="top"><br>
  44.       <!--#include file="menu.htm"-->
  46.         <br></td><td width="561" align="left" valign="top">
  47.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  48.         <tr>
  49.           <td><img src="../images/w.gif" width="18" height="18"></td>
  50.           <td style="color:#415373">商品类别转移</td>
  51.         </tr>
  52.       </table>      <br>      <br>      <form name="form1" method="post" action="">
  53.         <table width="56%" border="0" align="center" cellpadding="1" cellspacing="1">
  54.         
  55.           <tr>
  56.             <td width="56%" align="right">请选择您要转移的小类：</td>
  57.             <td width="44%">
  58.               <select name="sortsid" size="1" class="smallinput" >
  59.                 <%set rs=server.CreateObject("adodb.recordset")
  60.                 rs.Open "select sortsid,sorts from sorts order by sortsid",conn,1,1
  61.                 if rs.EOF and rs.BOF then
  62.                 response.Write "<option value=0>还没有分类</option>"
  63.                 else
  64.                 do while not rs.EOF
  65.                 %>
  66.                 <option value="<%=int(rs("sortsid"))%>"><%=trim(rs("sorts"))%></option>
  67.                 <%rs.MoveNext
  68.                 loop
  69.                 rs.Close
  70.                 set rs=nothing
  71.                 end if%>
  72.               </select>
  73.             </td>
  74.           </tr>
  75.           <tr>
  76.             <td align="right">请选择所属大类：</td>
  77.             <td>
  78.               <select name="categoryid" size="1" class="smallinput" >
  79.                 <%set rs=server.CreateObject("adodb.recordset")
  80.                 rs.Open "select categoryid,category from category order by categoryorder",conn,1,1
  81.                 if rs.eof and rs.bof then
  82.                 response.Write "<option value=0>还没有分类</option>"
  83.                 else
  84.                 do while not rs.eof
  85.                 %>
  86.                 <option value="<%=int(rs("categoryid"))%>"><%=trim(rs("category"))%></option>
  87.                 <%rs.movenext
  88.                 loop
  89.                 rs.close
  90.                 set rs=nothing
  91.                 end if%>
  92.               </select></td>
  93.           </tr>
  94.           <tr align="center">
  95.             <td height="30" colspan="2"><input name="MoveSubmit" type="submit" id="MoveSubmit" value="确定转移"></td>
  96.           </tr>
  97.         </table>
  98.       </form>      <br>      <table border="0" cellpadding="0" cellspacing="0">
  99.         <tr>
  100.           <td><img src="../images/w.gif" width="18" height="18"></td>
  101.           <td style="color:#415373">操作注意事项及说明</td>
  102.         </tr>
  103.       </table>      <table width="80%" border="0" align="center" cellpadding="5" cellspacing="0">
  104.         <tr>
  105.           <td height="16"><font color="#FF0000">·转移小类的同时也转移小类下所有的商品。<br>
  106.       ·转移后需要修改小分类的排序。</font></td>
  107.         </tr>
  108.       </table>      <br>
  109.       </td>
  110.   </tr>
  111. </table>
  112. <!--#include file="foot.htm"-->
  113. </body>
  114. </html>