doc_untread2.htm

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

<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<%
ID=trim(request("ID"))
Outin=2
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"))

inDepartment=cRequest("inDepartment")
inTime=cRequest("inTime")
intoDepartment=cRequest("intoDepartment")
inFromName=cRequest("inFromName")
intoName=cRequest("intoName")
inSerial=cRequest("inSerial")
inTelcode=cRequest("inTelcode")
inRecieved=cRequest("inRecieved")

title=replace(trim(request("title")),"'","''")
nClass=trim(request("Class"))
if nClass="" then nClass=0
body=replace(rtrim(request("body")),"'","''")
remark=replace(rtrim(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"))
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"))

	inDepartment=trim(rs("inDepartment"))
	inTime=trim(rs("inTime"))
	intoDepartment=trim(rs("intoDepartment"))
	inFromName=trim(rs("inFromName"))
	intoName=trim(rs("intoName"))
	inSerial=trim(rs("inSerial"))
	inTelcode=trim(rs("inTelcode"))
	inRecieved=trim(rs("inRecieved"))

	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"))
	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_untread2.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>来文单位：</td>
	<td><input class="doc_txt" type="text" name="inDepartment" size=20 maxlength=50 value="<%=inDepartment%>"></td>
	<td align=right>来文时间：</td>
	<td>
		<input class="doc_txt" type="text" name="inTime" size=10 maxlength=20 value="<%=inTime%>">
		<a href=# title="选择日期" onClick="fPopUpDlg('../inc/calendar.htm', document.DocForm.inTime, '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="inFromName" size=20 maxlength=50 value="<%=inFromName%>"></td>
	<td align=right>联系电话：</td>
	<td><input class="doc_txt" type="text" name="inTelcode" size=12 maxlength=50 value="<%=inTelcode%>"></td>

</tr>
<tr>
	<td align=right>来文编号：</td>
	<td><input class="doc_txt" type="text" name="inSerial" size=20 maxlength=50 value="<%=inSerial%>"></td>
	<td align=right>收文编号：</td>
	<td><input class="doc_txt" type="text" name="inToName" size=12 maxlength=50 value="<%=inToName%>"></td>

</tr>
<tr>
	<td align=right>承办部门：</td>
	<td><input class="doc_txt" type="text" name="inToDepartment" size=20 maxlength=50 value="<%=inToDepartment%>"></td>
	<td align=right>收单人：</td>
	<td><input class="doc_txt" type="text" name="inRecieved" size=12 maxlength=50 value="<%=inRecieved%>"></td>
</tr>
<tr>
	<td align=right>紧急程度：</td>
	<td>
	<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 align=right>秘密等级：</td>
	<td>
	<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="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>