📄 doc_a.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: doc_a.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司

' 　创建人 : 周秋舫
' 　日　期 : 2002-08-15
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 公文登记，并上载公文／附件文件到数据库
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

<!-- #include file="../common/commonpage.inc" -->

<%
'' 检查已经登录并在线
call CheckSecurity()

'' 只有公文管理员或办公室主任才能访问本页
if (not IsDocAdmin) and (not IsOfficer) then
	Response.Clear
	Response.Redirect("../common/error.asp?error=对不起，您没有权限访问本页！&")
	Response.end
end if
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../common/common.css" type="text/css">
<style type="text/css">
input	{color:blue}
</style>

<!-- 日历 -->
<IFRAME style="display:none;position:absolute;width:148;height:194;z-index=100" ID="CalFrame" MarginHeight=0 MarginWidth=0 noresize frameborder=0 scrolling=no src="../common/cal/calendar.htm"></IFRAME>
<script language="javascript" src="../common/cal/calendar.js"></script>
<script for=document event="onclick()">
<!--
document.all.CalFrame.style.display="none";
//-->
</script>
<!-- 日历 -->

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../images/bg/bg0.jpg">
<br>

<%
Response.Write OuterTableHeader
Response.Write HeaderWithMenu
Response.Write InnerTableHeader
'********************************************************************************************************
' 主体从这里开始
'-------------------------------------------------------------------------------------------------------------------------------------------------
%>
<form name="FormUploadDoc" method="post" enctype="multipart/form-data" action="savetodb.asp">
<table width=600 align=center border=0 cellspacing=1 cellpadding=3 bgcolor="#e0e0e0" style="table-layout:fixed;border:1px solid navy">
<tr style="display:none">
	<td width=220></td>
	<td width=200></td>
	<td width="*"></td>
	</tr>
<tr bgcolor=navy style="color:white;font-weight:600"><td align=center colspan=3>公　文　信　息　登　记</td></tr>
<tr bgcolor=white>
	<td>&nbsp;公文类型：<select name="doc_type_id" style="width:86px">
				<%=selectOptions(dbLocal, "t_doc_type", "type_id", "type_desc", "", "")%></select></td>
	<td>&nbsp;紧急程度：<select name="doc_urgent_level" style="width:86px">
				<%=selectOptions(dbLocal, "t_doc_urgent", "urgent_level", "urgent_desc", "", "")%></select></td>
	<td>&nbsp;秘密程度：<select name="doc_secret_level" style="width:86px">
				<%=selectOptions(dbLocal, "t_doc_secret", "secret_level", "secret_desc", "", "")%></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;公文文件：<input type="file" name="content" size=72></td></tr>
<tr bgcolor=white>
	<td colspan=2>&nbsp;公文字号：<input type="text" name="doc_number" size=53 maxlength=25></td>
	<td colspan=1>&nbsp;印发日期<%=DrawCal("", date, "doc_sent_date", "dateimg1")%></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;关 键 字：<input type="text" name="doc_keyword" size=83 maxlength=128></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;抄报人员：<input type="text" name="doc_report_person" size=83 maxlength=128></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;抄送人员：<input type="text" name="doc_send_person" size=83 maxlength=128></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;发文单位：<input type="text" name="doc_sender" size=83 maxlength=128></td></tr>
<tr bgcolor="#eeeeee">
	<td colspan=3 align=center style="font-weight:600">上　传　公　文　附　件</td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;附 件 一：<input type="file" name="attach_1" size=72></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;附 件 二：<input type="file" name="attach_2" size=72></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;附 件 三：<input type="file" name="attach_3" size=72></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;附 件 四：<input type="file" name="attach_4" size=72></td></tr>
<tr bgcolor=white>
	<td colspan=3>&nbsp;附 件 五：<input type="file" name="attach_5" size=72></td></tr>
<tr height=30 bgcolor=white>
	<td colspan=3 align=center>
	<input type="image" name="Enter" src="../images/button/submit.gif" style="border-width:0">
	<img border=0 width=20 height=0>
	<img border=0 src="../images/button/clear.gif" onclick="javascript:FormUploadDoc.reset();">
	<img border=0 width=20 height=0>
	<img border=0 src="../images/button/return.gif" onclick="javascript:history.go(-1);"></td></tr>

</table>
</form> 


<!-- 页面链接 -->
<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>
<tr height=10><td width=600><img src="../images/bg/line.gif" width=600 height=3></td></tr>
<tr height=20><td width=600>
	<img src="../images/goto.gif">&nbsp;<a href="doc_l.asp">公文查询列表</a></td></tr>
</table>

<%
Response.Write InnerTableTailer
Response.Write Footer
Response.Write OuterTableTailer
%>

</body>
</html>
⌨️ 快捷键说明

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