📄 documentheadprint.asp
字号:
<%
'功能：文头打印
'作者：展亮
'日期：2003-12-27 17:26
%>
<!--#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
mGZDBH =Request("GZDBH") '当前工作定义号
mRecordID=Request("RecordID") '取得编号
'------------------------------------------------
'------------------------------------------------读入工作定义内容
set rs = server.CreateObject("ADODB.RecordSet")
rs.Open "select * from tbioaOffice_Flow_Bldy where blgzbh='" & mGZDBH & "'",oConn,1,1
if not rs.EOF then
DZLCQX = rs("DZLCQX") '允许改变流程
MBTHDG = rs("MBTHDG") '允许模板套红定稿
mEditType= rs("ZWZT") '正文状态 0查阅 1起草 2修改 3审核
DYZWBB = rs("DYZWBB") '允许调用正文版本
FJZT = rs("FJZT") '附件状态 0隐藏 1查看 2管理
DTCS1 = rs("DTCS1") '表单单元格显示
DTCS2 = rs("DTCS2") '单元格能否编辑
DTCS3 = rs("DTCS3") '单元格是否必填
DTCS4 = rs("DTCS4") '单元格是否有初值
else
DTCS1="0010010001100" '显示表单单元格
end if
rs.close
'文档属性设为只读
DTCS2="0000000000000"
'------------------------------------------------
'------------------------------------------------读入文档内容
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文件页面路径及文件名
mAuthor = TbMainRs("Author") '作者
mFileDate = TbMainRs("FileDate") '建立日期
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") '报送机关
mReceive_Dept = TbMainRs("Receive_Dept") '收文机关
mDo_Advice = TbMainRs("Do_Advice") '附注
mNiziMan = TbMainRs("NiziMan") '拟稿人
mNiziDate = TbMainRs("FileDate") '拟稿日期
mNiziDept = TbMainRs("NiziDept") '拟稿部门
mSign_Man = TbMainRs("Sign_Man") '签发人
mSign_Date = TbMainRs("Sign_Date") '签发日期
mRegistration_Man = TbMainRs("Registration_Man") '登记人
mRegistration_Date = TbMainRs("Registration_Date")'登记日期
'------------------------------------------------
TbMainRs.Close
Set TbMainRs=Nothing
end if
'------------------------------------------------------------
%>
<html>
<head>
<title>公文文头 — <%=mSubject%></title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
<style type="text/css">
@media print {
.noprint{display:none}
}
</style>
</head>
<body class="tdbottom" topmargin="1" leftmargin="1">
<table border=0 cellspacing='1' cellpadding='3' width=100% align=center class="noprint">
<tr>
<td align=left class="td3">
<table border=0 cellspacing='0' cellpadding='0' width=100%>
<tr>
<td nowrap>
<img src="../images/icon_title.gif" align="absmiddle"> <b>公文文头
</td>
<td width="85" nowrap>
<object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"> </object>
<img src="../images/PageSetup.gif" align="absmiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(8,1)">页面设置</a>
</td>
<td width="85" nowrap>
<img src="../images/print.gif" align="absmiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(7,1)">打印预览</a>
</td>
<td width="85" nowrap>
<img src="../images/print.gif" align="absmiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(6,1)">打印文头</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table border=0 cellspacing='0' cellpadding='1' width=100% align=center>
<%if mid(dtcs1,2,1)="1" then%>
<tr>
<td align="right" class="tdBottom" nowrap>公文种类：</td>
<td class="tdBottom" nowrap>
<input name='DocType' value="<%=htmlout(mDocType)%>" size='4' class='inputreadonly' readonly>
<input name='DC_Doc_Sort' value="<%=htmlout(GetTableValue("tbioaOffice_Document_Sort","doc_sort","id",mDC_Doc_Sort))%>" size='24' class='inputreadonly' readonly>
公文类型：
<input name='DocMod' value="<%=htmlout(mDocMod)%>" size='4' class='inputreadonly' readonly>
公文紧急程度：
<input name='DC_Doc_Exigence' value="<%=htmlout(mDC_Doc_Exigence)%>" size='4' class='inputreadonly' readonly>
公文密级：
<input name='DC_Doc_Security' value="<%=htmlout(mDC_Doc_Security)%>" size='4' class='inputreadonly' readonly>
</td>
</tr>
<%end if
if mid(dtcs1,1,1)="1" then
%>
<tr>
<td align="right" class="tdBottom" nowrap>公文文号：</td>
<td class="tdBottom" nowrap><input type="text" name="DocFileNo" size="80" maxlength="15" value="<%=mDocFileNo%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,3,1)="1" then%>
<tr>
<td align="right" class="tdBottom" nowrap>公文标题：</td>
<td class="tdBottom" nowrap><input type="text" name="Subject" size="80" maxlength="150" value="<%=mSubject%>" class='inputreadonly' readonly>
</td>
</tr>
<%end if
if mid(dtcs1,4,1)="1" then
%>
<tr>
<td align="right" class="tdBottom" nowrap>主题词：</td>
<td class="tdBottom" nowrap><input type="text" name="MainTitle" size="80" maxlength="50" value="<%=mMainTitle%>" class='inputreadonly' readonly>
</td>
</tr>
<%end if
if mid(dtcs1,5,1)="1" then%>
<tr class="tdBottom">
<td align="right" valign="top" class="tdBottom" nowrap>摘要：</td>
<td nowrap><textarea name="Memo" rows="3" cols="81" class='inputreadonly' readonly><%=mMemo%></textarea></td>
</tr>
<%
end if
if mid(dtcs1,6,1)="1" then%>
<tr>
<td align="right" class="tdBottom" nowrap>发文单位：</td>
<td class="tdBottom" nowrap>
<input type="text" name="PSend_Dept" size="80" maxlength="100" value="<%=mPSend_Dept%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,7,1)="1" then%>
<tr>
<td align="right" class="tdBottom" nowrap>主送单位：</td>
<td class="tdBottom" nowrap>
<input type="text" name="MSend_Dept" size="80" maxlength="100" value="<%=mMSend_Dept%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,8,1)="1" then%>
<tr>
<td align="right" class="tdBottom" nowrap>抄送机关：</td>
<td class="tdBottom" nowrap>
<input type="text" name="CSend_Dept" size="80" maxlength="100" value="<%=mCSend_Dept%>" class='inputreadonly' readonly>
</td>
</tr>
<tr>
<td align="right" class="tdBottom" nowrap>抄报机关：</td>
<td class="tdBottom" nowrap>
<input type="text" name="CReport_Dept" size="80" maxlength="100" value="<%=mCReport_Dept%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,9,1)="1" then%>
<tr>
<td align="right" class="tdBottom" nowrap>收文单位：</td>
<td class="tdBottom" nowrap>
<input type="text" name="Receive_Dept" size="80" maxlength="100" value="<%if mid(dtcs4,9,1)="1" then response.write mReceive_Dept%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,10,1)="1" then%>
<tr class="tdBottom">
<td align="right" valign="top" class="tdBottom" nowrap>附注：</td>
<td nowrap><textarea name="Do_Advice" rows="3" cols="81" class='inputreadonly' readonly><%=mDo_Advice%></textarea></td>
</tr>
<%
end if
if mid(dtcs1,11,1)="1" then%>
<tr>
<td align=right class="tdBottom" nowrap> 拟制人：</td>
<td class="tdBottom" nowrap>
<input type=text name=NiziMan value="<%if mid(dtcs4,11,1)="1" then response.write mNiziMan%>" class='inputreadonly' readonly>
拟制日期：<input type=text name=NiziDate value="<%if mid(dtcs4,11,1)="1" then response.write mNiziDate%>" class='inputreadonly' readonly>
拟制部门：<input type=text name=NiziDept value="<%if mid(dtcs4,11,1)="1" then response.write mNiziDept%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,12,1)="1" then%>
<tr>
<td align=right class="tdBottom" nowrap>签发人：</td>
<td class="tdBottom" nowrap>
<input type=text name=Sign_Man value="<%=mSign_Man%>" class='inputreadonly' readonly>
签发日期：<input type=text name=Sign_Date value="<%=mSign_Date%>" class='inputreadonly' readonly>
</td>
</tr>
<%
end if
if mid(dtcs1,13,1)="1" then%>
<tr>
<td align=right class="tdBottom" nowrap>登记人：</td>
<td class="tdBottom" nowrap>
<input type=text name=Registration_Man value="<%=mRegistration_Man%>" class='inputreadonly' readonly>
登记日期：<input type=text name=Registration_Date value="<%=mRegistration_Date%>" class='inputreadonly' readonly>
</td>
</tr>
<%end if%>
</table>
</body>
</html>
<%'释放对象变量
<!--#include file="../inc/conn_close.asp"-->
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -