document_file_save.asp

OFFICE办公自动化

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

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

<%
  mRecordID=request.form("RecordID")	'文档编号
  mFile_Man=request.form("File_Man")	'归档人ID
  mFile_Date=request.form("File_Date")  '归档日期
  mFile_Save=request.form("File_Save")  '保存时间
  mFLH=request.form("FLH")		'报表分类号
  mCXQXBZ=request.form("input_CXQXBZ")	'报表查询权限标志
  mCXQX=request.form("input_CXQX")	'报表查询权限
  Response.Buffer=true
  '------------------------------------------------
  mSql="Select * From tbioaDocument_File Where RecordID='"& mRecordID & "'"
  Set Rs=Server.CreateObject("ADODB.RecordSet")
  Rs.Open mSql,oConn,3,3
  	'--------------------------------------------
  	if mRecordID <> "" then Rs("RecordID")=mRecordID			    '报表编号
  	if mFLH<>"" then Rs("FLH")=mFLH						    '归档分类
  	if mFile_Man<>"" then Rs("File_Man")=mFile_Man				    '归档人ID
  	if mFile_Date<>"" then Rs("File_Date")=mFile_Date			    '归档时间
  	if mFile_Save<>"" then Rs("File_Save")=mFile_Save			    '保存时间
	if mCXQXBZ <> "" then Rs("CXQXBZ")=mCXQXBZ				    '报表查询权限标志
	if mCXQX <> "" then Rs("CXQX")=mCXQX					    '报表查询权限
  Rs.Update
  Rs.close
  Set Rs = Nothing
  sqlstr="update tbioaOffice_Document set step='YG' where step='GD' and RecordID='"&mRecordID&"'"
  oconn.execute sqlstr
  response.write "<script language=javascript> history.go(-2) </SCRIPT>"
%>