document_file_resave.asp

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

<%
'功能：取消报表归档
%>

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

<%
  mRecordID=request("RecordID")	'文档编号
  '------------------------------------------------
  sqlstr="delete tbioaDocument_File where RecordID='"&mRecordID&"'"
  oconn.execute sqlstr
  sqlstr="update tbioaOffice_Document set step='GD' where step='YG' and RecordID='"&mRecordID&"'"
  oconn.execute sqlstr
  response.write "<script language=javascript> history.go(-2) </SCRIPT>"
%>