📄 复件 (2) document_fwnz_add.asp

📁 OFFICE办公自动化
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'功能：公文编辑
'作者：展亮
'日期：2003-12-27 16:28
%>

<!--#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

  Response.buffer=true
  mScriptName="Document_Fwnz_Add.asp"
  mServerName="../inc/OfficeServer.asp"
  mClientName="iWebOffice2003.ocx#version=6,4,0,4"
  mHttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  mHttpUrl=Left(mHttpUrl,Len(mHttpUrl)-Len(mScriptName))
  mServerUrl=mHttpUrl & mServerName
  mClientUrl=mHttpUrl & mClientName

  mRecordID=Request("RecordID")	'取得编号
  mTemplate=Request("Template")	: if ( mTemplate="") then mTemplate="" ' '取得模板编号
  mFileType=Request("FileType")	: if ( mFileType="") then mFileType=".doc" '取得类型,默认为.doc文档
  mEditType=Request("EditType") : mEditType="1"	'取得模式, 0显示 1起草 2批改 3审核
  mUserName=session("RealName")	'取得用户名
  FJZT="2" '附件状态设为管理
'------------------------------------------------
'------------------------------------------------读入文档内容
  mSql="Select * From tbioaOffice_Document Where RecordID='"+ mRecordID + "'"
  Set TbMainRs=Server.CreateObject("ADODB.RecordSet")
  TbMainRs.Open mSql,oConn,1,3

  If TbMainRs.Eof then '如果无文档记录则新建
	'取得唯一值(mRecordID)
        mRecordID=Session.SessionID&minute(now())&Second(now())	'保存的是文档的编号，通过该编号，可以在里找到所有属于这条纪录的文档
        mTemplate=mTemplate
        mSubject=""
        mAuthor=LoginID
        mDept=Session("DepID")
        mFileDate=CDate(now())
        mStatus="NONE" '起草
        mFileType=mFileType
        mHTMLPath=""
  else  '如果有记录则取记录参数
	'------------------------------------------------
	Pid	  = TbMainRs("DocumentID")'公文ID
	mRecordID = TbMainRs("RecordID")  '公文编号
	mTemplate = TbMainRs("Template")  '模板编号
	mFileType = TbMainRs("FileType")  '文件类型
	mHTMLPath = TbMainRs("HTMLPath")  '生成html文件页面路径及文件名
	mAuthor	  = TbMainRs("Author")    '作者
	mFileDate = TbMainRs("FileDate")  '建立日期
	mStatus   = TbMainRs("Status")    '文件状态
	mStep	  = TbMainRs("Step")	  '流程号
	'---------------------------------
	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")	  '报送机关
	mReceive_Dept	   = TbMainRs("Receive_Dept")	  '收文机关
	mMarker_ID	   = TbMainRs("Marker_ID")	  '签字人
	mDo_Advice	   = TbMainRs("Do_Advice")	  '附注
	mNiziMan	   = TbMainRs("NiziMan")	  '拟稿人
	mNiziDate 	   = TbMainRs("FileDate")  	  '拟稿日期
	mNiziDept 	   = TbMainRs("NiziDept")	  '拟稿部门
	mSign_Man 	   = TbMainRs("Sign_Man") 	  '签发人
	mSign_Date 	   = TbMainRs("Sign_Date")	  '签发日期
	mRegistration_Man  = TbMainRs("Registration_Man") '登记人
	mRegistration_Date = TbMainRs("Registration_Date")'登记日期
	'------------------------------------------------
	TbMainRs.Close
	Set TbMainRs=Nothing

	if cstr(mAuthor)<>cstr(LoginID) then
		call MsgOut("你无权查阅该公文","javascript:history.back()",1)
	end if

	'设置为查看属性
	if mStep<>"FW" then
		mEditType=0	'0 显示
		mDisabled="class='inputreadonly' disabled"
		FJZT="1" '附件状态设为查看
	end if
  end if
'------------------------------------------------
%>

<html>
<head>
<title>发文拟制</title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<script src="../js/iweboffice_func.js" type="text/javascript"></script>
<script src="../js/front_chec.js"></script>
<script src="../js/user_select.js"></script>
<script language="javascript">
//检查是否必填
function require(form){
	return checnull(form.Subject,'请填写标题！')
}

function Load(type){
//读入文档
  try{
  webform.WebOffice.WebUrl="<%=mServerUrl%>";
  webform.WebOffice.RecordID="<%=mRecordID%>";
  if (type==".doc"){
  	webform.WebOffice.FileName="<%=mRecordID%>.doc";
  	webform.WebOffice.FileType=".doc";
  }
  else {
  	webform.WebOffice.FileName="<%=mRecordID%>.xls";
  	webform.WebOffice.FileType=".xls";
  }
  webform.WebOffice.EditType="<%=mEditType%>";
  webform.WebOffice.UserName="<%=mUserName%>";
  webform.WebOffice.WebOpen();  	//打开该文档
  StatusMsg(webform.WebOffice.Status);
  toolbar.location="../inc/toolbar.asp?Status=<%=mEditType%>&Type="+type+"&DYZWBB=1"
  }catch(e){}
}

function WebSaveAsHtml(){
//保存为Html
  try{
    if (webform.WebOffice.WebSaveAsHtml())
    {
      webform.HTMLPath.value="HTML/<%=mRecordID%>.htm";
    }
    StatusMsg(webform.WebOffice.Status);
  }catch(e){}
}

function WindowOpen(strURL){
  DocumentWin = window.open(strURL,"","top=300,left=200,width=350,height=100,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no,status=no");
  DocumentWin.focus();
}

function selectTemp(form){
	TempLateName=showModalDialog("../inc/SelectTemplate.asp", "", "dialogWidth:32em; dialogHeight:10em; center: Yes; scroll:No; resizable: No; status: No; help: No;");
	if (TempLateName) {
		UnLoad()
		form.TempLate.value=TempLateName.split("|")[0];
		doctype=TempLateName.split("|")[1];
		form.TempLateName.value=TempLateName.split("|")[2];
		form.FileType.value=doctype;
		webform.WebOffice.Template=form.TempLate.value;
		Load(doctype);
	}
}
function selectDep(form){
	Deplist=showModalDialog("../inc/Select_Dep.asp", "", "dialogWidth:32em; dialogHeight:17em; center: Yes; scroll:No; resizable: No; status: No; help: No;");
	if (Deplist!='') {
		form.value=Deplist.split("|")[1];
	}
}

function WindowResize()
{
window.moveTo(0,0)
window.resizeTo(screen.availWidth,screen.availHeight);
}
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -