<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../inc/Commoncode.asp"-->
<!--#include file="../checkvalid.asp"-->
<%
If Not FRAdminLevel(602) Then
	Call ErrorMsg()
End If
Action=trim(Request("Action"))
step=trim(request("step"))
if Instr(step,InstallDir&HTMLPath)=<0 then
step=InstallDir&HTMLPath
end if
filesname=trim(request("filesname"))
select case Action
	case "del"
		if step<>"" then
			htmlfilespath=step
		else
			htmlfilespath=InstallDir&HTMLPath
		end if
		filesnamenum=Split(filesname,",")
		For I=0 to UBound(filesnamenum)
		if filesnamenum(I)=InstallDir&HTMLPath then
		Response.Write ("<script language=JavaScript>{alert('非法操作！');window.close();}</script>")
   		Response.End
		end if
			Set fso = Server.CreateObject(FR_HR_FSO)
			HtmlFileName=Server.MapPath(filesnamenum(I))
			if fso.FolderExists(HtmlFileName) then
			fso.DeleteFolder(HtmlFileName)
			end if
			if fso.fileexists(HtmlFileName) then
			fso.deleteFile(HtmlFileName)
			end if
			Set fso = Nothing
		Next
		response.redirect "Admin_Files.asp?step="&htmlfilespath&""
		response.end
	case "next"
		if step<>"" then
			htmlfilespath=step
		else
			htmlfilespath=InstallDir&HTMLPath
		end if
end select
if step<>"" then
	htmlfilespath=step
else
	htmlfilespath=InstallDir&HTMLPath
end if
SysPath = Server.MapPath(htmlfilespath)
Set FSO = Server.CreateObject(FR_HR_fso)
Set F = FSO.GetFolder(SysPath)
Set FC = F.SubFolders
Set FL = F.Files
'**********************************************************
'
'   Software name: Finereason HRCMS 7.0
'   软件名称:嘉缘人才网站内容管理系统 V7.0
'   Email: service@finereason.com  QQ:109530926
'   Web: http://www.finereason.com  http://www.yjys.net
'   Copyright (C) FineSincere Inc. All Rights Reserved.
'   版权所有 嘉挚科技 未经嘉挚公司授权不得用于任何商业用途
'
'	文件名称：Admin_Files.asp
'	作    用：HTML文件管理
'	最后更新：Fine Sincere (Mr.Hou)
'	最后日期：2007-5-11
'
'************************************************************
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/style<%=sk%>.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../inc/input.js"></script>
<title>HTML文件管理</title>
<style type="text/css">
<!--
.style11 {color: #0066CC;
	font-weight: bold;
}
#labcontent .altCheckboxOn {
	display: inline;
	padding: 20px 2px; /* NS 6 problem */
	padding-left: 70px;
	color: #000;
	line-height: 60px;
	font-family: "Courier New", Courier, mono;
	font-size: 1.2em;
	font-weight: bold;
	background-image: url(alt_checkbox_on.gif);
	background-repeat: no-repeat;
	background-position: 0% 50%;
	border: 0px;
}
-->
</style>
</head>
<body>
<table width='100%' border='0' align="center" cellpadding='2' cellspacing='1' class="tableBorder">
  <tr>
    <th height='25'>HTML文件管理</th>
  </tr>
    <tr>
    <td height='25'><font color="ff6600"><b class="style11">　管理选项</b></font>：&nbsp;<a href="Admin_Files.asp">管理首页</a> | <a href="#" <%if htmlfilespath<>InstallDir&HTMLPath and htmlfilespath<>"" then%>onclick="history.back();"<%end if%>>返回上一级</a></td>
  </tr>
</table>
<table width='100%' height="420" border='0' align="center" cellpadding='2' cellspacing='1' class="tableBorder">
<form name="form2" action="Admin_Files.asp" method="post">
  <tr>
    <td height="360" valign='top'>
	<div style="width:100%; height:auto;min-height:360px; background-color:#FFFFFF; ">
<%
For Each F In FC
%><ul style="float:left; color:#000000; width:50px; margin:6px; padding:4px; text-align:center;" ondblclick="window.location='?Action=next&step=<%=htmlfilespath%><%=F.name%>/';" title="双击打开文件夹"><li style="float:left; width:50px;"><img src='../Images/TheSuperFolder.gif' border="0" align='absmiddle' /></li>
<li style="float:left; width:50px; height:20px; overflow:hidden"><a href="?Action=next&step=<%=htmlfilespath%><%=F.name%>/" title="<%=F.name%>"><%=F.name%></a></li>
<li style="float:left; width:50px;"></li>
</ul>
<%Next
For Each F In FL
%><ul style="float:left; color:#000000; width:50px; margin:6px; padding:4px; text-align:center;">
<li style="float:left; width:50px;"><a href="<%=htmlfilespath%><%=F.name%>" target="_blank" title="<%=F.name%>"><img src='../Images/<%=Split(F.name,".")(1)%>.gif' border="0" align='absmiddle' /></a></li>
<li style="float:left; width:50px; height:20px; overflow:hidden"><a href="<%=htmlfilespath%><%=F.name%>" target="_blank" title="<%=F.name%>"><%=left(F.name,8)%></a></li>
<li style="float:left; width:50px;"><input name="filesname" type="checkbox" class="checkbox" value="<%=htmlfilespath%><%=F.name%>"></li>
</ul><%Next%></div>
<div style="width:100%; height:20px; background-color:#FFFFFF; ">
<ul style="float:right; color:#000000; width:98%; margin:0; padding:4px; text-align:center;"><li style="float:right;"><input type="hidden" name="step" value="<%=htmlfilespath%>" /><input name="checkSelect" type="checkbox" class="checkbox" onClick="javascript: checkAll(this)" value="checkbox">
  全选  
      <input name="button" type="button" class="inputs" onclick="confirmX(1);" value="删   除" />
</li></ul>
</div>
</td>
  </tr>
 </form>
</table>
</body>
</html>
<script language="javascript">
function confirmX(num)
{
	var ids = document.getElementsByName("filesname");
	var check=false;
	if (ids != null) {
		
		for (i=0; i<ids.length; i++) 
		{
			var obj = ids(i);
			if (obj.checked==true)
			{
				check=true;
				
			}
		}
		if(check==false){alert("请选择操作对象！");return false;}
	}
	if(num==1)
	{
		if(confirm("警告:此操作将会删除所选的文件、文件夹，以及文件夹下的所有文件!\n是否继续操作下去?"))	
		{
			document.form2.action="Admin_Files.asp?Action=del";
			document.form2.submit();		
		}
	}
	return false;	
}
function checkAll(box1) {
    var ids = document.getElementsByName("filesname");
	if (ids != null) {
		for (i=0; i<ids.length; i++) {
			var obj = ids(i);
			obj.checked = box1.checked;
		}
	}
}
</script>