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

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

Jsp/Servlet

开发平台：

Java

sub.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="inc/config.asp"-->
  3. <!--#include file="inc/conn.asp"--> 
  4. <!--#include file="inc/chk.asp"--> 
  5. <%
  6. if session("rank")>1 then
  7. call Msgbox("对不起，您的权限不够！","Back","None")
  8. response.End
  9. end if
  10. %>
  12. <%
  13. dim categoryid,category,follows
  15. dim action
  16. if NOT isempty("action") then
  17. dim url,i,abc
  18. categoryid=request("categoryid")
  19. category=request.QueryString("category")
  20. action=request.QueryString("action")
  22. select case action
  23. case "add"
  24. set rs=server.CreateObject("adodb.recordset")
  25. rs.open "select * from sorts",conn,1,3
  26. rs.AddNew
  27. rs("sorts")=trim(request("sorts2"))
  28. rs("sortsorder")=int(request("sortsorder2"))
  29. rs("categoryid")=int(request("categoryid"))
  30. rs("first")=int(request("first2"))
  31. rs.Update
  32. rs.Close
  33. set rs=nothing
  34. response.redirect "sub.asp?id="&categoryid&"&category="&category
  37. case "edit"
  38. set rs=server.CreateObject("adodb.recordset")
  39. rs.open "select * from sorts where sortsid="&request.QueryString("id"),conn,1,3
  40. rs("sorts")=trim(request("sorts"))
  41. rs("sortsorder")=int(request("sortsorder"))
  42. rs("first")=int(request("first"))
  43. rs.update
  44. rs.close
  45. set rs=nothing
  46. response.redirect "sub.asp?id="&categoryid&"&category="&category
  48. case "del"
  49. categoryid=request.QueryString("categoryid")
  50. conn.execute ("delete from sorts where sortsid="&request.QueryString("id"))
  51. conn.execute ("delete from product where sortsid="&request.QueryString("id"))
  52. response.redirect "sub.asp?id="&categoryid&"&category="&category
  54. end select
  57. end if
  59. category=request.QueryString("sorts")
  60. categoryid=request.QueryString("id")
  62. %>
  64. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  65. <html>
  66. <head>
  67. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  68. <title>406网络书店</title>
  69. <link href="../style.css" rel="stylesheet" type="text/css">
  72. </head>
  74. <body>
  75. <!--#include file="head.htm"-->
  77. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  78.   <tr>
  79.     <td width="219" align="left" valign="top"><br>
  80.       <!--#include file="menu.htm"-->
  82.         <br></td><td width="561" align="left" valign="top">
  83.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  84.         <tr>
  85.           <td><img src="../images/w.gif" width="18" height="18"></td>
  86.           <td style="color:#415373">商品小类管理</td>
  87.         </tr>
  88.       </table>      <br>      <select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
  89.         <base target=Right>
  90.         <option selected>选择商品分类</option>
  91.         <%set rs=server.createobject("adodb.recordset")
  92. rs.Open "select * from category order by categoryorder",conn,1,1
  93. do while not rs.eof %>
  94.         <option value="sub.asp?id=<%=rs("categoryid")%>&category=<%=rs("category")%>" ><%=trim(rs("category"))%></option>
  95.         <%rs.movenext
  96. loop
  97. rs.close
  98. set rs=nothing
  99. %>
  100.       </select>      <%if request.QueryString("id")<>"" then
  101.         response.Write "当前查询："&request.QueryString("category")
  102.         end if%>      <br>      <table width="100%" align="center" border="0" cellpadding="2" cellspacing="1">
  103.         <tr align="center" height="20">
  104.           <td width="40%">分类名称</td>
  105.           <td width="20%">分类排序</td>
  106.           <td width="20%">一级分类</td>
  107.           <td width="20%">确定操作</td>
  108.         </tr>
  109.         <%
  110.         if categoryid="" then
  111.         response.Write "<div align=center><font color=red>请选择左测的分类</font></div>"
  112.         else
  113.         set rs=server.CreateObject("adodb.recordset")
  114.         rs.Open "select * from sorts where categoryid="&categoryid&" order by sortsorder",conn,1,1
  115.          if rs.EOF and rs.BOF then
  116.   response.Write "<div align=center><font color=red>还没有分类</font></center>"
  117.   follows=0
  118.   else
  119.          do while not rs.EOF
  120.          %>
  121.         <form name="form1" method="post" action="sub.asp?action=edit&id=<%=rs("sortsid")%>&category=<%=request.QueryString("category")%>">
  122.           <tr align="center">
  123.             <td><input name="sorts" type="text" id="sorts3" size="16" value="<%=trim(rs("sorts"))%>">
  124.                 <input name="categoryid" type="hidden" value="<%=request.QueryString("id")%>" id="categoryid"></td>
  125.             <td><input name="sortsorder" type="text" id="sortsorder3" size="4" value="<%=int(rs("sortsorder"))%>"></td>
  126.             <td><input name="first" type="checkbox" id="first22" value="1">
  127.                 <%if rs("first")=1 then
  128.                 response.Write "<font color=red>一级</font>"
  129.                 else
  130.                 response.Write "二级"
  131.                 end if%>
  132.             </td>
  133.             <td><input type="submit" name="Submit" value="修改">
  134. &nbsp;<a href="sub.asp?id=<%=int(rs("sortsid"))%>&action=del&categoryid=<%=request.QueryString("id")%>&category=<%=request.QueryString("category")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color=red>删除</font></a> </td>
  135.           </tr>
  136.         </form>
  137.         <%rs.movenext
  138.         loop
  139.         follows=rs.RecordCount
  140.         rs.close
  141.         set rs=nothing
  142.         end if
  143.         end if
  144. %>
  145.       </table>      <br>      <table border="0" cellpadding="0" cellspacing="0">
  146.         <tr>
  147.           <td><img src="../images/w.gif" width="18" height="18"></td>
  148.           <td style="color:#415373">添加商品分类</td>
  149.         </tr>
  150.       </table>
  151.       当前分类：<%=request.QueryString("category")%> <br>      <table width="100%" align="center"border="0" cellpadding="2" cellspacing="1">
  152.         <tr align="center" height="20">
  153.           <td width="40%">分类名称</td>
  154.           <td width="20%">分类排序</td>
  155.           <td width="20%">一级分类</td>
  156.           <td width="20%">确定操作</td>
  157.         </tr>
  158.         <form name="form2" method="post" action="sub.asp?action=add&category=<%=request.QueryString("category")%>">
  159.           <tr align="center">
  160.             <td><input name="sorts2" type="text" id="sorts22" size="16"></td>
  161.             <td><input name="sortsorder2" type="text" id="sortsorder22" size="4" value="<%=follows+1%>">
  162.                 <input name="categoryid" type="hidden" value="<%=request.QueryString("id")%>"></td>
  163.             <td><input name="first2" type="checkbox" id="first2" value="1">
  164.                 <font color="#FF0000">二级</font></td>
  165.             <td><input type="submit" name="Submit2" value="添加"></td>
  166.           </tr>
  167.         </form>
  168.       </table>      <br>      <table border="0" cellpadding="0" cellspacing="0">
  169.         <tr>
  170.           <td><img src="../images/w.gif" width="18" height="18"></td>
  171.           <td style="color:#415373">操作注意事项及说明</td>
  172.         </tr>
  173.       </table>      <table width="80%" border="0" align="center" cellpadding="5" cellspacing="0">
  174.         <tr>
  175.           <td height="16"><font color="#FF0000">·请注意分类名称不要含有非法字符。<br>
  176.       ·增加一级分类时，如果没有选择此小类所属大类为一级分类，则被列为&quot;其它&quot;分类。<br>
  177.       ·进行删除操作的同时，会删除此分类下的所有商品。</font></td>
  178.         </tr>
  179.       </table>      <br>      <br>      <br>
  180.       </td>
  181.   </tr>
  182. </table>
  183. <!--#include file="foot.htm"-->
  184. </body>
  185. </html>