📄 folder_d.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: folder_e.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司

' 　创建人 : 周秋舫
' 　日　期 : 2002-08-29
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 文件夹改名
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/emp.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

<%
call CheckSecurity()

dim iEmpSerial	: iEmpSerial = GetEmpSerial
dim pFolderId		: pFolderId = GetParam("folder_id")

if IsEmpty(pFolderId) then
	Response.clear
	Server.Transfer("../common/error.asp")
	Response.end
end if


'' ********************************************************************************************************
'' 如果是提交，则根据删除选项确定删除文件夹的同时是删除文件还是转移文件
'' -------------------------------------------------------------------------------------------------------------------------------------------------
dim sSQL
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
	dim pFolderIdNew	: pFolderIdNew = GetParam("folder_id_new")
	dim pDeleteOption	: pDeleteOption = GetParam("delete_option")

	'' 删除或转移文件
	if CStr(pDeleteOption) = "1" then
		'' 删除文件夹并删除该文件夹下的所有文件
		sSQL = "delete from t_files where folder = " & pFolderId
	elseif CStr(pDeleteOption) = "2" then
		'' 删除文件夹，并将该文件下下的文件转移到指定的文件夹下
		sSQL = "update t_files set folder = " & ToSQL(pFolderIdNew,"Number") & " where folder = " & pFolderId
	end if
	call ExecuteSQL(dbLocal, sSQL)
	
	'' 删除文件夹
	sSQL = "delete from t_filefolder where folder_id = " & pFolderId
	response.write sSQL & "<br>"
	call ExecuteSQL(dbLocal, sSQL)

	Response.Write "<script language=""javascript"">" & vbLF & _
			"	if (typeof(window.opener) != 'undefined')" & vbLF & _
			"		window.opener.location.reload();" & vbLF & _
			"	window.close();" & vbLF & _
			"</script>" & vbLF
	Response.end
end if
%>

<html>
<head>
<title>文件夹重命名</title>
<meta http-equiv="Content-Type"	content="text/html;charset=gb2312">
<link rel="stylesheet" href="../common/common.css" type="text/css">
<script language="javascript">
function CheckInput()
{
	if (document.all.DeleteFiles.checked == false && document.all.MoveFiles.checked == false)
	{
		alert("对不起，请选择文件夹删除选项！");
		return false;
	}
}
</script>
</head>

<body background="../images/bg/bg0.jpg" scroll="no" LeftMargin=0 TopMargin=0>

<form name="FormDeleteFolder" action="folder_d.asp" method="post" onsubmit="return(CheckInput());">
<input type="hidden" name="folder_id" value="<%=pFolderId%>">
<table cellspacing=0 cellpadding=0 border=0 width="350" align=center background="images/btmtx2.gif">
<tr height="5px"><td></td></tr>
<tr height=50><td style="color:white;line-height:120%">&nbsp;
	<fieldset style="width:325px;height:80px;color:white;border-style:groove;line-height:200%" align="center">
	<legend style="color:navy;border-width:0px"><b>文件夹删除选项</b></legend> 
		<input type="radio" name="delete_option" value="1" id="DeleteFiles" style="border-width:0;">删除文件夹，同时删除该文件夹下的所有文件
		<br>
		<input type="radio" name="delete_option" value="2" id="MoveFiles" style="border-width:0;">删除文件夹，同时将文件转移到
			<select name="folder_id_new" style="width:121px">
				<option value="">／( 根目录 )</option>
				<%=selectOptions(dbLocal, "t_filefolder", "folder_id", "folder_name", "", "folder_id<>" & pFolderId & " and emp_serial = " & iEmpSerial & "order by folder_name")%>
			</select>
	</fieldset></td></tr>
<tr height="45px">
	<td colspan=3 align=center>
		<input type=image border=0 style="cursor:hand;border-width:0" src="../images/button/delete.gif">
		<img width=20 height=0>
		<img border=0 style="cursor:hand" src="../images/button/cancel.gif" onclick="window.close();">
	</td>
<tr height="40px">
	<td colspan=3 style="font-family:Arial, Helvetica, sans-serif;color:white" align=center>上海市电信公司信息世界分公司<br>&nbsp;&copy;All rights reserved by Shanghai Telecommunication company information world Branch</td></tr>
</table>
</form>

</body>
</html>
⌨️ 快捷键说明

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