📄 documentfileshow.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
Response.buffer=true
mScriptName="DocumentFileShow.asp"
mServerName="../inc/OfficeServer.asp"
mClientName="iWebOffice2003.ocx#version=6,4,0,4"
mHttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
mHttpUrl=Left(mHttpUrl,Len(mHttpUrl)-Len(mScriptName))
mServerUrl=mHttpUrl & mServerName
mClientUrl=mHttpUrl & mClientName
mRecordID=Request("RecordID") '取得编号
mTemplate=Request("Template") : if ( mTemplate="") then mTemplate="" '取得模板编号' 默认没有模板
mFileType=Request("FileType") : if ( mFileType="") then mFileType=".doc" '取得类型,默认为.doc文档
mEditType=Request("EditType") : mEditType="0" '取得模式, 0显示 1起草 2批改 3审核
mUserName=session("RealName") '取得用户名
'------------------------------------------------
DTCS1="1111111111111"
DTCS2="0000000000000"
'------------------------------------------------读入文档内容
mSql="Select * From tbioaDocumentfile 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") '文件状态
'---------------------------------
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
if mEditType=0 then
mDisabled="disabled"
else
mDisabled=""
end if
mFileName=mRecordID & mFileType '取得完整的文档名称
end if
'------------------------------------------------------------编辑框显示函数
Sub input_disabled(Str,StrStart,StrLen)
if Str<>"" then
if mid(Str,StrStart,StrLen)<>"1" then
response.write "class='inputreadonly' disabled"
end if
end if
End Sub
'------------------------------------------------------------
%>
<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 Load(){
//读入文档
try{
webform.WebOffice.WebUrl="<%=mServerUrl%>";
webform.WebOffice.RecordID="<%=mRecordID%>";
webform.WebOffice.Template="<%=mTemplate%>";
webform.WebOffice.FileName="<%=mFileName%>";
webform.WebOffice.FileType="<%=mFileType%>";
webform.WebOffice.EditType="<%=mEditType%>";
webform.WebOffice.UserName="<%=mUserName%>";
webform.WebOffice.WebOpen(); //打开该文档
StatusMsg(webform.WebOffice.Status);
toolbar.location="../inc/toolbar.asp?Status=<%=mEditType%>&Type="+type+"&DYZWBB=1"
}catch(e){}
}
function WebSaveAsHtml(){
//保存为Html
try{
if (webform.WebOffice.WebSaveAsHtml())
{
webform.HTMLPath.value="HTML/<%=mRecordID%>.htm";
}
StatusMsg(webform.WebOffice.Status);
}catch(e){}
}
function WindowOpen(strURL){
DocumentWin = window.open(strURL,"","top=300,left=200,width=350,height=100,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no,status=no");
DocumentWin.focus();
}
function selectDep(form){
Deplist=showModalDialog("../inc/Select_Dep.asp", "", "dialogWidth:32em; dialogHeight:17em; center: Yes; scroll:No; resizable: No; status: No; help: No;");
if (Deplist!='') {
form.MSend_Dept.value=Deplist.split("|")[1];
}
}
function WindowResize()
{
window.moveTo(0,0)
window.resizeTo(screen.availWidth,screen.availHeight);
}
function WindowOpen(strURL){
DocumentWin = window.open(strURL,"","toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no,status=no");
DocumentWin.focus();
}
</script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body class="td3" onload="WindowResize();Load()" onunload="UnLoad()" topmargin="1" leftmargin="1">
<form name="webform" method="post" action="DocumentSave.asp" onsubmit="return require(this)&&SaveDocument();">
<input type=hidden name=czlx value="">
<input type=hidden name=blxh value="<%=mBLXH%>">
<input type=hidden name=RecordID value="<%=mRecordID%>">
<input type=hidden name=Template value="<%=mTemplate%>">
<input type=hidden name=FileType value="<%=mFileType%>">
<input type=hidden name=EditType value="<%=mEditType%>">
<input type=hidden name=HTMLPath value="<%=mHTMLPath%>">
<input type=hidden name=Status value="<%=mStatus%>">
<table border=0 cellspacing='0' cellpadding='1' width=100% height=100% align=center>
<%if mid(dtcs1,2,1)="1" then%>
<tr>
<td align="right" class="tdBottom">公文种类：</td>
<td class="tdBottom"><select name='DC_Doc_Sort' size='1' <%Call input_disabled(DTCS2,2,1)%>>
<%Call pOptions("tbioaOffice_Document_Sort","doc_sort",0,mDC_Doc_Sort,"")%>
</select>
<span class="style1">*</span>
<select name='DocType' size='1' <%Call input_disabled(DTCS2,2,1)%>>
<option value='外部' <%if mDocType="外部" then response.write "selected"%>>外部</option>
<option value='内部' <%if mDocType="内部" then response.write "selected"%>>内部</option>
</select>
<span class="style1">*</span>
公文类型:
<select name='DocMod' size='1' <%Call input_disabled(DTCS2,2,1)%>>
<option value='收文' <%if mDocMod="收文" then response.write "selected"%>>收文</option>
<option value='发文' <%if mDocMod="发文" then response.write "selected"%>>发文</option>
</select>
<span class="style1">*</span>
公文紧急程度：
<select name='DC_Doc_Exigence' size='1' <%Call input_disabled(DTCS2,2,1)%>>
<option value='一般' <%if mDC_Doc_Exigence="一般" then response.write "selected"%>>一般</option>
<option value='紧急' <%if mDC_Doc_Exigence="紧急" then response.write "selected"%>>紧急</option>
<option value='特急' <%if mDC_Doc_Exigence="特急" then response.write "selected"%>>特急</option>
</select>
<span class="style1">*</span>公文密级：
<select name='DC_Doc_Security' size='1' <%Call input_disabled(DTCS2,2,1)%>>
<option value='普通' <%if mDC_Doc_Security="普通" then response.write "selected"%>>普通</option>
<option value='秘密' <%if mDC_Doc_Security="秘密" then response.write "selected"%>>秘密</option>
<option value='机密' <%if mDC_Doc_Security="机密" then response.write "selected"%>>机密</option>
<option value='绝密' <%if mDC_Doc_Security="绝密" then response.write "selected"%>>绝密</option>
</select>
<span class="style1">*</span></td>
</tr>
<%end if
if mid(dtcs1,1,1)="1" then
%>
<tr>
<td align="right" class="tdBottom">公文文号：</td>
<td class="tdBottom"><input type="text" name="DocFileNo" size="25" maxlength="15" value="<%=mDocFileNo%>" <%Call input_disabled(DTCS2,1,1)%> class="input2">
<span class="style1">*</span></td>
</tr>
<%
end if
if mid(dtcs1,3,1)="1" then%>
<tr>
<td width="116" align="right" class="tdBottom">公文标题：</td>
<td width="846" class="tdBottom"><input type="text" name="Subject" size="80" maxlength="150" value="<%=mSubject%>" <%Call input_disabled(DTCS2,3,1)%> class="input2">
<span class="style1">*</span></td>
</tr>
<%end if
if mid(dtcs1,4,1)="1" then
%>
<tr>
<td align="right" class="tdBottom">主题词：</td>
<td class="tdBottom"><input type="text" name="MainTitle" size="80" maxlength="50" value="<%=mMainTitle%>" <%Call input_disabled(DTCS2,4,1)%> class="input2">
<span class="style1">*</span></td>
</tr>
<%end if
if mid(dtcs1,5,1)="1" then%>
<tr class="tdBottom">
<td align="right" valign="top" class="tdBottom">摘要：</td>
<td><textarea name="Memo" rows="3" cols="78" class="input2" <%Call input_disabled(DTCS2,5,1)%>><%=mMemo%></textarea></td>
</tr>
<%
end if
if mid(dtcs1,6,1)="1" then%>
<tr>
<td align="right" class="tdBottom">发文单位：</td>
<td class="tdBottom"><input type="text" name="PSend_Dept" size="80" maxlength="100" value="<%=mPSend_Dept%>" <%Call input_disabled(DTCS2,6,1)%> class="input2">
<span class="style1">*</span></td>
</tr>
<%
end if
if mid(dtcs1,7,1)="1" then%>
<tr>
<td align="right" class="tdBottom">主送单位：</td>
<td class="tdBottom"><input type="text" name="MSend_Dept" size="80" maxlength="100" value="<%=mMSend_Dept%>" <%Call input_disabled(DTCS2,7,1)%> class="input2">
<span class="style1">*</span></td>
</tr>
<%
end if
if mid(dtcs1,8,1)="1" then%>
<tr>
<td align="right" class="tdBottom">抄送机关：</td>
<td class="tdBottom"><input type="text" name="CSend_Dept" size="80" maxlength="100" value="<%=mCSend_Dept%>" <%Call input_disabled(DTCS2,8,1)%> class="input2"></td>
</tr>
<tr>
<td align="right" class="tdBottom">抄报机关：</td>
<td class="tdBottom"><input type="text" name="CReport_Dept" size="80" maxlength="100" value="<%=mCReport_Dept%>" <%Call input_disabled(DTCS2,9,1)%> class="input2"></td>
</tr>
<%
end if
if mid(dtcs1,9,1)="1" then%>
<tr>
<td align="right" class="tdBottom">收文单位：</td>
<td class="tdBottom"><input type="text" name="Receive_Dept" size="80" maxlength="100" value="mReceive_Dept" <%Call input_disabled(DTCS2,9,1)%> class="input2"></td>
</tr>
<%
end if
if mid(dtcs1,10,1)="1" then%>
<tr class="tdBottom">
<td align="right" valign="top" class="tdBottom">附注：</td>
<td><textarea name="Do_Advice" rows="3" cols="78" class="input2" <%Call input_disabled(DTCS2,10,1)%>><%=mDo_Advice%></textarea></td>
</tr>
<%
end if
if mid(dtcs1,11,1)="1" then%>
<tr>
<td align=right class="tdBottom" > 拟制人：</td>
<td class="tdBottom">
<input type=text name=NiziMan value="<%=mNiziMan%>" <%Call input_disabled(DTCS2,11,1)%> class="input2">
拟制日期：<input type=text name=FileDate value="<%=mNizidate%>" <%Call input_disabled(DTCS2,11,1)%> class="input2">
拟制部门: <input type=text name=Dept value="<%=mNiziDept%>" <%Call input_disabled(DTCS2,11,1)%> class="input2">
</td>
</tr>
<%
end if
if mid(dtcs1,12,1)="1" then%>
<tr>
<td align=right class="tdBottom">签发人：</td>
<td class="tdBottom">
<input type=text name=Sign_Man value="<%=mSign_Man%>" <%Call input_disabled(DTCS2,12,1)%>>
签发日期：
<input type=text name=Sign_Date value="<%=mSign_Date%>" <%Call input_disabled(DTCS2,12,1)%>>
</td>
</tr>
<%
end if
if mid(dtcs1,13,1)="1" then%>
<tr>
<td align=right class="tdBottom">登记人：</td>
<td class="tdBottom">
<input type=text name=Registration_Man value="<%=mRegistration_Man%>" <%Call input_disabled(DTCS2,13,1)%>>
登记日期：<input type=text name=Registration_Date value="<%=mRegistration_Date%>" <%Call input_disabled(DTCS2,13,1)%>>
</td>
</tr>
<%end if%>
<tr>
<td colspan=2 align="center" class="tdBottom" valign="top" align=right>
<fieldset style="width:98%" align="center"> <legend>相关附件</legend>
<iframe id="Accessory" src="Document_Accessory.asp?infoid=<%=mRecordID%>" frameBorder="0" width="100%" height="70" marginHeight="0" marginWidth="0" scrolling="auto"></iframe>
</td>
</tr>
<tr>
<td colspan=2 height=100% class="tdBottom">
<table border=0 cellspacing='0' cellpadding='0' width='100%' height='100%'>
<tr>
<td height="28">
<iframe id="toolbar" src="../inc/toolbar.asp?Status=<%=mEditType%>&Type=<%=mFileType%>&DYZWBB=<%=DYZWBB%>" frameBorder="0" width="100%" height="28" marginHeight="0" marginWidth="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td colspan=2 height=630>
<OBJECT id="WebOffice" width="100%" height="100%" classid="clsid:23739A7E-5741-4D1C-88D5-D50B18F7C347" codebase="<%=mClientUrl%>"></OBJECT>
</td>
</tr>
<tr>
<td bgcolor=menu height='20'>
<div id=StatusBar>状态栏</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<%'释放对象变量
<!--#include file="../inc/conn_close.asp"-->
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -