📄 doc_e.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" -->

<!-- #include file="doc_p.inc" -->
<!-- #include file="doc_e.inc" -->

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

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

'' 检查输入参数
dim pDocId		: pDocId = GetParam("doc_id")
if IsEmpty(pDocId) then
	Response.Clear
	Server.Transfer("../common/error.asp")
	Response.end
end if

'********************************************************************************************************
' 如果是提交，则调用函数UpdateTask()更新数据库
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
	call UpdateDocInfor()
end if

'' **********************************************************************************
'' 查询获取相应的公文信息
'' -------------------------------------------------------------------------------------------------------------------
dim iDocTypeId, iDocUrgentLevel, iDocSecretLevel
dim sDocTypeDesc, sDocUrgentDesc, sDocSecretDesc
dim sDocSubject, sDocNumber, sDocKeyword
dim sDocReportPerson, sDocSendPerson, sDocSender, sDocSentDate, sDocRegPerson, sDocRegDate
dim iDocAttachId1, iDocAttachId2, iDocAttachId3, iDocAttachId4, iDocAttachId5
dim sDocAttachName1, sDocAttachName2, sDocAttachName3, sDocAttachName4, sDocAttachName5

call GetDocInfor()

'' **********************************************************************************
'' 查询获取公文相应的附件信息
'' -------------------------------------------------------------------------------------------------------------------
dim sDocAttachment	: sDocAttachment = DocAttachInfor()
%>

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

<!-- 日历 -->
<script language="javascript">
function DeleteConfirm(doc_id)
{
	if (confirm("您确认要删除本公文信息？\n\n信息一旦删除，将无法恢复！") == true)
		this.location.href="doc_d.asp?doc_id=" + doc_id + "&";
}
 </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="FormUpdateDoc" method="post" action="doc_e.asp">
<input type="hidden" name="doc_id" value="<%=pDocId%>">
<table width=600 align=center border=0 cellspacing=1 cellpadding=5 bgcolor=silver style="table-layout:fixed">
<tr style="display:none">
	<td width=220></td>
	<td width=200></td>
	<td width="*"></td>
	</tr>
<tr height=25 bgcolor=navy style="color:white;font-weight:600"><td align=center colspan=3>编　辑　公　文　信　息</td></tr>
<tr height=30 bgcolor=white>
	<td colspan=3>
	&nbsp;公文文件：<a style="color:blue" target=_blank 
	href="content_show.asp?doc_id=<%=pDocId%>&"><img border=0 src="../images/bg/ar-g.gif" width=8 height=8><%=sDocSubject%></a>&nbsp;&nbsp;<a style="color:blue"  target=_blank 
	href="content_show.asp?doc_id=<%=pDocId%>&"><img border=0 src="images/content.gif">阅读&nbsp;<a style="color:blue"
	href="content_down.asp?doc_id=<%=pDocId%>&"><img border=0 src="images/download.gif">下载&nbsp;<a style="color:blue;cursor:hand"
	onclick="javascript:window.open('doc_upload.asp?doc_id=<%=pDocId%>&','','width=490,height=140,top=200,left=200');"><img border=0 src="images/upload.gif">重新上传</a></td></tr>
<tr bgcolor=white>
	<td style="line-height:150%" colspan=3><table cellspacing=0 cellpadding=0><tr><td>&nbsp;公文附件：</td><td style="color:gray"><%=sDocAttachment%></td></tr></table></td></tr>
<tr height=30 bgcolor=white>
	<td>&nbsp;公文类型：<select name="doc_type_id" style="width:86px">
				<%=selectOptions(dbLocal, "t_doc_type", "type_id", "type_desc", iDocTypeId, "")%></select></td>
	<td>&nbsp;紧急程度：<select name="doc_urgent_level" style="width:86px">
				<%=selectOptions(dbLocal, "t_doc_urgent", "urgent_level", "urgent_desc", iDocUrgentLevel, "")%></select></td>
	<td>&nbsp;秘密程度：<select name="doc_secret_level" style="width:86px">
				<%=selectOptions(dbLocal, "t_doc_secret", "secret_level", "secret_desc", iDocSecretLevel, "")%></td></tr>
<tr height=30 bgcolor=white>
	<td colspan=2>&nbsp;公文字号：<input type="text" name="doc_number" size=53 maxlength=25 value="<%=sDocNumber%>"></td>
	<td colspan=1>&nbsp;印发日期<%=DrawCal("", date, "doc_sent_date", "dateimg1")%></td></tr>
<tr height=30 bgcolor=white>
	<td colspan=3>&nbsp;关 键 字：<input type="text" name="doc_keyword" size=83 maxlength=128 value="<%=sDocKeyword%>"></td></tr>
<tr height=30 bgcolor=white>
	<td colspan=3>&nbsp;抄报人员：<input type="text" name="doc_report_person" size=83 maxlength=128 value="<%=sDocReportPerson%>"></td></tr>
<tr height=30 bgcolor=white>
	<td colspan=3>&nbsp;抄送人员：<input type="text" name="doc_send_person" size=83 maxlength=128 value="<%=sDocSendPerson%>"></td></tr>
<tr height=30 bgcolor=white>
	<td colspan=3>&nbsp;发文单位：<input type="text" name="doc_sender" size=83 maxlength=128 value="<%=sDocSender%>"></td></tr>
<tr bgcolor=white>
	<td style="color:gray" colspan=3>&nbsp;说明：点击“公文主题”可以查看公文内容；点击公文附件名称可以查看附件内容。</td></tr>
<tr bgcolor=white>
	<td colspan=3 align=center>
		<input type="image" src="../images/button/update.gif" style="border-width:0">
		<img border=0 width=20 height=0>
		<img border=0 src="../images/button/reset.gif" onclick="javascript:FormUpdateDoc.reset();">
		<img border=0 width=20 height=0>
		<img border=0 src="../images/button/delete.gif" onclick="javascript:DeleteConfirm(<%=pDocId%>);">
		<img border=0 width=20 height=0>
		<img border=0 src="../images/button/return.gif" onclick="javascript:location.href='doc_p.asp?doc_id=<%=pDocId%>&';">
	</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 + -