📄 admin_files.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../checkvalid.asp"-->
<%
Action=trim(Request("Action"))
step=trim(request("step"))
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 6.0
'   软件名称:嘉缘人才网站内容管理系统 V6.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.css rel=stylesheet type="text/css">
<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="#" <%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:360px; 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;"><li style="float:left; width:50px;"><a href="?Action=next&step=<%=htmlfilespath%>/<%=F.name%>" title="<%=F.name%>"><img src='../Images/TheSuperFolder.gif' border="0" align='absmiddle' /></a></li>
<a href="?Action=next&step=<%=htmlfilespath%>/<%=F.name%>" title="<%=F.name%>"><li style="float:left; width:50px;"><%=F.name%></li></a><input name="filesname" type="checkbox" class="checkbox" value="<%=htmlfilespath%>/<%=F.name%>"></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><a href="<%=htmlfilespath%>/<%=F.name%>" target="_blank" title="<%=F.name%>"><li style="float:left; width:50px;"><%=left(F.name,8)%></li></a><input name="filesname" type="checkbox" class="checkbox" value="<%=htmlfilespath%>/<%=F.name%>"></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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -