addnew00.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 424 行 · 第 1/2 页

			strTemplet = strTemplet & "<option value="& objRS.Fields("ID")
			if Cstr(objRS.Fields("ID")) = TempletID then 
				strTemplet = strTemplet & " selected"
			'	SelectedID = objRS.Fields("DefaultFlowID")	
			end if
			
			strTemplet = strTemplet &">" & objRS.Fields("TempletTitle") &"</option>"
			objRS.MoveNext() 
		Loop
	Else
		strTemplet = "<option value=0>系统中尚未有定义好的模板</option>"
	End If
	
	objRS.Close()

'==============================================================
'	strSQL = "select ID,FlowName from t_OA_Work_Flow Where IsValid=1"
'	objRS.Open strSQL,objDB,1,3
'
''	If Not objRS.EOF Then
'		Do While Not objRS.EOF 
'			strFlow = strFlow & "<option value="& objRS.Fields("ID")
'			if  Cstr(objRS.Fields("ID")) = FlowID then
'				strFlow = strFlow & " selected"
'			end if
'			strFlow = strFlow & ">" & objRS.Fields("FlowName") &"</option>"
'			objRS.MoveNext() 
'		Loop
'	Else
'		strFlow = "<option value=0>系统中尚未有定义好的工作流</option>"
'	End If
'	objrs.Close()
'==============================================================
	
	strShowTemplet		=	""
    strShowTemplet		=	strShowTemplet	&	"<tr class=Ltr><td>公文模板：</td><td><select name=TempletID class=Input><option value=0 >无模板</option>"
    strShowTemplet		=	strShowTemplet &	strTemplet	&	"</select><td></tr>"	
	
'    strShowFlow			=	""
'    strShowFlow			=	strShowFlow	&	"<tr class=Ltr><td>工作流：</td><td><select name=FlowID class=Input><option value=0 >工作流未选</option>"
'    strShowFlow			=	strShowFlow &	strFlow	&	"</select><td></tr>"
    
    StrOptionExecute = GetOption(ObjDB,"Select AccountID,TrueName From t_OA_SYS_Account_Character",0)
    
    If ComMsgType = 1 Then 
		strShowWhat		=	"<tr class=Ltr><td>接收人：</td><td><select name=ExecuteID class=Input>"	& StrOptionExecute	&	"</select></td></tr>"
		strShowWhat		=	strShowWhat & "<input type=hidden name=PassType value=0>"
	ElseIF ComMsgType = 2 Then
		strShowWhat		=	strShowTemplet
	ElseIF ComMsgType = 3 Then
		'strShowWhat		=	strShowFlow
	ElseIF ComMsgType = 4 Then
		strShowWhat		=	strShowWhat & "<tr class=Ltr><td>接收人：</td><td><select name=ExecuteID class=Input>"	& StrOptionExecute	&	"</select></td></tr>"
		strShowWhat		=	strShowWhat & "<tr class=Ltr><td>审核类型</td><td><select name=PassType class=Input><option value=1 selected>审核</option><option value=0>阅读</option></select></td></tr>"
		strShowWhat		=	strShowWhat & "<tr class=Ltr><td> </td><td><input type=checkbox name=IsEnd value=1 id=IsEnd01 checked><Label For=IsEnd01>接受人处理完毕结束工作流</Label></td></tr>"	
	End If
	
	strShowFlowNode	=	""
	If ComMsgType	=	3 Or ComMsgType	=	2	Then
		Dim i
		strSQL	=	"Select * from t_OA_Work_Flow_Node Where FlowID	=	"	&	FlowID
		objrs.Open strSQL,objDB,1,3
		strShowFlowNode	=	strShowFlowNode	&	"<table class=Ltable cellspacing=1 cellpadding=3><tr class=LHtr><td colspan=5>本公文将按照以下工作流传递</td></tr>"
		Do While Not objrs.EOF
			StrOptionExecute = GetOption(ObjDB,"Select AccountID,TrueName From t_OA_SYS_Account_Character",objrs.Fields("ExecuteID"))
			strShowFlowNode	=	strShowFlowNode	&	"<tr class=Ltr><td><img src=../../../images/oa/work/flow/node.gif></td>"
			strShowFlowNode	=	strShowFlowNode	&	"<td><input name=NodeName value=" & objrs.Fields("NodeName")	&	"></td>"
			strShowFlowNode	=	strShowFlowNode	&	"<td>处理人："
			strShowFlowNode	=	strShowFlowNode	&	"<select name=ExecuteID class=Input2 size=5 multiple>"	& StrOptionExecute	&	"</select></td>"
			strShowFlowNode	=	strShowFlowNode	&	"<td>审核类型："
			strShowFlowNode	=	strShowFlowNode	&	"<select name=PassType><option value=1>审核</option><option value=0>阅读</option></select>"	&	"</td>"
			strShowFlowNode	=	strShowFlowNode	&	"<td>是否必须："
			strShowFlowNode	=	strShowFlowNode	&	"<select name=IsNeed><option value=1>是</option><option value=0>否</option></select>"	&	"</td>"
			objrs.MoveNext()
		Loop
		strShowFlowNode	=	strShowFlowNode	&	"</table>"
			objrs.Close()
	End If

'	Response.Write server.HTMLEncode(strShowFlowNode)
%>



<%
	Sub Main()
%> 
<script language=javascript>
var IsHTML = 1
function setIsHTML(t){
	IsHTML = t
	TBody1.style.display = "none"
	TBody2.style.display = "none"
	if(t==0)TBody1.style.display = ""
	if(t==1)TBody2.style.display = ""
}

function MyCheck(f){
	if(IsHTML==0)
		f.Msgbody.value = f.BodyText.value
	else
		f.Msgbody.value = BodyFrame.getHTML()
	return CheckForm(f)
}

function OnLeave(){
	//alert(d)
}

//document.body.onUnload() = OnLeave()
</script>

  <form name="thisForm" onsubmit="return(MyCheck(this))" method="post" action="">
	<input type=hidden name="Msgbody">

      <table class=Ltable cellspacing=1 cellpadding=3>
      
      <tr class=LHtr>
		<td>新增公文</td>
		<td></td>
      </tr>

      <tr class=Ltr>
		<td>公文标题：</td>
		<td><input name=title Check=1 Show="公文标题" class=Input></td>
      </tr>

      <tr class=Ltr>
		<td>是否带附件：</td>
		<td>
			<input type=radio name=isAttach value="0" onclick="ShowDir1.style.display='none'" checked>不带附件<input type=radio name=isAttach value="1" onclick="ShowDir1.style.display=''">带附件
			<input style="display:'none'" type=button class=button name=attach id=ShowDir1 value="添加附件" onclick="window.open('addAttach.asp?IntID=<%=IntID%>','add')">
		</td>
      </tr>

       <tr class=Ltr>
		<td>公文等级：</td>
		<td>
			<select name=MsgLevel class=Input>
				<option value=1>不紧急</option>
				<option value=2 selected>普通</option>
				<option value=3>紧急</option>
			</select>
		</td>
      </tr>

      <tr class=Ltr>
		<td>公文格式：</td>
		<td><input type=radio name=isHtml value=0 onclick=setIsHTML(0)>普通文本<input type=radio checked name=isHtml value=1 onclick=setIsHTML(1)>多格式</td>
      </tr>
      
			<%=strShowWhat%>		

      <tr class=Ltr id=TBody1 style="display:none">
		<td>内容：</td>
		<td>
			<textarea name="BodyText" class=textbody><%If NOt IsTempletHtml Then Response.Write strTempletBody%></textarea>
		</td>
      </tr>

      <tr class=Ltr id=TBody2>
		<td>内容：</td>
		<td>
			<iframe src="../../../Include/HTMLEditor.asp" class=textbody1 frameborder=0 id=BodyFrame></iframe>
		</td>
      </tr>
 
 
    
      
      </table>

<%=strShowFlowNode%>
	<table>
	<tr>
	<td colspan=2 align=right>
	<input type=hidden name=isSubmit value="TRUE">
	<input type=hidden name=IntID value=<%=IntID%>>
	<input type=hidden name=ComMsgType	value=<%=ComMsgType%>>
	<input type=submit class=button value="提 交" id=submit1 name=submit1>
	<input type=button class=button value="取 消" onclick="window.history.go(-1)" id=button1 name=button1>
	</td>
	</tr>
	</table>
   
  </form>

<%
	If IsTempletHtml Then
%>
	<script language=javascript>
	var isSetOK = false
	function CheckIsLoadOK(){
		if(BodyFrame.IsLoadOK&&(!isSetOK)){
			BodyFrame.setHTML("<%=Replace(strTempletBody,Chr(34),"\"&Chr(34))%>")
			isSetOK = true
		}
		setTimeout("CheckIsLoadOK()",500)
	}

	CheckIsLoadOK()
	</script>
<%
	End If
%>
  
<%
	End Sub
%>

<!--#include file ="Templet.asp"-->