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

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

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

开发平台：

DOS

xclass.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="../md5.asp"-->
  3. <%
  4. dim cls
  5. if session("admin")="" then
  6. Response.Redirect("admin.asp")
  7. else
  8. if session("flag")<>"0" then
  10. cls = Instr(session("flag"), "zilei")
  11. if cls <= 0 then
  12. %>
  13. <script language="javascript">
  14. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  15.   location.href="login.asp";
  16. else
  17.   location.href="index.asp";
  18. </script>
  19. <%
  20. end if
  21. end if
  22. end if
  23. %>
  24. <%
  25. dim nclassid,nclass,paixu,aid,anclass
  26. nclass=request.QueryString("nclass")
  27. nclassid=request.QueryString("id")
  28. anclass=request.QueryString("anclass")
  29. aid=request.QueryString("aid")
  30. %>
  31. <html>
  32. <head>
  33. <title></title>
  34. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  35. <link href="Images/style.css" rel="stylesheet" type="text/css">
  37. </head>
  38. <body>
  39. <br>
  40. <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  41.   <tr>
  42.     <td height="30"><form name="myform" method="post" action="" onSubmit="return checkkk()" >
  43. <%set rs=server.createobject("adodb.recordset")
  44.         rs.open "select * from bsort order by anclassidorder",conn,1,1
  45. if rs.eof and rs.bof then
  46. response.write "请先添加栏目。"
  47. response.end
  48. else
  49. %>
  50. <select name="anclassid" size="1" id="anclassid" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}">
  51.           <option >选择商品分类</option>
  52.   <option value="xclass.asp?aid=<%=rs("anclassid")%>&anclass=<%=rs("anclass")%>" <%if rs("anclassid")=cint(request.QueryString("aid")) then %>selected<%end if%>><%=trim(rs("anclass"))%></option>
  53.      <%          rs.movenext
  54.         do while not rs.eof
  55. %>
  56.           <option value="xclass.asp?aid=<%=rs("anclassid")%>&anclass=<%=rs("anclass")%>" <%if rs("anclassid")=cint(request.QueryString("aid")) then %>selected<%end if%>><%=trim(rs("anclass"))%></option>
  57.     <%
  58.         rs.movenext
  59.         loop
  60. end if
  61.         rs.close
  62. %>
  63.   </select>
  64.   <font color="#FF0000">
  65.   <select name="Nclassid" id="Nclassid" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
  66.           <option >选择商品分类</option>
  67.           <%set rs=server.createobject("adodb.recordset")
  68.   if aid="" then
  69.   aid=0
  70.   end if
  71. rs.Open "select * from ssort where anclassid="&aid&" order by nclassidorder",conn,1,1
  72. do while not rs.eof %>
  73.           <option value="xclass.asp?id=<%=rs("nclassid")%>&nclass=<%=rs("nclass")%>&aid=<%=aid%>&anclass="<%=anclass%>"" <%if rs("nclassid")=cint(request.QueryString("id")) then %>selected<%end if%>><%=trim(rs("nclass"))%></option>
  74.           <%rs.movenext
  75. loop
  76. rs.close
  77. set rs=nothing
  78. %>
  79.       </select>
  80.         <%if request.QueryString("id")<>"" then
  81.         response.Write "当前查讯："&request.QueryString("nclass")
  82.         end if%>
  83.         </form>
  84.     </td>
  85.   </tr>
  86. </table>
  87. <table width="95%" border="0" cellpadding="3" cellspacing="1" align="center" bgcolor="#6396D6">
  88.   <tr bgcolor="#C7D3E6"> 
  89.     <td width="23%" bgcolor="#7B9AE7"> <div align="center"><font color="#FFFFFF">分类名称</font></div></td>
  90.     <td width="15%" bgcolor="#7B9AE7"><div align="center">关键词(Keywords)</div></td>
  91.     <td width="15%" bgcolor="#7B9AE7"><div align="center">描述(Description)</div></td>
  92.     <td width="13%" bgcolor="#7B9AE7"> <div align="center"><font color="#FFFFFF">排序</font></div></td>
  93.     <td width="34%" bgcolor="#7B9AE7"> <div align="center"><font color="#FFFFFF">确定操作</font></div></td>
  94.   </tr>
  95.   <%
  96.         if nclassid="" then
  97.         response.Write "<div align=center><font color=red>请选择左测的分类</font></div>"
  98.         else
  99.         set rs=server.CreateObject("adodb.recordset")
  100.         rs.Open "select * from xsort where nclassid="&nclassid&" order by xpx",conn,1,1
  101.          if rs.EOF and rs.BOF then
  102.   response.Write "<div align=center><font color=red>还没有分类</font></center>"
  103.   paixu=0
  104.   else
  105.          do while not rs.EOF
  106.          %>
  107.   <form name="form1" method="post" action="savexclass.asp?action=edit&id=<%=rs("id")%>&nclass=<%=request.QueryString("nclass")%>">
  108.     <tr bgcolor="#F0F3F8"> 
  109.       <td bgcolor="#DEE7FF"> <div align="center"> 
  110.           <input name="xclass" type="text" id="xclass" size="12" value="<%=trim(rs("xclass"))%>">
  111.           <input name="nclassid" type="hidden" value="<%=request.QueryString("id")%>" id="Hidden1">
  112.           <input name="anclassid" type="hidden" value="<%=request.QueryString("aid")%>" id="anclassid">
  113.         </div></td>
  114.       <td bgcolor="#DEE7FF"><textarea name="key" id="key"><%=trim(rs("key"))%></textarea></td>
  115.       <td bgcolor="#DEE7FF"><textarea name="des" id="des"><%=trim(rs("des"))%></textarea></td>
  116.       <td bgcolor="#DEE7FF"> <div align="center"> 
  117.           <input name="xpx" type="text" id="xpx" size="4" value="<%=int(rs("xpx"))%>">
  118.         </div></td>
  119.       <td bgcolor="#DEE7FF" > <div align="center"> 
  120.           <input type="submit" name="Submit" value="修改">
  121.           &nbsp;<a href="savexclass.asp?id=<%=int(rs("id"))%>&action=del&nclassid=<%=request.QueryString("id")%>&nclass=<%=request.QueryString("nclass")%>&anclassid=<%=request.QueryString("aid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color=red>删除</font></a></div></td>
  122.     </tr>
  123.   </form>
  124.   <%rs.movenext
  125.         loop
  126.         paixu=rs.RecordCount
  127.         rs.close
  128.         set rs=nothing
  129.         end if
  130.         end if
  131. %>
  132. </table>
  133. <br>
  134. <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  135.   <tr>
  136.     <td height="30"><IMG height=5 src="images/block.gif" width=1><font color="#000000">添加商品分类</font> 当前分类 <%=request.QueryString("nclass")%></td>
  137.   </tr>
  138. </table>
  139. <table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6396D6" align="center">
  140.   <tr bgcolor="#C7D3E6"> 
  141.     <td width="22%" bgcolor="#7B9AE7"> <div align="center"><font color="#FFFFFF">分类名称</font></div></td>
  142.     <td width="17%" bgcolor="#7B9AE7"><div align="center">关键词(Keywords)</div></td>
  143.     <td width="21%" bgcolor="#7B9AE7"><div align="center">描述(Description)</div></td>
  144.     <td width="14%" bgcolor="#7B9AE7"> <div align="center"><font color="#FFFFFF">排序</font></div></td>
  145.     <td width="26%" bgcolor="#7B9AE7"> <div align="center"><font color="#FFFFFF">确定操作</font></div></td>
  146.   </tr>
  147.   <form name="form2" method="post" action="savexclass.asp?action=add&nclass=<%=request.QueryString("nclass")%>" onSubmit="return myshop()">
  148.     <script language="javascript">
  149. function myshop()
  150. {
  151. if(myform.anclassid.selectedIndex==0)
  152. {
  153. alert("请选择大类！")
  154. return false
  155. }
  156. if(myform.Nclassid.selectedIndex==0)
  157. {
  158. alert("请选择小类！")
  159. return false
  160. }
  161. }
  162. </script>
  163.     <tr bgcolor="#F0F3F8"> 
  164.       <td bgcolor="#DEE7FF"> <div align="center"> 
  165.           <input name="xclass" type="text" id="xclass" size="12">
  166.           <input name="nclassid" type="hidden" value="<%=request.QueryString("id")%>">
  167.           <input name="anclassid" type="hidden" value="<%=request.QueryString("aid")%>" id="anclassid">
  168.         </div></td>
  169.       <td bgcolor="#DEE7FF"><textarea name="key" id="textarea2"></textarea></td>
  170.       <td bgcolor="#DEE7FF"><textarea name="des" id="textarea3"></textarea></td>
  171.       <td bgcolor="#DEE7FF"> <div align="center"> 
  172.           <input name="xpx" type="text" id="xpx" size="4" value="<%=paixu+1%>">
  173.         </div></td>
  174.       <td bgcolor="#DEE7FF"> <div align="center"> 
  175.           <input type="submit" name="Submit2" value="添加">
  176.         </div></td>
  177.     </tr>
  178.   </form>
  179. </table>
  180. <br>
  181. </body>
  182. </html>