doc_untread2.htm

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

<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>
	<td colspan=3><input class="doc_txt" type="text" name="CopyTo" size=50 maxlength=50 value="<%=Copyto%>"></td>
</tr>
<tr>
	<td align=right>主题词：</td>
	<td colspan=3><input class="doc_txt" type="text" name="Title2" size=50 maxlength=50 value="<%=Title2%>"></td>
</tr>
<tr>
	<td align=right>标题：</td>
	<td colspan=3><input class="doc_txt" type="text" name="Title" size=50 maxlength=50 value="<%=Title%>"></td>
</tr>

<tr>
	<td align=right valign=top>内容摘要：</td>
	<td colspan=3><textarea name="body" rows=10 cols=60><%if trim(body2)<>"" then
	response.write body2
	else
	response.write body
	end if%></textarea></td>
</tr>
<tr>
	<td align=right valign=top>附注：</td>
	<td colspan=3><textarea name="Remark" rows=5 cols=60><%=remark%></textarea></td>
</tr>
<tr>
	<td align=right>附件：</td>
	<td colspan=3><input type="text" name="AttachFile" value="<%=AttachFile%>" size=40 readonly class="doc_txt">
	<INPUT TYPE="button" name="cmdAttach" value="添加附件" onclick="OpenWindow1('AddFileForm.htm','filewindow')" class="font9boldwhite">
	</td>
</tr>
<tr>
	<td align=right valign=top>附件说明：</td>
	<td colspan=3><textarea name="AttachFileBody" rows=3 cols=60><%=AttachFileBody%></textarea></td>
</tr>
<tr>
	<td align=right>选择路径：</td>
	<td colspan=3><%options1 "CheckList","tblDocCheck","Name",CheckList%>（选择定义好的路径）</td>
</tr>
<tr>
	<td>&nbsp;</td>
	<td colspan=3>
		<INPUT TYPE="submit" name="cmdUp" value="重新发出" onclick="return CheckData();" class="font9boldwhite">&nbsp;&nbsp;
		<INPUT TYPE="button" name="cmdAttach" value="重新指定公文路径" onclick="OpenWindow('AddPath_User.htm','UserWindow')" class="font9boldwhite">&nbsp;&nbsp;
		<INPUT TYPE="button" name="cmdCancel" value="返  回" onclick="javascript:window.location.href='main.htm'"  class="font9boldwhite">&nbsp;&nbsp;
		<INPUT TYPE="submit" name="cmdDel" value="删  除" onclick="return CheckDelete();"  class="font9boldwhite">
	</td>

</tr>
<tr bgcolor=#3366CC>
	<td colspan=4><font color=#EEEEEE><b>公文流转路径</b></font></td>
</tr>
<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)&")"&"["&arrStep(i)&"]—>"
next
str1=str1&"(完成)"
end if


if CheckList_Usr<>0 then
	set rstmp=server.createobject("adodb.recordset")
	sql="select * from tblDocCheckTmp where ID="& CheckList_Usr
	rstmp.open sql,oConn
	if not rstmp.eof then
		CheckIDs=trim(rstmp("CheckList"))
		CheckStepIDs=trim(rstmp("CheckStepID"))
		CheckNames=trim(rstmp("CheckNameList"))
		CheckStepNames=trim(rstmp("CheckStepName"))
		arrName=split(CheckNames,".")
		arrStep=split(CheckStepNames,",")	
	end if
	rstmp.close
	set rstmp=nothing
	if not isempty(arrName) then
	str1=""
	for i=0 to ubound(arrName)
		str1=str1&"("&arrName(i)&")"&"["&arrStep(i)&"]—>"
	next
	str1=str1&"(完成)"
	end if
elseif CheckList<>"0" then
	set rstmp=server.createobject("adodb.recordset")
	sql="select * from tblDocCheck where ID="& CheckList
	rstmp.open sql,oConn
	if not rstmp.eof then
		CheckIDs=trim(rstmp("CheckList"))
		CheckStepIDs=trim(rstmp("CheckStepID"))
		CheckNames=trim(rstmp("CheckNameList"))
		CheckStepNames=trim(rstmp("CheckStepName"))
		arrName=split(CheckNames,".")
		arrStep=split(CheckStepNames,",")	
	end if
	rstmp.close
	set rstmp=nothing
	if not isempty(arrName) then
	str1=""
	for i=0 to ubound(arrName)
		str1=str1&"("&arrName(i)&")"&"["&arrStep(i)&"]—>"
	next
	str1=str1&"(完成)"
	end if
end if

	
%>

	<td align=right valign=top>公文路径</td>
	<td colspan=3>
	<textarea name="CheckNameList" rows=4 cols=60><%=str1%></textarea>
	</td>
</tr>
</table>
</div>
<INPUT TYPE="hidden" name="CheckList_Usr" value="">
<INPUT TYPE="hidden" name="ID" value="<%=ID%>">
<INPUT TYPE="hidden" name="CheckIDs" value="<%=CheckIDs%>">
<INPUT TYPE="hidden" name="CheckNames" value="<%=CheckNames%>">
<INPUT TYPE="hidden" name="CheckStepIDs" value="<%=CheckStepIDs%>">
<INPUT TYPE="hidden" name="CheckStepNames" value="<%=CheckStepNames%>">
</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.DocForm.Title.value)=="")
	{
		alert("您必须输入标题。")
		document.DocForm.Title.focus();
		return false;
	}
	if(jtrim(document.DocForm.CheckNameList.value)=="")
	{
		alert("请指定公文路径。")
		return false;
	}
			
	return true;
}
function CheckDelete()
{
	return confirm("确实删除吗？");
}
</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 UpdateDoc(ID)
	'sql="SET NOCOUNT ON;"
	sql=" update tblDoc set BackTo=0,Untread='',PreID="&FromID&",CurrentStep="&CurrentStep&", Class="&nClass&",CurrentID="&CurrentID&", Title='"&Title&"',Title2='"&Title2&"', Body='"&Body&"', Remark='"&Remark&"',Attachfile='"&AttachFile&"',CheckIDs='"&CheckIDs&"',CheckNames='"&CheckNames&"',CheckStepIDs='"&CheckStepIDs&"',CheckStepNames='"&CheckStepNames&"',OutWord='"&OutWord&"',OutSerial='"&OutSerial&"',JinjiClass='"&JinjiClass&"',SecureClass='"&SecureClass&"',SecureTime='"&SecureTime&"',Author='"&Author&"',OutGoing='"&OutGoing&"',PrintDepartment='"&PrintDepartment&"',PrintTime='"&PrintTime&"',NigaoDepartment='"&NigaoDepartment&"',Nigao='"&Nigao&"',Printer='"&Printer&"',Publish='"&Publish&"',Jiaodui='"&Jiaodui&"',Copys='"&Copys&"',MainTo='"&Mainto&"',CopyTo='"&Copyto&"',FinishTime='"&FinishTime&"',AttachFileBody='"&AttachFileBody&"',inDepartment='"&inDepartment&"',inToDepartment='"&inToDepartment&"',inFromName='"&inFromName&"',inTime='"&inTime&"',inToName='"&inToName&"',inTelcode='"&inTelcode&"',inSerial='"&inSerial&"',inRecieved='"&inRecieved&"',Recieved='',ThroughStep=0 where ID="& ID
	oConn.execute (sql)
	if CheckList_Usr<>"0" then oConn.execute "delete tblDocCheckTmp where ID="&CheckList_Usr
end sub

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
%>