document_gwbl_qxcx.asp

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

<%
'功能：公文办理列表
%>

<!--#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
RecordID=Request.QueryString("RecordID")
'------------------------------------------------
if RecordID="" then%>
<script language="vbscript">
 alert("缺少必要参数，请返回")
 history.back(0)
</script>
<%oConn.close
  set oConn=nothing
  Response.End
else
  sql="select gzdbh from tbioaOffice_Flow_Blqk where RecordID='"&RecordID&"' and blxh=(select max(blxh) from tbioaOffice_Flow_Blqk where RecordID='"&RecordID&"')"
  set rs=createobject("adodb.recordset")
  rs.Open sql,oConn,1,1
  if not rs.EOF and not rs.BOF then
     gzdbh=rs("gzdbh")
  end if
  rs.Close
  set rs=nothing
  sql="update tbioaOffice_Document set Status='NONE', LockUserID=0, LockTime='', cxblxh=0 ,step='"&gzdbh&"' where RecordID='"&RecordID&"'"
  oConn.execute(sql)
end if
%>

<%oConn.close
  set oConn=nothing
%>

<script language=javascript>
  opener.location.reload();
  window.close();
</script>