documentsavetofile.asp

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

<%
'功能：公文归档
%>

<!--#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")	'归档名称
  mFile_Date=request.form("File_Date")  '归档日期
  mSaveYear=request.form("SaveYear")    '保存时间（年）
  mPid=request.form("Pid"):if mPid="" then mPid=0		'公文分类号
  Response.Buffer=true
  mSql="Select * From tbioaOffice_Document Where RecordID='"+ mRecordID + "'"
  Set TbMainRs=Server.CreateObject("ADODB.RecordSet")
  TbMainRs.Open mSql,oConn,1,3

  If TbMainRs.Eof then '如果无文档记录则退出
  	response.write msql
  	response.write "该公文不存在!"
  	response.end
  else  '如果有记录则取记录参数
	'------------------------------------------------
	Pid	  = TbMainRs("DocumentID")'公文ID
	mRecordID = TbMainRs("RecordID")  '公文编号
	mTemplate = TbMainRs("Template")  '模板编号
	mFileType = TbMainRs("FileType")  '文件类型
	mHTMLPath = TbMainRs("HTMLPath")  '生成html文件页面路径及文件名
	'---------------------------------
	mDocFileNo	   = TbMainRs("DocFileNo")	  '公文文号
	mDocType 	   = TbMainRs("DocType")	  '内外部公文
	mDocMod		   = TbMainRs("DocMod")           '收发文
	mDC_Doc_Sort	   = TbMainRs("DC_Doc_Sort")	  '公文种类
	mDC_Doc_Security   = TbMainRs("DC_Doc_Security")  '公文密级
	mDC_Doc_Exigence   = TbMainRs("DC_Doc_Exigence")  '公文紧急程度
	mSubject	   = TbMainRs("Subject")	  '公文标题
	mMainTitle	   = TbMainRs("MainTitle")	  '主题词
	mMemo		   = TbMainRs("Memo")		  '摘要
	mPSend_Dept	   = TbMainRs("PSend_Dept")	  '发文单位
	mMSend_Dept	   = TbMainRs("MSend_Dept")	  '主送单位
	mCSend_Dept	   = TbMainRs("CSend_Dept")	  '抄送机关
	mCReport_Dept	   = TbMainRs("CReport_Dept")	  '报送机关
	mDo_Advice	   = TbMainRs("Do_Advice")	  '附注
	mAuthor		   = TbMainRs("Author")		  '作者
	mFileDate 	   = TbMainRs("FileDate")  	  '入库日期
	mNiziDept 	   = TbMainRs("NiziDept") 	  '拟稿部门
	mNiziMan	   = TbMainRs("NiziMan")	  '拟制人
	mNiziDate	   = TbMainRs("NiziDate")	  '拟制日期
	mSign_Man 	   = TbMainRs("Sign_Man") 	  '签发人
	mSign_Date 	   = TbMainRs("Sign_Date")	  '签发日期
	mRegistration_Man  = TbMainRs("Registration_Man") '登记人
	mRegistration_Date = TbMainRs("Registration_Date")'登记日期
	'------------------------------------------------
	mSql="Select * From tbioaDocumentFile Where documentid is null"
	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.Open mSql,oConn,3,3
	Rs.Addnew
		'--------------------------------------------
		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 mStatus <> "" then Rs("Status")=mStatus				    '文件状态
		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 mDo_Advice <> "" then Rs("Do_Advice")=mDo_Advice			    '附注
		if mAuthor <> "" then Rs("Author")=mAuthor				    '拟稿人
		if mFileDate <> "" then Rs("FileDate")=mFileDate			    '拟稿日期
		if mNiziDept <> "" then Rs("NiziDept")= mNiziDept			    '拟稿部门
		if mNiziMan <>"" then Rs("NiziMan") = mNiziMan				    '拟稿人
		if mNiziDate <>"" then Rs("NiziDate") = mNiziDate                           '拟稿日期
		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  '登记日期
		if mFile_Man<>"" then Rs("File_Man")=mFile_Man				    '归档人
		if mFile_Date<>"" then Rs("File_Date")=mFile_Date			    '归档时间
		if mSaveYear<>"" then Rs("SaveYear")=mSaveYear				    '保存时间
		if mPid<>0 then Rs("Pid")=mPid						    '归档分类
		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> alert('已成功归档！'); window.location='DocumentFileList.asp'; </SCRIPT>"
    end if
%>