document_fwnz_del.asp

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

<%
'功能：发文拟制删除
'作者：展亮
'日期：2003-12-18 9:35
%>

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

<%
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
sRecordID=Request("RecordID") '公文编号
'------------------------------------------------
	set rs=server.CreateObject("adodb.recordset")
	set fs=server.CreateObject("Scripting.FileSystemObject")
	oConn.begintrans
	rs.Open "select Author,Step from tbioaOffice_Document where RecordID='" & sRecordID & "'",oConn,1,1
	if rs.EOF then
		rs.Close
		set rs=nothing
		oConn.RollBackTrans
		oConn.close
		set oConn=nothing
		call MsgOut("该公文不存在，可能已被删除","javascript:history.back()",1)
		Response.end
	end if
	if cstr(rs("Author"))<>LoginID or rs("Step")<>"FW" then
		rs.Close
		set rs=nothing
		oConn.RollBackTrans
		oConn.close
		set oConn=nothing
		call MsgOut("该公文已开始办理,不能删除","javascript:history.back()",1)
		Response.end
	end if
	rs.Close

	'删除附件
	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 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 & "'"

	set fs=nothing
	oConn.committrans
	set rs=nothing
	oConn.close
	set oConn=nothing
%>

<%=SearchScrip(Search)%>
<script language="javascript">history.back()</script>

<%'释放对象变量
ooConn.close
set ooConn=nothing
%>