doc_delete_action.asp

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

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

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

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

<%
'' 检查已经登录并在线
call CheckSecurity()
if hasright(ID_EQUIPMENT) < RIGHT_WRITE  then
	Response.Write _
			"<script language=""javascript"">" & vbLF & _
			"		alert(""对不起，您没有删除维保附件的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
			"</script>" & vbLF

%>
<script language="javascript">

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

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

</script>
<%
	Response.end
end if

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

	dim sSQL, conn
	Set conn = DBConnection

	sSQL = "delete from t_maintain_attachment where attach_id = " & ToSQL(pAttachId, "Number")
	conn.Execute(sSQL)
	Disconnect(conn)
%>


<script language="javascript">

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

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

</script>