📄 document_file_sc.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  '如果有记录则取记录参数
	'------------------------------------------------
	mRecordID = TbMainRs("RecordID")  '公文编号
	mStep	  = TbMainRs("Step")	  '流程号
	'---------------------------------
	mAuthor		   = TbMainRs("Author")	  	  '作者ID
	mFileDate	   = TbMainRs("FileDate")	  '建立日期
	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")	  '公文标题
	mDepartmentID	   = GetTableValue("tbioaUser","Department","ID",mAuthor) '作者部门ID
	mDepartment_Name   = GetTableValue("tbioaDepartment","Name","ID",mDepartmentID) '作者部门名
	'------------------------------------------------ 
    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>
<script language="javascript">
//检查是否必填
function require(form){
	return  checnull(form.FLH,"请填选择档案目录！")&&
		checnull(form.viewer,"请设置档案查询权限！") &&
		confirm('确定要收藏该条公文吗？');
}

function doSel_Cx(sCxqx){
	k=SelectUsers(sCxqx)
	if (k!="") {
		k=k.split("_")
		webform.viewer.value=k[1]
		webform.input_CXQX.value=k[0]
	}
}
 
function SelectUsers(RYBHLB){
 	k = showModalDialog("../Document_Files_Dep/SelectUsers.asp?yxrylb=" + RYBHLB, "", "dialogWidth:32em; dialogHeight:17em; center: Yes; scroll:No; resizable: No; status: No; help: No;")
 	if (k!="")
 	  return k
 	else
 	  return false
}
</script>
</head>

<body topmargin="10" leftmargin="10">
<table width=98% class=tabletoolbar border=0 align=center>
	<tr valign=center><td align=left nowrap><img src="../images/icon_title.gif" align="absmiddle"> 公文收藏</td>
	<td align=right valign=bottom nowrap>
	</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<form name="webform" method="post" action="Document_File_Sc_Save.asp" OnSubmit="return require(this)">
<input type=hidden name=RecordID value="<%=mRecordID%>">
<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">
	<select id=FLH name=FLH>
		<%=pOptions2("tbioaDocument_Sort_Dep","LMMC",0,0,"","SJFLH")%>
	</select>
    </td>  
  </tr>
  <tr>
    <td width="100" class="td1" align="right" valign="_top">查询权限：
      <img src="../images/selectman.gif" border="0" onclick="doSel_Cx(webform.input_CXQX.value)" style="cursor:hand">
    </td>
    <td class="td1"><textarea rows="7" name="viewer" cols="80" class="textarea" readonly></textarea>
      <input type=hidden name="input_CXQX" value="">
    </td>
  </tr>
  <tr>
    <td align=right class="tdBottom">拟制人：</td>
    <td class="tdBottom">
    	<input type=text name="Author" value="<%=GetUserName(mAuthor)%>" class="inputreadonly" readonly>&nbsp;
    	拟制部门：<input type=text name="Author_Department" value="<%=mDepartment_Name%>" class="inputreadonly" readonly>
    	拟制时间：<input type=text name="FileDate" value="<%=mFileDate%>" class="inputreadonly" readonly size="18" >
    </td>  
  </tr>
  <tr>
    <td align=right class="tdBottom">收藏人：</td>
    <td class="tdBottom">
    	<input type=text name="File_Man_Name" value="<%=session("realname")%>" class="inputreadonly" readonly>
    	<input type=hidden name="File_Man" value="<%=LoginID%>" class="inputreadonly" readonly>
    	收藏时间：<input type=text name="File_Date" value="<%=now()%>" class="inputreadonly" readonly size="20">
    </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_sort=Server.CreateObject("ADODB.RecordSet")
	sql="select * from "& TableName &" where "&ParentField&" = '"& ParentID &"' and DEPID="&Session("DepID")&" order by FLH"
	rs_sort.open sql,oConn,1,1
	while not rs_sort.EOF '循环
		if Selected="" then Selected="0"
		
		'取得目录管理权限
		TmpSQL="select GDQX from "&TableName&" where FLH='"& rs_sort("FLH") &"' and DEPID="&Session("DepID")
		set TmpRS=Server.CreateObject("ADODB.RecordSet")
		TmpRS.open TmpSQL,oconn,1,1
		if TmpRS.eof then
			Sort_Manage=false
		else
			Sort_Manage=instr(","&TmpRS("GDQX")&"," , ","&LoginID&",")
		end if
		TmpRS.close
		
		if Sort_Manage then
			if rs_sort("FLH")= Selected then 
				response.write "<option value='"&rs_sort("FLH")&"' selected>"& Heads & rs_sort(Field)&"</option>" & vbcrlf
			else
				response.write "<option value='"&rs_sort("FLH")&"'>"& Heads & rs_sort(Field)&"</option>" & vbcrlf
			end if
		end if
		
		Call pOptions2(TableName,Field,rs_sort("FLH"),Selected,Heads&rs_sort(Field)&"/",ParentField)
	rs_sort.MoveNext: wend
	rs_sort.close
End Function
%>
⌨️ 快捷键说明

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