📄 doc_update.htm
字号:
<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<%
ID=trim(request("ID"))
Outin=1
LoginID=session("LoginID")
if LoginID="" then response.end
UserName= trim(session("RealName"))
set rs=server.createobject("adodb.recordset")
sql="select * from tblDoc where ID="& ID
rs.open sql,oConn
if not rs.eof then
FromID=trim(rs("FromID"))
CheckIDs=trim(rs("CheckIDs"))
CheckNames=trim(rs("CheckNames"))
CheckStepIDs=trim(rs("CheckStepIDs"))
CheckStepNames=trim(rs("CheckStepNames"))
title=replace(trim(rs("title")),"'","''")
nClass=trim(rs("Class"))
if nClass="" then nClass=0
body=replace(rtrim(rs("body")),"'","''")
remark=replace(rtrim(rs("remark")),"'","''")
attachfile=replace(trim(rs("attachfile")),"'","''")
OutWord=trim(rs("OutWord"))
OutSerial=trim(rs("OutSerial"))
JinjiClass=trim(rs("JinjiClass"))
SecureClass=trim(rs("SecureClass"))
SecureTime=trim(rs("SecureTime"))
Author=trim(rs("Author"))
OutGoing=trim(rs("OutGoing"))
PrintDepartment=trim(rs("PrintDepartment"))
PrintTime=trim(rs("PrintTime"))
NigaoDepartment=trim(rs("NigaoDepartment"))
Nigao=trim(rs("Nigao"))
Printer=trim(rs("Printer"))
Publish=trim(rs("Publish"))
Jiaodui=trim(rs("Jiaodui"))
Copys=trim(rs("Copys"))
MainTo=trim(rs("MainTo"))
CopyTo=trim(rs("CopyTo"))
CopyTo2=trim(rs("CopyTo2"))
SendTo=trim(rs("SendTo"))
Title2=trim(rs("Title2"))
FinishTime=trim(rs("FinishTime"))
AttachFileBody=trim(rs("AttachFileBody"))
Recieved=trim(rs("Recieved"))&""
CurrentStep=trim(rs("CurrentStep"))
end if
rs.close
set rs=nothing
%>
<html>
<head>
<title>Folders</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</head>
<script src="Popup.js"></script>
<body bgcolor="#FFFFFF">
<div align=center>
<h2><font color=#ff0000> 发文处理</font></h2>
<table border=0 width="95%">
<tr><td align=right><font color=red>当前流程：<%=GetTableValue("tblDocStep","Name","ID",CurrentStep)%></font></td></tr></table>
<table border=1 cellpadding=3 cellspacing=1 width="95%" bgcolor=#FFFFFF bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td align=right width="12%">发文字号：</td>
<td width="30%"><font color=red><%=OutWord%></font> 字
<font color=red><%=OutSerial%></font> 号
</td>
<td align=right width="25%">紧急程度：<%=GetJinjiClass(JinjiClass)%>
</td>
<td nowrap>秘密等级：
<%=GetSecureClass(SecureClass)%>
</td>
</tr>
<tr>
<td align=right>公文种类：</td>
<td><%=getTableValue ("tblDocClass","Name","ID",nClass)%> </td>
<td align=right>保密期限：</td>
<td>
<%=SecureTime%>
</td>
</tr>
<tr>
<td align=right>核稿人：</td>
<td><%=Author%> </td>
<td align=right>发文机关：</td>
<td><%=OutGoing%> <BR>
</td>
</tr>
<tr>
<td align=right>印发机关：</td>
<td><%=PrintDepartment%> </td>
<td align=right>印发日期：</td>
<td><%=PrintTime%> </td>
</tr>
<tr>
<td align=right>拟稿单位：</td>
<td><%=NigaoDepartment%> </td>
<td align=right>拟稿人：</td>
<td><%=Nigao%>
</td>
</tr>
<tr>
<td align=right> </td>
<td colspan=3><table border=0 width="100%"><tr>
<td width="25%">打字：<%=Printer%> </td>
<td width="25%">印刷：<%=Publish%> </td>
<td width="25%">校对：<%=Jiaodui%> </td>
<td width="25%">份数：<%=Copys%></td>
</tr></table>
</td>
</tr>
<tr>
<td align=right>主送机关：</td>
<td colspan=3><%=Mainto%> </td>
</tr>
<tr>
<td align=right>抄送机关：</td>
<td colspan=3><%=Copyto%> </td>
</tr>
<tr>
<td align=right>抄报机关：</td>
<td colspan=3><%=Copyto2%> </td>
</tr>
<tr>
<td align=right> 发：</td>
<td colspan=3><%=Sendto%> </td>
</tr>
<tr>
<td align=right>主题词：</td>
<td colspan=3><%=Title2%> </td>
</tr>
<tr>
<td align=right>标题：</td>
<td colspan=3><%=Title%> </td>
</tr>
<tr>
<td align=right>发文日期：</td>
<td colspan=3><%=FinishTime%> </td>
</tr>
<tr>
<td align=right valign=top>正文：</td>
<td colspan=3><%=replace(replace(server.htmlencode(body&" ")," "," "),chr(13),"<BR>")%></td>
</tr>
<tr>
<td align=right valign=top>附注：</td>
<td colspan=3><%=replace(replace(server.htmlencode(remark&" ")," "," "),chr(13),"<BR>")%></td>
</tr>
<tr>
<td align=right>附件：</td>
<td colspan=3><a target="_blank" href="../File_Up/Doc/<%=ID%>/<%=AttachFile%>"><%=AttachFile%></a> </td>
</tr>
<tr>
<td align=right valign=top>附件说明：</td>
<td colspan=3><%=replace(replace(server.htmlencode(AttachFileBody&" ")," "," "),chr(13),"<BR>")%></td>
</tr>
<%
FromName=getTableValue("tblUser","Name","ID",FromID)
arrName=split(CheckNames,".")
arrStep=split(CheckStepNames,",")
if not isempty(arrName) then
str1=""
for i=0 to ubound(arrName)
str1=str1&"("&arrName(i)&")"&"<font color=red>["&arrStep(i)&"]</font>—>"
next
str1=str1&"<font color=red>(完成)</font>"
end if
%>
<tr>
<td align=right valign=top>发稿人：</td>
<td colspan=3><%=FromName%></td>
</tr>
<tr>
<td align=right valign=top>公文路径</td>
<td colspan=3><%=FromName&"<font color=red>[拟稿]</font>—>"&str1%></td>
</tr>
<tr bgcolor=#CCCCFF disabled>
<td align=right> </td>
<td colspan=3>处理过的意见</td>
</tr>
<tr>
<td align=right> </td>
<td colspan=3>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from tblDocsuggest where DocID="& ID &" order by ID"
rs.open sql,oConn
n=0
while not rs.eof
n=n+1
if n mod 2 =0 then
strColor="#E6F2FF"
else
strColor="#FFFFFF"
end if
response.write "<table border=1 cellpadding=3 cellspacing=1 width='95%' bgcolor=#FFFFFF bordercolordark=#FFFFFF bordercolorlight=#999999><tr bgcolor="&strColor&"><td>"
response.write trim(rs("FromName"))&" 在 "&trim(rs("Times"))&" 的处理："
response.write "</td></tr><tr bgcolor="&strcolor&"><td>"
response.write replace(replace(rtrim(rs("body")),chr(13),"<br>")," "," ")&" "
response.write "</td></tr></table>"
rs.movenext
wend
rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
<td align=right> </td>
<td colspan=3 disabled>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from tblDocPress where DocID="& ID &" order by ID"
rs.open sql,oConn
while not rs.eof
response.write "<table border=1 cellpadding=1 cellspacing=1 width='100%' bgcolor=#FFFFFF bordercolordark=#FFFFFF bordercolorlight=#999999><tr bgcolor=#FFCC66><td>"
response.write trim(rs("FromName"))&" 在 "&trim(rs("Times"))&" 的催办意见："
response.write "</td></tr><tr><td>"
response.write replace(replace(rtrim(rs("body")),chr(13),"<br>")," "," ")&" "
response.write "</td></tr></table>"
rs.movenext
wend
rs.close
set rs=nothing
%>
</td>
</tr>
<form name="SuggestForm" method="post" action="SaveSuggest.htm">
<tr>
<td>修改正文</td>
<td colspan=3><textarea rows=8 cols=60 name="body"><%=body%></textarea>
</td>
</tr>
<tr>
<td>处理意见</td>
<td colspan=3><textarea rows=2 cols=60 name="Suggest"></textarea>
</td>
</tr>
<tr>
<td> </td>
<td colspan=3>
<INPUT TYPE="submit" name="cmdUp" value="保 存" onclick="return CheckData();" class="font9boldwhite">
<INPUT TYPE="button" name="cmdCancel" value="返 回" onclick="javascript:window.location.href='main.htm'" class="font9boldwhite">
</td>
</tr>
</table>
</div>
<INPUT TYPE="hidden" name="ID" value="<%=ID%>">
<INPUT TYPE="hidden" name="StepID" value="<%=CurrentStep%>">
</form>
</body>
<BR><BR>
</html>
<!--#include file="../inc/conn_close.htm"-->
<script language="JavaScript">
function OpenWindow(url,windowname)
{
window.open(url,windowname,'left=100,top=50,height=450,width=550,toolbar=no,menubar=no,scrollbars=yes')
}
function OpenWindow1(url,windowname)
{
window.open(url,windowname,'left=150,top=100,height=80,width=420,toolbar=no,menubar=no,scrollbars=yes')
}
function CheckData()
{
if(jtrim(document.SuggestForm.Suggest.value)=="")
{
alert("请填写处理意见。")
return false;
}
return true;
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>
<%
Function GetTableValue(TableName,Field,ValueField,Value)
if TableName<>"" and Value<>"" then
Set RsTmp = Server.Createobject("Adodb.recordset")
strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
Rstmp.open strSql,oConn,1,1
If not Rstmp.eof then
GetTableValue=trim(Rstmp(Field))
else
GetTableValue=""
end if
Rstmp.close
set RsTmp = Nothing
else
GetTableValue=""
end if
End Function
sub DeleteOneFile (FilePathName)
FilePathName=Server.Mappath(FilePathName)
dim fs
Set fs = server.CreateObject("Scripting.FileSystemObject")
if trim(FilePathName)<>"" and fs.FileExists(FilePathName) then
fs.DeleteFile FilePathName
end if
set fs=nothing
end sub
sub CopyOneFile (FileName1,PathName2,FileName)
FileName1=Server.Mappath(FileName1)
PathName2=Server.Mappath(PathName2)
dim fs,f
Set fs = server.CreateObject("Scripting.FileSystemObject")
if not fs.FolderExists(PathName2) then
fs.CreateFolder PathName2
end if
if trim(FileName1)<>"" and fs.FileExists(FileName1) then
set f=fs.GetFile(FileName1)
f.Copy PathName2&"\"&FileName,true
end if
set fs=nothing
end sub
Private function GetJinjiClass(byval nClass)
select case trim(nClass)
case "0"
GetJinjiClass="未定义"
case "1"
GetJinjiClass="缓"
case "2"
GetJinjiClass="急"
case "3"
GetJinjiClass="加急"
case else
GetJinjiClass="未定义"
end select
end function
Private function GetSecureClass(byval nClass)
select case trim(nClass)
case "0"
GetSecureClass="未定义"
case "1"
GetSecureClass="普通"
case "2"
GetSecureClass="秘密"
case "3"
GetSecureClass="机密"
case "4"
GetSecureClass="绝密"
case else
GetSecureClass="未定义"
end select
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -