doc_d.asp

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

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

' 　创建人 : 周秋舫
' 　日　期 : 2002-08-15
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 公文登记，并上载公文／附件文件到数据库
' 　版　本 :
'************************************************************************************************
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/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

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

<%
'' 检查已经登录并在线
call CheckSecurity()

'' 只有公文管理员或办公室主任才能访问本页
if (not IsDocAdmin) and (not IsOfficer) then
	Response.Clear
	Response.Redirect("../common/error.asp?error=对不起，您没有权限访问本页！&")
	Response.end
end if

'' 检查输入参数
dim pDocId		: pDocId = GetParam("doc_id")
if IsEmpty(pDocId) then
	Response.Clear
	Server.Transfer("../common/error.asp")
	Response.end
end if

dim oCn, cn
set oCn = New CDBConnection
oCn.Connect(dbLocal)
set cn = oCn.m_DBConn

'' 删除公文所有相关的附件信息
cn.Execute("delete from t_document where doc_id = " & ToSQL(pDocId, "Number"))

'' 删除公文信息
cn.Execute("delete from t_doc_attachment where doc_id = " & ToSQL(pDocId, "Number"))
%>

<script language="javascript">

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

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

</script>