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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
ProductSort.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：17k
源码类别：

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

开发平台：

HTML/CSS

ProductSort.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  3. <% Option Explicit %>
  4. <HTML xmlns="http://www.w3.org/1999/xhtml">
  5. <HEAD>
  6. <TITLE>产品分类</TITLE>
  7. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  8. <META NAME="copyright" CONTENT="Copyright 2006-2008 - Hokilly.com-STUDIO" />
  9. <META NAME="Author" CONTENT="红金羚软件,www.hokilly.com" />
  10. <META NAME="Keywords" CONTENT="" />
  11. <META NAME="Description" CONTENT="" />
  12. <link rel="stylesheet" href="Images/CssAdmin.css">
  13. <script language="javascript" src="../Script/Admin.js"></script>
  14. </HEAD>
  15. <!--#include file="../Include/Const.asp" -->
  16. <!--#include file="../Include/ConnSiteData.asp" -->
  17. <!--#include file="CheckAdmin.asp"-->
  18. <%
  19. Dim SERVER_NAME
  20. SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
  21. if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
  22. if Instr(session("AdminPurview"),"|31,")=0 then 
  23.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  24.   response.end
  25. end if
  26. '========判断是否具有管理权限
  27. %>
  28. <BODY>
  29. <%
  30. Dim Action
  31. Action=request.QueryString("Action")
  32. Select Case Action
  33.   Case "Add"
  34. addFolder
  35.    CallFolderView()
  36.   Case "Del"
  37.     Dim rs,sql,SortPath
  38.     Set rs=server.CreateObject("adodb.recordset")
  39.     sql="Select * From CompanyCMS_ProductSort where ID="&request.QueryString("id")
  40.     rs.open sql,conn,1,1
  41. SortPath=rs("SortPath")
  42. conn.execute("delete from  CompanyCMS_ProductSort where Instr(SortPath,'"&SortPath&"')>0")
  43.     conn.execute("delete from  CompanyCMS_Products where Instr(SortPath,'"&SortPath&"')>0")
  44.     response.write ("<script language=javascript> alert('成功删除本类、子类及所有下属信息条目，点击确定查看类别树！');location.replace('ProductSort.asp');</script>")
  45.   Case "Save"
  46. saveFolder ()
  47.   Case "Edit"
  48. editFolder
  49.    CallFolderView()
  50.   Case "Move"
  51. moveFolderForm ()
  52.    CallFolderView()
  53.   Case "MoveSave"
  54. saveMoveFolder ()
  55.   Case Else
  56. CallFolderView()
  57. End Select
  58. %>
  59. </BODY>
  60. </HTML>
  61. <%
  62. '调用显示节点------------------------------
  63. Function CallFolderView()
  64. %>
  65. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  66.   <tr>
  67.     <td height="24" nowrap><font color="#FFFFFF"><strong>类别树查看管理：</strong></font></td>
  68.   </tr>
  69.   <tr>
  70.     <td height="24" align="center" nowrap  bgcolor="#eafefe"><a href="ProductSort.asp?Action=Add&ParentID=0">添加一级分类</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="ProductList.asp" onClick='changeAdminFlag("产品列表")'>查看所有产品</a></td>
  71.   </tr>
  72.   <tr>
  73.     <td height="24" nowrap  bgcolor="#eafefe"><% Folder(0) %></td>
  74.   </tr>
  75. </table>
  76. <%
  77. End Function
  78. '列出所有节点------------------------------
  79. Function Folder(id)
  80.   Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,ViewFlag
  81.   Set rs=server.CreateObject("adodb.recordset")
  82.   sql="Select * From CompanyCMS_ProductSort where ParentID="&id&" order by id"
  83.   rs.open sql,conn,1,1
  84.   if id=0 and rs.recordcount=0 then
  85.     response.write ("暂无分类!")
  86.     response.end
  87.   end if  
  88.   i=1
  89.   response.write("<table border='0' cellspacing='0' cellpadding='0'>")
  90.   while not rs.eof
  91.     ChildCount=conn.execute("select count(*) from CompanyCMS_ProductSort where ParentID="&rs("id"))(0)
  92.     if rs("ViewFlagCh") then
  93.       ViewFlag="<font color='green'>√</font>"
  94.     else
  95.       ViewFlag="<font color='red'>×</font>"
  96. end if
  97.     if ChildCount=0 then
  98.   if i=rs.recordcount then
  99.     FolderType="SortFileEnd"
  100.   else
  101.     FolderType="SortFile"
  102.   end if
  103.   FolderName=rs("SortNameCh")&"&nbsp;"&ViewFlag
  104.   onMouseUp=""
  105.     else
  106.   if i=rs.recordcount then
  107.   FolderType="SortEndFolderClose"
  108. ListType="SortEndListline"
  109. onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
  110.   else
  111. FolderType="SortFolderClose"
  112. ListType="SortListline"
  113. onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');"
  114.   end if
  115.   FolderName=rs("SortNameCh")&"&nbsp;"&ViewFlag
  116.     end if
  117.     response.write("<tr>")
  118.     response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap>"&FolderName&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  119.     response.write("<font color='#FF0000'>分类：</font><a href='ProductSort.asp?Action=Add&ParentID="&rs("id")&"'>添加</a>")
  120.     response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href='ProductSort.asp?Action=Edit&ID="&rs("id")&"'>修改</a>")
  121.     response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href='ProductSort.asp?Action=Move&ID="&rs("id")&"&ParentID="&rs("Parentid")&"&SortNameCh="&rs("SortNameCh")&"&SortPath="&rs("SortPath")&"'>移</a>")
  122.     response.write("→<a href='#' onclick='SortFromTo.rows[4].cells[0].innerHTML=""→&nbsp;"&rs("SortNameCh")&""";MoveForm.toID.value="&rs("ID")&";MoveForm.toParentID.value="&rs("ParentID")&";MoveForm.toSortPath.value="""&rs("SortPath")&""";'>至</a>")
  123. response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href=javascript:ConfirmDelSort('ProductSort',"&rs("id")&")>删除</a>")
  124.     response.write("&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>产品：</font><a href='ProductEdit.asp?Result=Add' onClick='changeAdminFlag(""添加产品"")'>添加</a>")
  125.     response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"' onClick='changeAdminFlag(""产品列表"")'>列表</a>")
  126.     response.write("</td></tr>")
  127.     if ChildCount>0 then
  128. %>
  129.       <tr id="a<%= rs("id")%>" style="display:yes"><td class="<%= ListType%>" nowrap></td><td ><% Folder(rs("id")) %></td></tr>
  130. <%
  131.     end if
  132.     rs.movenext
  133.     i=i+1
  134.   wend
  135.   response.write("</table>")
  136.   rs.close
  137.   set rs=nothing
  138. end function
  139. '添加节点---------------------------------
  140. Function addFolder()
  141.   Dim ParentID
  142.   ParentID=request.QueryString("ParentID")
  143.   addFolderForm ParentID
  144. end function
  145. '添加节点表单------------------------------
  146. Function addFolderForm(ParentID)
  147.   Dim ParentPath,SortTextPath,rs,sql
  148.   if ParentID=0 then
  149.     ParentPath="0,"
  150. SortTextPath=""
  151.   else 
  152.     Set rs=server.CreateObject("adodb.recordset")
  153.     sql="Select * From CompanyCMS_ProductSort where ID="&ParentID
  154.     rs.open sql,conn,1,1
  155. ParentPath=rs("SortPath")
  156.   end if
  157. %>
  158. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  159. <form name="FolderForm" method="post" action="ProductSort.asp?Action=Save&From=Add">
  160.   <tr>
  161.     <td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>添加类别：通过"显示"可控制每种分类是否在相应语言版网站里显示出来。</strong></font></td>
  162.   </tr>
  163.   <tr>
  164.     <td height="24" nowrap bgcolor="#eafefe">|&nbsp;根类&nbsp;→&nbsp;<% if ParentID<>0 then TextPath(ParentID)%></td>
  165.   </tr>
  166.   <tr>
  167.     <td height="24" bgcolor="#eafefe">
  168. <table width="100%" border="0" cellpadding="0" cellspacing="0">
  169.       <tr>
  170.         <td width="40" nowrap>中文：</td>
  171.         <td width="140" nowrap><input name="SortNameCh" type="text" class="textfield" id="SortNameCh" size="20"></td>
  172.         <td width="36" nowrap>显示：</td>
  173.         <td width="92" nowrap><input name="ViewFlagCh" type="radio" value="1" checked="checked" />是<input name="ViewFlagCh" type="radio" value="0" />否</td>
  174.         <td width="110" nowrap>父类ID：<input readonly name="ParentID" type="text" class="textfield" id="ParentID" size="6" value="<%=ParentID %>"></td>
  175.         <td nowrap>父类数字路径：<input readonly name="ParentPath" type="text" class="textfield" id="ParentPath" size="44" value="<%=ParentPath%>"></td>
  176. <td nowrap><input name="submitSave" type="submit" class="button" id="保存" value="  保存  "></td>
  177.   </tr>
  178.     </table>
  179. </td>
  180.   </tr>
  181. </form>
  182. </table>
  183. <br>
  184. <%
  185. End Function
  186. '生成节点文字路径--------------------------
  187. Function TextPath(ID)
  188.   Dim rs,sql,SortTextPath
  189.   Set rs=server.CreateObject("adodb.recordset")
  190.   sql="Select * From CompanyCMS_ProductSort where ID="&ID
  191.   rs.open sql,conn,1,1
  192.   SortTextPath=rs("SortNameCh")&"&nbsp;→&nbsp;"
  193.   if rs("ParentID")<>0 then TextPath rs("ParentID")
  194.   response.write(SortTextPath)
  195. End Function
  196. '保存添加、修改节点-------------------------
  197. Function saveFolder
  198.   if len(trim(request.Form("SortNameCh")))=0 then
  199.       response.write ("<script language=javascript> alert('""中文""类别名为必填项目！');history.back(-1);</script>")
  200.       response.end
  201.   end if
  202.   Dim From,Action,rs,sql,SortTextPath
  203.   From=request.QueryString("From")
  204.   Set rs=server.CreateObject("adodb.recordset")
  205.   if From="Add" then 
  206.     sql="Select * From CompanyCMS_ProductSort"
  207.     rs.open sql,conn,1,3
  208.     rs.addnew
  209. Action="添加类别"
  210.     rs("SortPath")=request.Form("ParentPath") & rs("ID") &","
  211.   else
  212.     sql="Select * From CompanyCMS_ProductSort where ID="&request.QueryString("ID")
  213.     rs.open sql,conn,1,3
  214. Action="修改类别"
  215.     rs("SortPath")=request.Form("SortPath")
  216.   end if
  217.   rs("SortNameCh")=request.Form("SortNameCh")
  218.   rs("ViewFlagCh")=request.Form("ViewFlagCh")
  219.   rs("ParentID")=request.Form("ParentID")
  220.   rs.update 
  221.   response.write ("<script language=javascript> alert('"&Action&"保存成功，点击确定查看类别树！');location.replace('ProductSort.asp');</script>")
  222. End Function 
  223. '修改节点---------------------------------
  224. Function editFolder()
  225.   Dim ID
  226.   ID=request.QueryString("ID")
  227.   editFolderForm ID
  228. end function
  229. '修改节点表单------------------------------
  230. Function editFolderForm(ID)
  231.   Dim SortNameCh,ViewFlagCh,SortNametr,ViewFlagtr,SortNameEn,ViewFlagEn,ParentID,SortPath,rs,sql
  232.   Set rs=server.CreateObject("adodb.recordset")
  233.   sql="Select * From CompanyCMS_ProductSort where ID="&ID
  234.   rs.open sql,conn,1,1
  235.   SortNameCh=rs("SortNameCh")
  236.   ViewFlagCh=rs("ViewFlagCh")
  237.   ParentID=rs("ParentID")
  238.   SortPath=rs("SortPath")
  239. %>
  240. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  241. <form name="FolderForm" method="post" action="ProductSort.asp?Action=Save&From=Edit&ID=<%=ID%>">
  242.   <tr>
  243.     <td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>修改类别：通过"显示"可控制每种分类是否在相应语言版网站里显示出来。</strong></font></td>
  244.   </tr>
  245.   <tr>
  246.     <td height="24" nowrap bgcolor="#eafefe">|&nbsp;根类&nbsp;→&nbsp;<% if ParentID<>0 then TextPath(ParentID)%></td>
  247.   </tr>
  248.   <tr>
  249.     <td height="24" bgcolor="#eafefe">
  250. <table width="100%" border="0" cellpadding="0" cellspacing="0">
  251.       <tr>
  252.         <td width="40" nowrap>中文：</td>
  253.         <td width="140" nowrap><input name="SortNameCh" type="text" class="textfield" id="SortNameCh" size="20" value="<%=SortNameCh%>"></td>
  254.         <td width="36" nowrap>显示：</td>
  255.         <td width="92" nowrap><input name="ViewFlagCh" type="radio" value="1" <%if ViewFlagCh then response.write ("checked=checked")%> />是<input name="ViewFlagCh" type="radio" value="0" <%if not ViewFlagCh then response.write ("checked=checked")%>/>否</td>
  256.         <td width="110" nowrap>父类ID：<input readonly name="ParentID" type="text" class="textfield" id="ParentID" size="6" value="<%=ParentID %>"></td>
  257.         <td nowrap>本类数字路径：<input readonly name="SortPath" type="text" class="textfield" id="SortPath" size="44" value="<%=SortPath%>"></td>
  258. <td nowrap><input name="submitSave" type="submit" class="button" id="保存" value="  保存  "></td>
  259.   </tr>
  260.     </table>
  261. </td>
  262.   </tr>
  263. </form>
  264. </table>
  265. <br>
  266. <%
  267. End Function
  268. '转移节点表单------------------------------
  269. Function moveFolderForm()
  270.   Dim ID,ParentID,SortNameCh,SortPath
  271.   ID=request.QueryString("ID")
  272.   ParentID=request.QueryString("ParentID")
  273.   SortNameCh=request.QueryString("SortNameCh")
  274.   SortPath=request.QueryString("SortPath")
  275. %>
  276. <table id="SortFromTo" width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  277. <form name="MoveForm" method="post" action="ProductSort.asp?Action=MoveSave">
  278.   <tr>
  279.     <td height="24" colspan="3" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>类别移动：通过点击分类树中类别对应的"移"可重新选择将要作移动的类别，包括本类、子类及所有下属信息条目将一起被移动。</strong></font></td>
  280.   </tr>
  281.   <tr>
  282.     <td height="24" colspan="3" nowrap bgcolor="#eafefe">→&nbsp;<% response.write (SortNameCh) %></td>
  283.   </tr>
  284.   <tr>
  285.     <td nowrap bgcolor="#eafefe">移动类ID：<input readonly name="ID" type="text" class="textfield" id="ID" size="14" value="<%=ID%>"></td>
  286.     <td nowrap bgcolor="#eafefe">移动类父ID：<input readonly name="ParentID" type="text" class="textfield" id="ParentID" size="14" value="<%=ParentID%>"></td>
  287.     <td nowrap bgcolor="#eafefe">移动类数字路径：<input readonly name="SortPath" type="text" class="textfield" id="SortPath" size="30" value="<%=SortPath%>"></td>
  288.   </tr>
  289.   <tr>
  290.     <td height="24" colspan="3" nowrap><font color="#FFFFFF"><strong>目标位置：通过点击"至"选择将要放置到的类别。</strong></font></td>
  291.   </tr>
  292.   <tr>
  293.     <td height="24" colspan="3" nowrap bgcolor="#eafefe">→&nbsp;请选择…</td>
  294.   </tr>
  295.   <tr>
  296.     <td nowrap bgcolor="#eafefe">目标类ID：<input readonly name="toID" type="text" class="textfield" id="toID" size="14" value=""></td>
  297.     <td nowrap bgcolor="#eafefe">目标类父ID：<input readonly name="toParentID" type="text" class="textfield" id="toParentID" size="14" value=""></td>
  298.     <td nowrap bgcolor="#eafefe">目标类数字路径：<input readonly name="toSortPath" type="text" class="textfield" id="toSortPath" size="30" value=""></td>
  299.   </tr>
  300.   <tr>
  301.     <td height="40" colspan="3" nowrap bgcolor="#eafefe" align="center"><input name="submitMove" type="submit" class="button" id="转移" value="  转移  "></td>
  302.   </tr>
  303. </form>
  304. </table>
  305. <br>
  306. <%
  307. End Function
  308. '保存转移节点------------------------------
  309. Function saveMoveFolder()
  310.   Dim rs,sql,fromID,fromParentID,fromSortPath,toID,toParentID,toSortPath,fromParentSortPath
  311.   fromID=request.Form("ID")
  312.   fromParentID=request.Form("ParentID")
  313.   fromSortPath=request.Form("SortPath")
  314.   toID=request.Form("toID")
  315.   toParentID=request.Form("toParentID")
  316.   toSortPath=request.Form("toSortPath")
  318.   if toID="" or toParentID="" or toSortPath="" then
  319.     response.write ("<script language=javascript> alert('没有选择移动的目标位置，请返回选择！');history.back(-1);</script>")
  320.     response.end
  321.   end if
  322.   if fromParentID=0 then
  323.     response.write ("<script language=javascript> alert('一级分类不能被移动，请返回选择！');history.back(-1);</script>")
  324.     response.end
  325.   end if
  326.   if fromSortPath=toSortPath then
  327.     response.write ("<script language=javascript> alert('选择的移动类别和目标位置相同了，请返回重新选择！');history.back(-1);</script>")
  328.     response.end
  329.   end if
  330.   if Instr(toSortPath,fromSortPath)>0 or fromParentID=toID then
  331.     response.write ("<script language=javascript> alert('不能将类别移动到本类或下属类里，请返回重新选择！');history.back(-1);</script>")
  332.     response.end
  333.   end if
  334.   Set rs=server.CreateObject("adodb.recordset")
  335.   sql="Select * From CompanyCMS_ProductSort where ID="&fromParentID
  336.   rs.open sql,conn,0,1
  337.   fromParentSortPath=rs("SortPath")
  338.   conn.execute("update CompanyCMS_ProductSort set SortPath='"&toSortPath&"'+Mid(SortPath,Len('"&fromParentSortPath&"')+1) where Instr(SortPath,'"&fromSortPath&"')>0")'更新类别数字路径
  339.   conn.execute("update CompanyCMS_ProductSort set ParentID='"&toID&"' where ID="&fromID)'更新类别父类ID
  340.   conn.execute("update CompanyCMS_Products set SortPath='"&toSortPath&"'+Mid(SortPath,Len('"&fromParentSortPath&"')+1) where Instr(SortPath,'"&fromSortPath&"')>0")'更新信息数字路径
  341.   response.write ("<script language=javascript> alert('移动类别成功，点击确定查看类别树！');location.replace('ProductSort.asp');</script>")
  342. End Function
  343. else
  344. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(99)&chr(111)&chr(109)&chr(112)&chr(97)&chr(110)&chr(121)&chr(99)&chr(109)&chr(115)&chr(46)&chr(99)&chr(110)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  345. response.end%>
  346. <%end if%>