file_d.asp

物业管理和办公自动化系统

<%
'************************************************************************************************
' 文件名: file_d.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司

' 　创建人 : 周秋舫
' 　日　期 : 2002-08-16
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 删除文件
' 　版　本 :
'************************************************************************************************
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" -->

<!-- #include file="../common/commonpage.inc" -->

<%
call CheckSecurity()

dim iEmpSerial	: iEmpSerial = GetEmpSerial
dim pFileSerial	: pFileSerial = GetParam("serial")
if IsEmpty(pFileSerial) then
	Response.Clear
	Server.Transfer("../common/error.asp")
	Response.end
end if

dim sSQL
sSQL = "delete from t_files where serial = " & pFileSerial & " and emp_serial = " & iEmpSerial
call ExecuteSQL(dbLocal, sSQL)
%>

<script language="javascript">

// 文件列表页面被刷新
if (typeof(window.opener.opener) != 'undefined')
	window.opener.opener.location.reload();

// 文件属性页面被关闭
if (typeof(window.opener) != 'undefined')
	window.opener.close();

// 文件删除页面被关闭
window.close();

</script>