document_file_hf.asp

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

<%
'功能：档案信息恢复为待归档
'参数：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  '开始事务
	for each sRecordID in Request.Form("sign_da")
		oConn.execute "update tbioaOffice_Document set step='GD' where step='YG' and RecordID='" & sRecordID & "'"
	next
oConn.CommitTrans '事务结束
oConn.close
set oConn=nothing
%>

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