📄 documentfilegd.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：待归档公文
%>

<!--#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
mRecordID=Request("RecordID")	'取得编号
'------------------------------------------------
'------------------------------------------------读入文档内容
  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 "该公文不存在!"
  	response.end
  else  '如果有记录则取记录参数
	'------------------------------------------------
	Pid	  = TbMainRs("DocumentID")'公文ID
	mRecordID = TbMainRs("RecordID")  '公文编号
	mTemplate = TbMainRs("Template")  '模板编号
	mFileType = TbMainRs("FileType")  '文件类型
	mHTMLPath = TbMainRs("HTMLPath")  '生成html文件页面路径及文件名
	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")	  '报送机关
	mDo_Advice	   = TbMainRs("Do_Advice")	  '附注
	mAuthor		   = TbMainRs("Author")		  '拟稿人
	mFileDate 	   = TbMainRs("FileDate")  	  '拟稿日期
	mDept 		   = TbMainRs("NiziDept")	  '拟稿部门
	mSign_Man 	   = TbMainRs("Sign_Man") 	  '签发人
	mSign_Date 	   = TbMainRs("Sign_Date")	  '签发日期
	mRegistration_Man  = TbMainRs("Registration_Man") '登记人
	mRegistration_Date = TbMainRs("Registration_Date")'登记日期
	'------------------------------------------------
    end if
	TbMainRs.Close
	Set TbMainRs=Nothing
%>

<html>
<head>
<title>公文办理</title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
<script src="../js/iweboffice_func.js" type="text/javascript"></script>
<script src="../js/front_chec.js"></script>
</head>

<body topmargin="1" leftmargin="1" >
<table width=98% class=tabletoolbar border=0 align=center>
	<tr valign=center><td align=left nowrap><img src="../images/icon_title.gif" align="absmiddle"> 公文归档　　<span class="style1">(安装文档编辑插件，请你在打开本页面的弹出窗口时，选择[是]按钮,才能正常运行。)</span></td>
	<td align=right valign=bottom nowrap>

	</td></tr>
</table>
<hr width=100% hight=1 >
<form name="webform" method="post" action="DocumentSavetoFile.asp">
<input type=hidden name=RecordID value="<%=mRecordID%>">
<input type=hidden name=Template value="<%=mTemplate%>">
<input type=hidden name=FileType value="<%=mFileType%>">
<input type=hidden name=EditType value="<%=mEditType%>">
<input type=hidden name=HTMLPath value="<%=mHTMLPath%>">
<input type=hidden name=Status value="<%=mStatus%>">


<br>
<br>
<table border=0 cellspacing='1' cellpadding='2' width=700 align=center class="tab">
  <tr>
    <td align="right" class="tdBottom">公文种类：</td>
    <td class="tdBottom">
      <input type=text name='DC_Doc_Sort' size='8' value="<%=htmlout(GetTableValue("tbioaOffice_Document_Sort","doc_sort","id",mDC_Doc_Sort))%>" class="inputreadonly" readonly>
      公文类型：<input type=text name='DocType' value="<%=mDocType%>" size=8 class="inputreadonly" readonly>
      <input  type="text" name='DocMod' size='8' value="<%=mDocMod%>" class="inputreadonly" readonly>
      公文紧急程度：
      <input type=text name='DC_Doc_Exigence' size='8' value="<%=mDC_Doc_Exigence%>" class="inputreadonly" readonly>
      公文密级：
      <input type=text name='DC_Doc_Security' size='8' value="<%=mDC_Doc_Security%>" class="inputreadonly" readonly>
    </td>
  </tr>
  <tr>
    <td align="right" class="tdBottom">公文文号：</td>
    <td class="tdBottom"><input type="text" name="DocFileNo" size="25" maxlength="15" value="<%=mDocFileNo%>" class="inputreadonly" readonly></td>
  </tr>
  <tr>
    <td  align="right" class="tdBottom">公文标题：</td>
    <td  class="tdBottom"><input type="text" name="Subject" size="80" maxlength="150" value="<%=mSubject%>" class="inputreadonly" readonly></td>
  </tr>
  <tr>
    <td align="right" class="tdBottom">主题词：</td>
    <td class="tdBottom"><input  type="text" name="MainTitle" size="80" maxlength="50" value="<%=mMainTitle%>" class="inputreadonly" readonly></td>
  </tr>
  <tr class="tdBottom">
    <td align="right" valign="top" class="tdBottom">摘要：</td>
    <td valign="top"><%=htmlout(mMemo)%></td>
  </tr>
  <tr>
    <td align=right class="tdBottom">类别目录:</td>
    <td class="tdBottom">
	<select id=Pid name=Pid>
		<%=pOptions2("tbioaArchives","name",0,0,"","Pid")%>
	</select>
    </td>
  </tr>
  <tr>
    <td align=right class="tdBottom">登记人：</td>
    <td class="tdBottom">
    	<input type=text name="File_Man" value="<%=session("realname")%>" class="inputreadonly" readonly>
    	登记日期：<input type=text name="File_Date" value="<%=date()%>" class="inputreadonly" readonly size="20" >
    	保存期限：<input type=text name="SaveYear" value="3" class="input" size="5">年
    </td>
  </tr>
  <tr>
    <td  class="tdBottom" colspan=2 align=center>
	<input type="submit" value="归档" class="button0" onmouseout=className="button0" onmouseover=className="button1">
	<input type="button" value="返回" class="button0" onmouseout=className="button0" onmouseover=className="button1" onclick="history.back()">
    </td>
  </tr>
</table>
</form>

</body>
</html>

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

<%
Function pOptions2(TableName,Field,ParentID,Selected,Heads,ParentField)
'递归下拉菜单(表名,字段名,选中字段ID,起始字段ID,分割头,存放上级栏目ID的字段名)-----
	set rs_department=Server.CreateObject("ADODB.RecordSet")
	sql="select * from "& TableName &" where "&ParentField&" = "& ParentID &" order by ID"
	rs_department.open sql,oConn,1,1
	while not rs_department.EOF '循环
		if Selected="" then Selected=0
		if rs_department("ID")= cint(Selected) then
			response.write "<option value='"&rs_department("ID")&"' selected>"& Heads & rs_department(Field)&"</option>" & vbcrlf
		else
			response.write "<option value='"&rs_department("ID")&"'>"& Heads & rs_department(Field)&"</option>" & vbcrlf
		end if
		Call pOptions2(TableName,Field,rs_department("ID"),Selected,Heads&"·",ParentField)
	rs_department.MoveNext: wend
	rs_department.close
End Function
%>
⌨️ 快捷键说明

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