documentlock_m.asp

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

<%
'功能：锁定文档
%>

<!--#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
RecordID=request("RecordID") '公文ID
'------------------------------------------------
'------------------------------------------------修改记录
sql="UPDATE tbioaOffice_Document SET Status='EDIT', LockUserID="&LoginID&", LockTime='"&now()&"' WHERE RecordID='"&RecordID&"'"
response.write sql
oConn.Execute sql
'------------------------------------------------
%>

<script>parent.Main.location.reload();</script>

<%'释放对象变量
oConn.close
%>