edoc_delete_action.asp

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

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

' 　创建人 : 周秋舫
' 　日　期 : 2002-08-15
' 修改历史 :蔡晓燕
'   2002年11月18日 ****** 修改内容:**************************************************
' 功能描述 : 从数据库删除附件内容
'	zhouyun : file
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

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

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

	dim gCid :		gCid = GetParam("cid") 
	if CStr(gCid) = "" then
		Response.clear
		Server.Transfer("../include/error.asp")
		Response.end
	end if

	dim sSQL, conn
	Set conn = DBConnection

	sSQL = "delete from t_equip_file where contract_id = " & ToSQL(gCid, "Number")
	conn.Execute(sSQL)
	Disconnect(conn)
%>


<script language="javascript">

// 公文属性修改页面被刷新
if (typeof(window.opener) != 'undefined')
	window.opener.location.reload();

// 公文上传页面被关闭
window.close();

</script>