📄 doc_p.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" -->
<%
'' 检查已经登录并在线
call CheckSecurity()
'' 只有公文管理员和办公室主任以及有公文查询权限的员工才能访问本页
if (not IsDocAdmin) and (not IsOfficer) and (not HasRightToDocInfor)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
'' **********************************************************************************
'' 查询获取相应的公文信息
'' -------------------------------------------------------------------------------------------------------------------
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">
.tdvalue {color:green}
</style>
<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="FormUploadDoc" method="post" enctype="multipart/form-data" action="savetodb.asp">
<table width=600 align=center border=0 cellspacing=1 cellpadding=5 bgcolor=silver style="table-layout:fixed">
<tr style="display:none">
<td width=80></td>
<td width=240></td>
<td width=80></td>
<td width="*"></td>
</tr>
<tr bgcolor=navy style="color:white;font-weight:600"><td align=center colspan=4>公 文 详 细 信 息 ( <%=sDocTypeDesc%> )</td></tr>
<tr bgcolor=white>
<td align=center>公文主题</td><td colspan=3 class=tdValue>
<a style="color:blue" href="content_show.asp?doc_id=<%=pDocId%>&" target=_blank><%=sDocSubject%></a>
<tr bgcolor=white>
<td align=center>公文内容</td><td colspan=3 class=tdValue>
<a style="color:blue" href="content_show.asp?doc_id=<%=pDocId%>&" target=_blank><img border=0 src="images/content.gif"> 点击这里阅读公文</a>
<a style="color:blue" href="content_down.asp?doc_id=<%=pDocId%>&"><img border=0 src="images/download.gif"> 点击这里下载公文</a></td></tr>
<tr bgcolor=white>
<td align=center>公文附件</td><td colspan=3 style="line-height:150%;color:gray"><%=sDocAttachment%></td></tr>
<tr bgcolor=white>
<td align=center>公文字号</td><td class=tdValue><%=sDocNumber%></td>
<td align=center>印发日期</td><td class=tdValue><%=sDocSentDate%></td></tr>
<tr bgcolor=white>
<td align=center>紧急程度</td><td class=tdValue><%=sDocUrgentDesc%></select></td>
<td align=center>秘密程度</td><td class=tdValue><%=sDocSecretDesc%></td></tr>
<tr bgcolor=white>
<td align=center>关 键 字</td><td colspan=3 class=tdValue><%=sDocKeyword%></td></tr>
<tr bgcolor=white>
<td align=center>抄报人员</td><td colspan=3 class=tdValue><%=sDocReportPerson%></td></tr>
<tr bgcolor=white>
<td align=center>抄送人员</td><td colspan=3 class=tdValue><%=sDocSendPerson%></td></tr>
<tr bgcolor=white>
<td align=center>发文单位</td><td colspan=3 class=tdValue><%=sDocSender%></td></tr>
<tr bgcolor=white>
<td align=center>登记日期</td><td class=tdValue><%=FormatDT(sDocRegDate,"yyyy-mm-dd")%></td>
<td align=center>登记人员</td><td class=tdValue><%=sDocRegPerson%></td></tr>
<tr bgcolor=white>
<td style="color:gray" colspan=4> 说明：点击“公文主题”可以查看公文内容；点击公文附件名称可以查看附件内容。</td></tr>
<%
'' 如果是公文管理员或办公室主任，可以编辑／删除公文信息
if IsDocAdmin or IsOfficer then
%>
<tr bgcolor=white>
<td colspan=4 align=center>
<%
'' 如果是办公室主任，可以将公文提交审批
if IsOfficer then
%>
<a style="color:blue" href="submit.asp?id=<%=pDocId%>&"><img border=0 src="../images/edit.gif"> 公文提交审批</a>
<img border=0 width=30 height=0>
<%
end if
%>
<a style="color:blue" href="doc_e.asp?doc_id=<%=pDocId%>&"><img border=0 src="../images/edit.gif"> 编辑公文信息</a>
<img border=0 width=30 height=0>
<span style="color:blue;cursor:hand" onclick="javascript:DeleteConfirm(<%=pDocId%>);"><img border=0 src="../images/delete.gif"> 删除公文信息</span></td></tr>
<%
end if
%>
</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>
<%
'' 只有公文管理员或办公室主任才能进行公文信息管理
if IsDocAdmin or IsOfficer then
%>
<img src="../images/goto.gif"> <a href="doc_a.asp">公文登记</a>
<%
end if
%>
<img src="../images/goto.gif"> <a href="doc_l.asp">公文查询列表</a></td></tr>
</table>
<%
'********************************************************************************************************
' 主体到这里结束了
'-------------------------------------------------------------------------------------------------------------------------------------------------
Response.Write InnerTableTailer
Response.Write Footer
Response.Write OuterTableTailer
%>
</body>
</html>
<script language="javascript">
var objUploadLink = document.all.upload_doc_attachment;
for (var k=0; k<objUploadLink.length; k++)
{
objUploadLink(k).style.display='none';
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -