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

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

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

开发平台：

HTML/CSS

DownSort.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  3. <% Option Explicit %>
  4. <HTML xmlns="http://www.w3.org/1999/xhtml">
  5. <HEAD>
  6. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  7. <META NAME="copyright" CONTENT="Copyright 2006-2008 - Hokilly.com-STUDIO" />
  8. <META NAME="Author" CONTENT="红金羚软件,www.hokilly.com" />
  9. <META NAME="Keywords" CONTENT="" />
  10. <META NAME="Description" CONTENT="" />
  11. <TITLE>下载分类</TITLE>
  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"),"|51,")=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_DownSort where ID="&request.QueryString("id")
  40.     rs.open sql,conn,1,1
  41. SortPath=rs("SortPath")
  42. conn.execute("delete from  CompanyCMS_DownSort  where Instr(SortPath,'"&SortPath&"')>0")
  43.     conn.execute("delete from  CompanyCMS_Download where Instr(SortPath,'"&SortPath&"')>0")
  44.     response.write ("<script language=javascript> alert('成功删除本类、子类及所有下属信息条目，点击确定查看类别树！');location.replace('DownSort.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. else
  63. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  64. response.end%>
  65. <%end if%>
  66. <%
  67. '调用显示节点------------------------------
  68. Function CallFolderView()
  69. %>
  70. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  71.   <tr>
  72.     <td height="24" nowrap><font color="#FFFFFF"><strong>类别树查看管理：</strong></font></td>
  73.   </tr>
  74.   <tr>
  75.     <td height="24" align="center" nowrap  bgcolor="#eafefe"><a href="DownSort.asp?Action=Add&ParentID=0">添加一级分类</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="DownList.asp" onClick='changeAdminFlag("下载列表")'>查看所有下载</a></td>
  76.   </tr>
  77.   <tr>
  78.     <td height="24" nowrap  bgcolor="#eafefe"><% Folder(0) %></td>
  79.   </tr>
  80. </table>
  81. <%
  82. End Function
  83. '列出所有节点------------------------------
  84. Function Folder(id)
  85.   Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,ViewFlag
  86.   Set rs=server.CreateObject("adodb.recordset")
  87.   sql="Select * From CompanyCMS_DownSort where ParentID="&id&" order by id"
  88.   rs.open sql,conn,1,1
  89.   if id=0 and rs.recordcount=0 then
  90.     response.write ("暂无分类!")
  91.     response.end
  92.   end if  
  93.   i=1
  94.   response.write("<table border='0' cellspacing='0' cellpadding='0'>")
  95.   while not rs.eof
  96.     ChildCount=conn.execute("select count(*) from CompanyCMS_DownSort where ParentID="&rs("id"))(0)
  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='DownSort.asp?Action=Add&ParentID="&rs("id")&"'>添加</a>")
  120.     response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href='DownSort.asp?Action=Edit&ID="&rs("id")&"'>修改</a>")
  121.     response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href='DownSort.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('DownSort',"&rs("id")&")>删除</a>")
  124.     response.write("&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>下载：</font><a href='DownEdit.asp?Result=Add' onClick='changeAdminFlag(""添加下载"")'>添加</a>")
  125.     response.write("<font color='#367BDA'>&nbsp;|&nbsp;</font><a href='DownList.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_DownSort 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="DownSort.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="80" 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_DownSort 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.   if request.Form("ViewFlagEn")=1 then
  203.     if len(trim(request.Form("SortNameEn")))=0 then
  204.       response.write ("<script language=javascript> alert('您已经选择了""英文""显示，因此英文类别名必填！');history.back(-1);</script>")
  205.       response.end
  206.     end if
  207.   end if
  208.   Dim From,Action,rs,sql,SortTextPath
  209.   From=request.QueryString("From")
  210.   Set rs=server.CreateObject("adodb.recordset")
  211.   if From="Add" then 
  212.     sql="Select * From CompanyCMS_DownSort"
  213.     rs.open sql,conn,1,3
  214.     rs.addnew
  215. Action="添加类别"
  216.     rs("SortPath")=request.Form("ParentPath") & rs("ID") &","
  217.   else
  218.     sql="Select * From CompanyCMS_DownSort where ID="&request.QueryString("ID")
  219.     rs.open sql,conn,1,3
  220. Action="修改类别"
  221.     rs("SortPath")=request.Form("SortPath")
  222.   end if
  223.   rs("SortNameCh")=request.Form("SortNameCh")
  224.   rs("ViewFlagCh")=request.Form("ViewFlagCh")
  225.   rs("ParentID")=request.Form("ParentID")
  226.   rs.update 
  227.   response.write ("<script language=javascript> alert('"&Action&"保存成功，点击确定查看类别树！');location.replace('DownSort.asp');</script>")
  228. End Function 
  229. '修改节点---------------------------------
  230. Function editFolder()
  231.   Dim ID
  232.   ID=request.QueryString("ID")
  233.   editFolderForm ID
  234. end function
  235. '修改节点表单------------------------------
  236. Function editFolderForm(ID)
  237.   Dim SortNameCh,ViewFlagCh,ParentID,SortPath,rs,sql
  238.   Set rs=server.CreateObject("adodb.recordset")
  239.   sql="Select * From CompanyCMS_DownSort where ID="&ID
  240.   rs.open sql,conn,1,1
  241.   SortNameCh=rs("SortNameCh")
  242.   ViewFlagCh=rs("ViewFlagCh")
  243.   ParentID=rs("ParentID")
  244.   SortPath=rs("SortPath")
  245. %>
  246. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  247. <form name="FolderForm" method="post" action="DownSort.asp?Action=Save&From=Edit&ID=<%=ID%>">
  248.   <tr>
  249.     <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>
  250.   </tr>
  251.   <tr>
  252.     <td height="24" nowrap bgcolor="#eafefe">|&nbsp;根类&nbsp;→&nbsp;<% if ParentID<>0 then TextPath(ParentID)%></td>
  253.   </tr>
  254.   <tr>
  255.     <td height="24" bgcolor="#eafefe">
  256. <table width="100%" border="0" cellpadding="0" cellspacing="0">
  257.       <tr>
  258.         <td width="80" nowrap>分类名称：</td>
  259.         <td width="140" nowrap><input name="SortNameCh" type="text" class="textfield" id="SortNameCh" size="20" value="<%=SortNameCh%>"></td>
  260.         <td width="36" nowrap>显示：</td>
  261.         <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>
  262.         <td width="110" nowrap>父类ID：<input readonly name="ParentID" type="text" class="textfield" id="ParentID" size="6" value="<%=ParentID %>"></td>
  263.         <td nowrap>本类数字路径：<input readonly name="SortPath" type="text" class="textfield" id="SortPath" size="44" value="<%=SortPath%>"></td>
  264. <td nowrap><input name="submitSave" type="submit" class="button" id="保存" value="  保存  "></td>
  265.   </tr>
  266.     </table>
  267. </td>
  268.   </tr>
  269. </form>
  270. </table>
  271. <br>
  272. <%
  273. End Function
  274. '转移节点表单------------------------------
  275. Function moveFolderForm()
  276.   Dim ID,ParentID,SortNameCh,SortPath
  277.   ID=request.QueryString("ID")
  278.   ParentID=request.QueryString("ParentID")
  279.   SortNameCh=request.QueryString("SortNameCh")
  280.   SortPath=request.QueryString("SortPath")
  281. %>
  282. <table id="SortFromTo" width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  283. <form name="MoveForm" method="post" action="DownSort.asp?Action=MoveSave">
  284.   <tr>
  285.     <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>
  286.   </tr>
  287.   <tr>
  288.     <td height="24" colspan="3" nowrap bgcolor="#eafefe">→&nbsp;<% response.write (SortNameCh) %></td>
  289.   </tr>
  290.   <tr>
  291.     <td nowrap bgcolor="#eafefe">移动类ID：<input readonly name="ID" type="text" class="textfield" id="ID" size="14" value="<%=ID%>"></td>
  292.     <td nowrap bgcolor="#eafefe">移动类父ID：<input readonly name="ParentID" type="text" class="textfield" id="ParentID" size="14" value="<%=ParentID%>"></td>
  293.     <td nowrap bgcolor="#eafefe">移动类数字路径：<input readonly name="SortPath" type="text" class="textfield" id="SortPath" size="30" value="<%=SortPath%>"></td>
  294.   </tr>
  295.   <tr>
  296.     <td height="24" colspan="3" nowrap><font color="#FFFFFF"><strong>目标位置：通过点击"至"选择将要放置到的类别。</strong></font></td>
  297.   </tr>
  298.   <tr>
  299.     <td height="24" colspan="3" nowrap bgcolor="#eafefe">→&nbsp;请选择…</td>
  300.   </tr>
  301.   <tr>
  302.     <td nowrap bgcolor="#eafefe">目标类ID：<input readonly name="toID" type="text" class="textfield" id="toID" size="14" value=""></td>
  303.     <td nowrap bgcolor="#eafefe">目标类父ID：<input readonly name="toParentID" type="text" class="textfield" id="toParentID" size="14" value=""></td>
  304.     <td nowrap bgcolor="#eafefe">目标类数字路径：<input readonly name="toSortPath" type="text" class="textfield" id="toSortPath" size="30" value=""></td>
  305.   </tr>
  306.   <tr>
  307.     <td height="40" colspan="3" nowrap bgcolor="#eafefe" align="center"><input name="submitMove" type="submit" class="button" id="转移" value="  转移  "></td>
  308.   </tr>
  309. </form>
  310. </table>
  311. <br>
  312. <%
  313. End Function
  314. '保存转移节点------------------------------
  315. Function saveMoveFolder()
  316.   Dim rs,sql,fromID,fromParentID,fromSortPath,toID,toParentID,toSortPath,fromParentSortPath
  317.   fromID=request.Form("ID")
  318.   fromParentID=request.Form("ParentID")
  319.   fromSortPath=request.Form("SortPath")
  320.   toID=request.Form("toID")
  321.   toParentID=request.Form("toParentID")
  322.   toSortPath=request.Form("toSortPath")
  324.   if toID="" or toParentID="" or toSortPath="" then
  325.     response.write ("<script language=javascript> alert('没有选择移动的目标位置，请返回选择！');history.back(-1);</script>")
  326.     response.end
  327.   end if
  328.   if fromParentID=0 then
  329.     response.write ("<script language=javascript> alert('一级分类不能被移动，请返回选择！');history.back(-1);</script>")
  330.     response.end
  331.   end if
  332.   if fromSortPath=toSortPath then
  333.     response.write ("<script language=javascript> alert('选择的移动类别和目标位置相同了，请返回重新选择！');history.back(-1);</script>")
  334.     response.end
  335.   end if
  336.   if Instr(toSortPath,fromSortPath)>0 or fromParentID=toID then
  337.     response.write ("<script language=javascript> alert('不能将类别移动到本类或下属类里，请返回重新选择！');history.back(-1);</script>")
  338.     response.end
  339.   end if
  340.   Set rs=server.CreateObject("adodb.recordset")
  341.   sql="Select * From CompanyCMS_DownSort where ID="&fromParentID
  342.   rs.open sql,conn,0,1
  343.   fromParentSortPath=rs("SortPath")
  344.   conn.execute("update CompanyCMS_DownSort set SortPath='"&toSortPath&"'+Mid(SortPath,Len('"&fromParentSortPath&"')+1) where Instr(SortPath,'"&fromSortPath&"')>0")'更新类别数字路径
  345.   conn.execute("update CompanyCMS_DownSort set ParentID='"&toID&"' where ID="&fromID)'更新类别父类ID
  346.   conn.execute("update CompanyCMS_Download set SortPath='"&toSortPath&"'+Mid(SortPath,Len('"&fromParentSortPath&"')+1) where Instr(SortPath,'"&fromSortPath&"')>0")'更新信息数字路径
  347.   response.write ("<script language=javascript> alert('移动类别成功，点击确定查看类别树！');location.replace('DownSort.asp');</script>")
  348. End Function
  349. %>