document_file_xh.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 62 行

<%
'功能：档案信息销毁
'参数：request.form("addedit_subed")="true"#表单提交;
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
sign_da=Request.Form("sign_da")'删除公文ID集

'------------------------------------------------删除文档
oConn.BeginTrans  '开始事务
	set fs=server.CreateObject("Scripting.FileSystemObject")
	set rs=server.CreateObject("ADODB.recordset")
	for each sRecordID in Request.Form("sign_da")
		'删除附件
		rs.Open "select * from tbioaOffice_Accessory " _
				& "where agreementid='" & sRecordID & "' " _
				,oConn,1,1
		do while not rs.EOF
			if fs.FileExists(server.MapPath("./Files/" & rs("filename"))) then
				fs.DeleteFile server.MapPath("./Files/" & rs("filename"))
			end if
			rs.MoveNext
		loop
		rs.Close
		oConn.execute "delete from tbioaOffice_Accessory where agreementid='" & sRecordID & "'"

		'删除公文记录
		oConn.execute "delete from tbioaOffice_Document where RecordID='" & sRecordID & "'"
		oConn.execute "delete from tbioaOffice_Document_File where RecordID='" & sRecordID & "'"

		'删除公文收藏记录
		oConn.execute "delete from tbioaDocument_File_Dep where RecordID='" & sRecordID & "'"

		'删除公文办理情况
		oConn.execute "delete from tbioaOffice_Flow_Blqk where RecordID='" & sRecordID & "'"

		'删除工作点定义情况
		oConn.execute "delete from tbioaOffice_FlowPoint where RecordID='" & sRecordID & "'"

		'删除工作流定义情况
		oConn.execute "delete from tbioaOffice_Flow where RecordID='" & sRecordID & "'"

		'删除印章记录
		oConn.execute "delete from tbioaOffice_Document_Signature where RecordID='" & sRecordID & "'"
	next
	set fs=nothing
oConn.CommitTrans '事务结束
oConn.close
set oConn=nothing
%>

<script language="javascript">
	history.go(-1);
</script>