documentsave.asp

OFFICE办公自动化

<%
'功能：保存公文
'作者：展亮
'日期：2004-6-4 15:33
%>

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

<%
Response.Buffer=true
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------
mRecordID = request.form("RecordID")'公文编号
mTemplate = request.form("Template")'模板编号
mFileType = request.form("FileType")'文件类型
mHtmlPath = request.form("HtmlPath")'生成html文件页面路径及文件名
mAuthor   = request.form("Author")  '作者
mFileDate = request.form("FileDate")'建立日期
mStatus   = request.form("Status")  '文件状态
mStep	  = request.form("Step")    '流程号
'--------------------------------------------
mDocFileNo = request.form("DocFileNo")		 	'公文文号
mDocType = request.form("DocType")	     	 	'内外部公文
mDocMod = request.form("DocMod")			'收发文
mDC_Doc_Sort 	= request.form("DC_Doc_Sort")	  	'公文种类
mDC_Doc_Security = request.form("DC_Doc_Security")	'公文密级
mDC_Doc_Exigence = request.form("DC_Doc_Exigence")	'公文紧急程度
mSubject 	= request.form("Subject")		'公文标题
mMainTitle = request.form("MainTitle")		  	'主题词
mMemo = request.form("Memo")			  	'摘要
mPSend_Dept = request.form("PSend_Dept")	  	'发文单位
mMSend_Dept = request.form("MSend_Dept")		'主送单位
mCSend_Dept = request.form("CSend_Dept")		'抄送机关
mCReport_Dept = request.form("CReport_Dept")		'报送机关
mMarker_ID = request.form("Marker_ID")	  		'签字人
mReceive_Dept = request.form("Receive_Dept")		'收文机关
mDo_Advice = request.form("Do_Advice")			'附注
mNiziMan = request.form("NiziMan")			'拟稿人
mNiziDate = request.form("NiziDate")			'拟稿日期
mNiziDept = request.form("NiziDept")			'拟稿部门
mSign_Man = request.form("Sign_Man") 			'签发人
mSign_Date = request.form("Sign_Date") 			'签发日期
mRegistration_Man = request.form("Registration_Man")	'登记人
mRegistration_Date = request.form("Registration_Date")  '登记日期
'------------------------------------------------
'response.write mDC_Doc_Sort
Sql="SELECT * from tbioaOffice_Document Where RecordID='" + mRecordID + "'"
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,oconn,1,3
if Rs.eof then
	Rs.addnew
end if

'--------------------------------------------
if mRecordID <> "" then Rs("RecordID")=mRecordID			    '公文编号
if mTemplate <> "" then Rs("Template")=mTemplate			    '模板编号
if mFileType <> "" then Rs("FileType")=mFileType			    '文件类型
if mHtmlPath <> "" then Rs("HtmlPath")=mHtmlPath			    '生成html文件页面路径及文件名
if mAuthor <> "" then Rs("Author")=mAuthor				    '拟稿人
if mFileDate <> "" then Rs("FileDate")=mFileDate			    '拟稿日期
Rs("Status")="NONE"							    '文件状态
Rs("LockUserID")=0							    '锁定人
Rs("LockTime")=""							    '锁定时间
if mStep <> "" then Rs("Step")=mStep  					    '流程号
if mDocFileNo <> "" then Rs("DocFileNo") = mDocFileNo		 	    '公文文号
if mDocType <> "" then Rs("DocType")=mDocType	     	 		    '内外部公文
if mDocMod <> "" then Rs("DocMod")=mDocMod	     	 		    '收发文
if mDC_Doc_Sort <> "" then  Rs("DC_Doc_Sort")=mDC_Doc_Sort	  	    '公文种类
if mDC_Doc_Security <> "" then Rs("DC_Doc_Security")=mDC_Doc_Security	    '公文密级
if mDC_Doc_Exigence <> "" then RS("DC_Doc_Exigence")=mDC_Doc_Exigence	    '公文紧急程度
if mSubject <> "" then Rs("Subject")=mSubject				    '公文标题
if mMainTitle <> "" then Rs("MainTitle")=mMainTitle	   		    '主题词
if mMemo <> "" then Rs("Memo")=mMemo			  		    '摘要
if mPSend_Dept <> "" then Rs("PSend_Dept")=mPSend_Dept	  		    '发文单位
if mMSend_Dept <> "" then Rs("MSend_Dept")=mMSend_Dept			    '主送单位
if mCSend_Dept <> "" then  Rs("CSend_Dept")=mCSend_Dept			    '抄送机关
if mCReport_Dept <> "" then Rs("CReport_Dept")=mCReport_Dept		    '报送机关
if mMarker_ID <> "" then Rs("Marker_ID")=mMarker_ID			    '签字人
if mReceive_Dept <> "" then Rs("Receive_Dept")=mReceive_Dept		    '收文机关
if mDo_Advice <> "" then Rs("Do_Advice")=mDo_Advice			    '附注
if mNiziMan <> "" then Rs("NiziMan")=mNiziMan				    '拟稿人
if mNiziDate <> "" then Rs("NiziDate")=mNiziDate			    '拟稿日期
if mNiziDept <> "" then Rs("NiziDept")= mNiziDept			    '拟稿部门
if mSign_Man <> "" then Rs("Sign_Man")=mSign_Man 			    '签发人
if mSign_Date <> "" then Rs("Sign_Date")= mSign_Date			    '签发日期
if mRegistration_Man <>"" then Rs("Registration_Man")=mRegistration_Man	    '登记人
if mRegistration_Date <>"" then Rs("Registration_Date")=mRegistration_Date  '登记日期
Rs.Update
Rs.close
Set Rs = Nothing

%>

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

<%'释放对象变量
<!--#include file="../inc/conn_close.asp"-->
%>