doc_untread.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 450 行 · 第 1/2 页

<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<%
ID=trim(request("ID"))
Outin=1
FromID=session("LoginID")
if FromID="" then response.end
UserName= trim(session("RealName"))
FromDepartment=getTableValue("tblUser","Department","ID",FromID)
CheckList_Usr=trim(request("CheckList_Usr"))
CheckList=trim(request("CheckList"))
if CheckList="" then CheckList=0
if CheckList_Usr="" then CheckList_Usr=0
CheckIDs=trim(request("CheckIDs"))
CheckNames=trim(request("CheckNames"))
CheckStepIDs=trim(request("CheckStepIDs"))
CheckStepNames=trim(request("CheckStepNames"))

title=replace(trim(request("title")),"'","''")
nClass=trim(request("Class"))
if nClass="" then nClass=0
body=replace(trim(request("body")),"'","''")
remark=replace(trim(request("remark")),"'","''")
attachfile=replace(trim(request("attachfile")),"'","''")
OutWord=trim(cRequest("OutWord"))
OutSerial=trim(cRequest("OutSerial"))
JinjiClass=trim(cRequest("JinjiClass"))
SecureClass=trim(cRequest("SecureClass"))
SecureTime=trim(cRequest("SecureTime"))
Author=trim(cRequest("Author"))
OutGoing=trim(cRequest("OutGoing"))
PrintDepartment=trim(cRequest("PrintDepartment"))
PrintTime=trim(cRequest("PrintTime"))
NigaoDepartment=trim(cRequest("NigaoDepartment"))
Nigao=trim(cRequest("Nigao"))
Printer=trim(cRequest("Printer"))
Publish=trim(cRequest("Publish"))
Jiaodui=trim(cRequest("Jiaodui"))
Copys=trim(cRequest("Copys"))
MainTo=trim(cRequest("MainTo"))
CopyTo=trim(cRequest("CopyTo"))
CopyTo2=trim(cRequest("CopyTo2"))
sendTo=trim(cRequest("sendTo"))
Title2=trim(cRequest("Title2"))
FinishTime=trim(cRequest("FinishTime"))
AttachFileBody=trim(cRequest("AttachFileBody"))
if FinishTime="" then FinishTime=date()
if PrintTime="" then PrintTime=date()
if Nigao="" then Nigao=userName

dim DocID,CurrentID
CurrentID=FromID

if request("cmdDel")<>"" then
	oConn.execute "delete from tblDoc where ID="& ID
	oConn.close
	response.redirect "main.htm"
end if
if request("cmdUp")<>"" then	
	if CheckIDs<>"" and CheckIDs<>"0" then
		arrCheckID0=split(CheckIDs,".")
		arrCheckID=split(arrCheckID0(0),",")
		if not isempty(arrCheckID) then CurrentID=arrCheckID(0)
	end if
	if CheckStepIDs<>"" and CheckStepIDs<>"0" then
		arrCheckStepIDs=split(CheckStepIDs,",")
		if not isempty(arrCheckStepIDs) then currentStep=arrCheckStepIDs(0)
	end if

	if Title<>"" then
		updateDoc(ID)
		if Attachfile<>"" then
			CopyOneFile "../File_Up/DocTemp/"&FromID&"/"&Attachfile, "../File_Up/Doc/"&DocID, attachfile
			DeleteOneFile "../File_Up/DocTemp/"& FromID &"/" & AttachFile
			Session("DocAttachFile")=""
		end if
		response.write "<h2>公文已经成功发出，谢谢！</h2><BR><BR>"
		response.write "<a href=Main.htm><img src=""../images/return.gif"" alt=返回 border=0></a>"
		oConn.close
		response.end
	end if
end if

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(trim(rs("body")),"'","''")
	body2=replace(trim(rs("body2")),"'","''")
	remark=replace(trim(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"))&""
	Untread=trim(rs("Untread"))&""
	UntreadTime=trim(rs("UntreadTime"))
	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">
<form name="DocForm" method="post" action="Doc_untread.htm">
<div align=center>
<h2><font color=#ff0000> 被退发文单</font></h2>
<table border=1 cellpadding=3 cellspacing=1 width="95%" bgcolor=#FFFFFF bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td>退回理由：</td>
<td colspan=3><%=untread&"<font color=red> (退回时间："&untreadTime&")</font>"%></td>
</tr>
<tr>
	<td align=right width="12%">发文字号：</td>
	<td width="30%">
	<input class="doc_txt" type="text" name="OutWord" size=4 maxlength=6 value="<%=OutWord%>">字
	<input class="doc_txt" type="text" name="OutSerial" size=10 maxlength=20 value="<%=OutSerial%>">号
	</td>
	<td align=right width="25%">紧急程度：
	<select name="JinjiClass">
		<option value=0 <%if Jinjiclass="0" then response.write " selected"%>>未定义
		<option value=1 <%if Jinjiclass="1" then response.write " selected"%>>缓
		<option value=2 <%if Jinjiclass="2" then response.write " selected"%>>急
		<option value=3 <%if Jinjiclass="3" then response.write " selected"%>>加急
	</select>
	</td>
	<td nowrap>秘密等级：
	<select name="SecureClass">
		<option value=0 <%if Secureclass="0" then response.write " selected"%>>未定义
		<option value=1 <%if Secureclass="1" then response.write " selected"%>>普通
		<option value=2 <%if Secureclass="2" then response.write " selected"%>>秘密
		<option value=3 <%if Secureclass="3" then response.write " selected"%>>机密
		<option value=4 <%if Secureclass="4" then response.write " selected"%>>绝密
	</select>
	</td>
</tr>

<tr>
	<td align=right>公文种类：</td>
	<td><%options "Class","tblDocClass","Name",nClass%></td>
	<td align=right>保密期限：</td>
	<td>
		<select name="SecureTime">
		<option value="未定义" <%if SecureTime="未定义" then response.write " selected"%>>未定义
		<option value="永久" <%if SecureTime="永久" then response.write " selected"%>>永久
		<option value="长期" <%if SecureTime="长期" then response.write " selected"%>>长期
		<option value="短期" <%if SecureTime="短期" then response.write " selected"%>>短期
	</select>
	</td>
</tr>
<tr>
	<td align=right>核稿人：</td>
	<td><input class="doc_txt" type="text" name="Author" size=14 maxlength=20 value="<%=Author%>"></td>
	<td align=right>发文机关：</td>
	<td>
		<input class="doc_txt" type="text" name="OutGoing" size=20 maxlength=40 value="<%=OutGoing%>">
	</td>
</tr>
<tr>
	<td align=right>印发机关：</td>
	<td><input class="doc_txt" type="text" name="PrintDepartment" size=20 maxlength=30 value="<%=PrintDepartment%>"></td>
	<td align=right>印发日期：</td>
	<td>
		<input class="doc_txt" type="text" name="PrintTime" size=10 maxlength=20 value="<%=PrintTime%>">
		<a href=# title="选择日期" onClick="fPopUpDlg('../inc/calendar.htm', document.DocForm.PrintTime, 'winpop', 172, 210);return false"><img src="../images/datetime.gif" border=0></a>
	</td>
</tr>
<tr>
	<td align=right>拟稿单位：</td>
	<td><input class="doc_txt" type="text" name="NigaoDepartment" size=20 maxlength=30 value="<%=NigaoDepartment%>"></td>
	<td align=right>拟稿人：</td>
	<td>
		<input class="doc_txt" type="text" name="Nigao" size=10 maxlength=20 value="<%=Nigao%>">
	</td>
</tr>
<tr>
	<td align=right>&nbsp;</td>
	<td colspan=3>
	打字：<input class="doc_txt" type="text" name="Printer" size=10 maxlength=20 value="<%=Printer%>">
	印刷：<input class="doc_txt" type="text" name="Publish" size=10 maxlength=20 value="<%=Publish%>">
	校对：<input class="doc_txt" type="text" name="Jiaodui" size=10 maxlength=20 value="<%=Jiaodui%>">
	份数：<input class="doc_txt" type="text" name="Copys" size=10 maxlength=20 value="<%=Copys%>">
	</td>
</tr>
<tr>
	<td align=right>主送机关：</td>
	<td colspan=3><input class="doc_txt" type="text" name="MainTo" size=50 maxlength=50 value="<%=Mainto%>"></td>
</tr>
<tr>
	<td align=right>抄送机关：</td>