<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方客服中心 http://www.ip126.com
'微信公众号 ip126com
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<TITLE>导航栏目列表</TITLE>
<link rel="stylesheet" href="Images/Admin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<BODY>
<%
if Instr(session("AdminPurview"),"|11,")=0 then 
  response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  response.end
end if
Dim Action
Action=request.QueryString("Action")
Select Case Action
  Case "Add"
	addFolder
  	CallFolderView()
  Case "Del"
    Dim rs,sql,SortPath
    Set rs=server.CreateObject("adodb.recordset")
    sql="Select * From TianTianCMS_ProductCategory where ID="&request.QueryString("id")
    rs.open sql,conn,1,1
	SortPath=rs("SortPath")
	conn.execute("delete from TianTianCMS_ProductCategory where Instr(SortPath,'"&SortPath&"')>0")
    conn.execute("delete from TianTianCMS_Products where Instr(SortPath,'"&SortPath&"')>0")
    response.write ("<script language='javascript'>alert('成功删除本类、子类及所有下属信息条目！');location.replace('ProductSort.asp');</script>")
  Case "Save"
	saveFolder ()
  Case "Edit"
	editFolder
  	CallFolderView()
  Case "Move"
	moveFolderForm ()
  	CallFolderView()
  Case "MoveSave"
	saveMoveFolder ()
  Case Else
	CallFolderView()
End Select
%>
<%Function CallFolderView()%>

<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  <tr>
    <th height="22">【管理产品类别】</th>
  </tr>
  <tr>
    <td align="center" nowrap class="forumRow"><a href="ProductSort.asp?Action=Add&ParentID=0">添加一级分类</a> | <a href="ProductList.asp">查看所有产品</a></td>
  </tr>
  <tr>
    <td nowrap class="forumRow"><%Folder(0)%></td>
  </tr>
</table>
<%
End Function
Function Folder(id)
  Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From TianTianCMS_ProductCategory where ParentID="&id&" order by id"
  rs.open sql,conn,1,1
  if id=0 and rs.recordcount=0 then
    response.write ("<center>暂无产品分类</center>")
    response.end
  end if  
  i=1
  response.write("<table border='0' cellspacing='0' cellpadding='0'>")
  while not rs.eof
    ChildCount=conn.execute("select count(*) from TianTianCMS_ProductCategory where ParentID="&rs("id"))(0)
    if ChildCount=0 then
	  if i=rs.recordcount then
	    FolderType="SortFileEnd"
	  else
	    FolderType="SortFile"
	  end if
	  FolderName=rs("SortNameCH")
	  onMouseUp=""
    else
	  if i=rs.recordcount then
	 	FolderType="SortEndFolderClose"
		ListType="SortEndListline"
		onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
	  else
		FolderType="SortFolderClose"
		ListType="SortListline"
		onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');"
	  end if
	  FolderName=rs("SortNameCH")
    end If
    datafrom="TianTianCMS_ProductCategory"
    response.write("<tr>")
    response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"'></td><td nowrap>"&FolderName&"&nbsp;")	
	if rs("ViewFlagCH") then
      Response.Write "<a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=downCH"" title=""点击更改显示状态""><font color='green'>√</font></a>"
    else
      Response.Write "<a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=upCH"" title=""点击更改显示状态""><font color='red'>×</font></a>"
	end if
	if rs("ViewFlagEN") then
      Response.Write "<a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=downEN"" title=""点击更改显示状态""><font color='green'>√</font></a>"
    else
      Response.Write "<a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=upEN"" title=""点击更改显示状态""><font color='red'>×</font></a>"
	end if    
    response.write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color='red'>操作：</font>")
	'If rs("ParentID") < 1 Then
	response.write("<a href='ProductSort.asp?Action=Add&ParentID="&rs("id")&"'>添加</a> | ")
	'End If 
    response.write("<a href='ProductSort.asp?Action=Edit&ID="&rs("id")&"'>修改</a>")
    response.write(" | <a href='ProductSort.asp?Action=Move&ID="&rs("id")&"&ParentID="&rs("Parentid")&"&SortNameCH="&rs("SortNameCH")&"&SortPath="&rs("SortPath")&"'>移</a>")
    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>")
	response.write(" | <a href=javascript:ConfirmDelSort('ProductSort',"&rs("id")&")>删除</a>")
    response.write("&nbsp;&nbsp;&nbsp;&nbsp;<font color='red'>产品：</font><a href='ProductEdit.asp?Result=Add'>添加</a>")
    response.write(" | <a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>列表</a>")
    response.write("</td></tr>")
    if ChildCount>0 then
%>
<tr id="a<%= rs("id")%>" style="display:yes">
  <td class="<%= ListType%>" nowrap></td>
  <td ><% Folder(rs("id")) %></td>
</tr>
<%
	end if
    rs.movenext
    i=i+1
	wend
	response.write("</table>")
	rs.close
	set rs=nothing
end Function

Function addFolder()
  Dim ParentID
  ParentID=request.QueryString("ParentID")
  addFolderForm ParentID
end Function

Function addFolderForm(ParentID)
  Dim ParentPath,SortTextPath,rs,sql
  if ParentID=0 then
    ParentPath="0,"
	SortTextPath=""
  else 
    Set rs=server.CreateObject("adodb.recordset")
    sql="Select * From TianTianCMS_ProductCategory where ID="&ParentID
    rs.open sql,conn,1,1
	ParentPath=rs("SortPath")
  end if
%>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  <form name="FolderForm" method="post" action="ProductSort.asp?Action=Save&From=Add">
    <tr>
      <th height="22">【添加产品类别】</th>
    </tr>
    <tr>
      <td class="forumRow">| 根类 → <% if ParentID<>0 then TextPath(ParentID)%></td>
    </tr>
    <tr>
      <td class="forumRow">中文：
        <input name="SortNameCH" type="text" id="SortNameCH" size="28">
        显示：
        <input name="ViewFlagCH" type="radio" value="1" checked="checked" />
        是
        <input name="ViewFlagCH" type="radio" value="0" />
        否 父类ID：
        <input readonly name="ParentID" type="text" id="ParentID" size="6" value="<%=ParentID %>">
        父类数字路径：
        <input readonly name="ParentPath" type="text" id="ParentPath" size="18" value="<%=ParentPath%>"></td>
    </tr>
    <tr>
      <td class="forumRow">英文：
        <input name="SortNameEN" type="text" id="SortNameEN" size="28">
        显示：
        <input name="ViewFlagEN" type="radio" value="1"  checked />
        是
        <input name="ViewFlagEN" type="radio" value="0" />
        否 
        <input name="submitSave" type="submit" id="保存" value="保存">（注：即使不开启英文板块也要同时建立英文分类）</td>
    </tr>
  </form>
</table>
<%
End Function
Function TextPath(ID)
  Dim rs,sql,SortTextPath
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From TianTianCMS_ProductCategory where ID="&ID
  rs.open sql,conn,1,1
  SortTextPath=rs("SortNameCH")&"&nbsp;→&nbsp;"
  if rs("ParentID")<>0 then TextPath rs("ParentID")
  response.write(SortTextPath)
End Function
Function saveFolder
  if len(trim(request.Form("SortNameCH")))=0 then
      response.write ("<script language='javascript'>alert('请填写中文类别名称！');history.back(-1);</script>")
      response.end
  end if
  if request.Form("ViewFlagEn")=1 then
    if len(trim(request.Form("SortNameEn")))=0 then
      response.write ("<script language=javascript> alert('您已经选择了""英文""显示，因此英文类别名必填！');history.back(-1);</script>")
      response.end
    end if
  end if
  Dim From,Action,rs,sql,SortTextPath
  From=request.QueryString("From")
  Set rs=server.CreateObject("adodb.recordset")
  if From="Add" then 
    sql="Select * From TianTianCMS_ProductCategory"
    rs.open sql,conn,1,3
    rs.addnew
	Action="添加产品类别"
    rs("SortPath")=request.Form("ParentPath") & rs("ID") &","
  else
    sql="Select * From TianTianCMS_ProductCategory where ID="&request.QueryString("ID")
    rs.open sql,conn,1,3
	Action="修改产品类别"
    rs("SortPath")=request.Form("SortPath")
  end if
  rs("SortNameCh")=request.Form("SortNameCh")
  rs("ViewFlagCh")=request.Form("ViewFlagCh")
  rs("SortNameEn")=request.Form("SortNameEn")
  rs("ViewFlagEn")=request.Form("ViewFlagEn")
  rs("ParentID")=request.Form("ParentID")
  rs.update 
  response.write ("<script language='javascript'>alert('"&Action&"成功！');location.replace('ProductSort.asp');</script>")
End Function 

Function editFolder()
  Dim ID
  ID=request.QueryString("ID")
  editFolderForm ID
end function

Function editFolderForm(ID)
  Dim SortNameCH,ViewFlagCH,ParentID,SortPath,rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From TianTianCMS_ProductCategory where ID="&ID
  rs.open sql,conn,1,1
  SortNameCh=rs("SortNameCh")
  ViewFlagCh=rs("ViewFlagCh")
  SortNameEn=rs("SortNameEn")
  ViewFlagEn=rs("ViewFlagEn")
  ParentID=rs("ParentID")
  SortPath=rs("SortPath")
%>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  <form name="FolderForm" method="post" action="ProductSort.asp?Action=Save&From=Edit&ID=<%=ID%>">
    <tr>
      <th height="22">【修改产品类别】</th>
    </tr>
    <tr>
      <td class="forumRow">| 根类 → 
        <% if ParentID<>0 then TextPath(ParentID)%></td>
    </tr>
    <tr>
      <td class="forumRow">中文：
        <input name="SortNameCH" type="text" id="SortNameCH" size="28" value="<%=SortNameCH%>">
        发布：
        <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")%>/>
        否 父类ID：
        <input readonly name="ParentID" type="text" id="ParentID" size="6" value="<%=ParentID %>">
        父类数字路径：
        <input readonly name="SortPath" type="text" id="SortPath" size="18" value="<%=SortPath%>"></td>
    </tr>
    <tr>
      <td class="forumRow">英文：
        <input name="SortNameEN" type="text" id="SortNameEN" size="28" value="<%=SortNameEN%>">
        发布：
        <input name="ViewFlagEN" type="radio" value="1" <%if ViewFlagEN then response.write ("checked=checked")%> />
        是
        <input name="ViewFlagEN" type="radio" value="0" <%if not ViewFlagEN then response.write ("checked=checked")%>/>
        否 
        <input name="submitSave" type="submit" id="保存" value="保存">（注：即使不开启英文板块也要同时建立英文分类）</td>
    </tr>
  </form>
</table>
<%
End Function

Function moveFolderForm()
  Dim ID,ParentID,SortNameCH,SortPath
  ID=request.QueryString("ID")
  ParentID=request.QueryString("ParentID")
  SortNameCH=request.QueryString("SortNameCH")
  SortPath=request.QueryString("SortPath")
%>
<br>    
<table id="SortFromTo" class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
  <form name="MoveForm" method="post" action="ProductSort.asp?Action=MoveSave">
    <tr>
      <th height="22">【移动产品类别】</th>
    </tr>
    <tr>
      <td class="forumrow">→
      <% response.write (SortNameCH) %></td>
    </tr>
    <tr>
      <td class="forumrow">移动类ID：
        <input readonly name="ID" type="text" id="ID" size="8" value="<%=ID%>">
        移动类父ID：
        <input readonly name="ParentID" type="text" id="ParentID" size="8" value="<%=ParentID%>">
        移动类数字路径：
        <input readonly name="SortPath" type="text" id="SortPath" size="28" value="<%=SortPath%>">
        </th>
    </tr>
    <tr>
      <td align="center" class="forumrow"><strong>目标位置：通过点击"至"选择将要放置到的类别。</strong></td>
    </tr>
    <tr>
      <td class="forumrow">目标类ID：
        <input readonly name="toID" type="text" id="toID" size="8" value="">
        目标类父ID：
        <input readonly name="toParentID" type="text" id="toParentID" size="8" value="">
        目标类数字路径：
      <input readonly name="toSortPath" type="text" id="toSortPath" size="28" value=""></td>
    </tr>
    <tr>
      <td align="center" class="forumrow"><input name="submitMove" type="submit" id="转移" value="转移">
        </th>
    </tr>
  </form>
</table>
<%
End Function

Function saveMoveFolder()
  Dim rs,sql,fromID,fromParentID,fromSortPath,toID,toParentID,toSortPath,fromParentSortPath
  fromID=request.Form("ID")
  fromParentID=request.Form("ParentID")
  fromSortPath=request.Form("SortPath")
  toID=request.Form("toID")
  toParentID=request.Form("toParentID")
  toSortPath=request.Form("toSortPath")
  if toID="" or toParentID="" or toSortPath="" then
    response.write ("<script language='javascript'>alert('请选择移动的目标位置！');history.back(-1);</script>")
    response.end
  end if
  if fromParentID=0 then
    response.write ("<script language='javascript'>alert('一级分类无法被移动！');history.back(-1);</script>")
    response.end
  end if
  if fromSortPath=toSortPath then
    response.write ("<script language='javascript'>alert('当前选择的移动类别和目标位置相同，操作无效！');history.back(-1);</script>")
    response.end
  end if
  if Instr(toSortPath,fromSortPath)>0 or fromParentID=toID then
    response.write ("<script language='javascript'>alert('不能将类别移动到本类或下属类里，操作无效！');history.back(-1);</script>")
    response.end
  end if
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From TianTianCMS_ProductCategory where ID="&fromParentID
  rs.open sql,conn,0,1
  fromParentSortPath=rs("SortPath")
  conn.execute("update TianTianCMS_ProductCategory set SortPath='"&toSortPath&"'+Mid(SortPath,Len('"&fromParentSortPath&"')+1) where Instr(SortPath,'"&fromSortPath&"')>0")
  conn.execute("update TianTianCMS_ProductCategory set ParentID='"&toID&"' where ID="&fromID)
  conn.execute("update TianTianCMS_Products set SortPath='"&toSortPath&"'+Mid(SortPath,Len('"&fromParentSortPath&"')+1) where Instr(SortPath,'"&fromSortPath&"')>0")
  response.write ("<script language='javascript'>alert('产品类别移动成功！');location.replace('ProductSort.asp');</script>")
End Function
%>
</BODY>
</HTML>
