addnew_04.asp

功能齐全的oa系统

<%option explicit%>
<%If Session("AccountID")="" Then Response.Redirect "Login.asp"%>

<!--#include virtual = "Include/DataEnvi.asp"-->
<!--#include virtual = "Include/String.asp"-->
<!--#include virtual = "Include/Page.asp"-->
<%
	Dim ComMsgType,i,conn
	ComMsgType = Request.Form("ComMsgType")
	If ComMsgType<>"" Then
		If ComMsgType = 1 Then 
			Response.Redirect "addnew1.asp"
		ElseIf ComMsgType = 2 Then
			Response.Redirect "addnew20.asp?TempletID=" & Request.Form("TempletID")
		ElseIf ComMsgType = 3 Then
			Response.Redirect "addnew3.asp"
		End If
	End If
	
	Dim objDB,objRS,strSQL,strBody
	Dim AccountID
	Dim strFlow,strTemplet,StrNameList
	
	Set objDB = server.CreateObject("ADODB.Connection")
	Set objRS = server.CreateObject("ADODB.Recordset")
	OpenDB objDB
		
	strSQL = "select ID,FlowName from t_OA_Work_Flow"
	objRS.Open strSQL,objDB,1,3
	i = 0
	If Not objRS.EOF Then
		Do While Not objRS.EOF 
			strTemplet = strTemplet & "<option value="& objRS.Fields("ID") &">" & objRS.Fields("FlowName") &"</option>"
			objRS.MoveNext()
			i = i + 1 
		Loop
	End If
	objRS.Close
	
	if strTemplet = "" then
	  strTemplet = "<option>暂无任何系统工作流</option>"
	end if
	
	strSQL = "select AccountID,TrueName from t_OA_SYS_Account_Character"
	objRS.Open strSQL,objDB,1,3
	i = 0
	If Not objRS.EOF Then
		Do While Not objRS.EOF 
			StrNameList =StrNameList & "<option value="& objRS.Fields("AccountID") &">" & objRS.Fields("TrueName") &"</option>"
			objRS.MoveNext()
			i = i + 1 
		Loop
	End If
	objRS.Close
	
	
%>

<%
	Sub Main()
%>

<script language=javascript>
var NowID = 1
function Sel(id){
	var theForm = document.forms[0]
	SelTo.style.display = 'none'
	SelTemplet.style.display = 'none'
	DefineFlow.style.display = 'none'
	theForm.TempletID.Check = 0
	theForm.AccountIDs.Check = 0
	if(id==1){
		SelTo.style.display = ''
		theForm.AccountIDs.Check=1
	}
	if(id==2){
		SelTemplet.style.display = ''
		theForm.TempletID.Check=1
	}
	if(id==3){
		DefineFlow.style.display = ''
	}
	NowID = id
}

function CheckMe(f){
	if(NowID==3){
		if(frameFlow.DefineString==""){
			top.doAlert(1,"您还没有定义任何节点")
			return false
		}
		else{
			thisForm.FlowIDs.value = frameFlow.DefineString
			return true
		}
	}
	return CheckForm(f)
}


</script>
<form name="thisForm" onsubmit="return(CheckMe(this))" method="Get" action="Addnew_05.asp">
<input type=hidden name=FlowIDs value="">
<input type=hidden name=ComMsgID value=<%=Request.QueryString("ComMsgID")%>>
  <table class=Ltable cellspacing=1 cellpadding=3>
    <tr class=LHtr> 
      <td colspan="2">新建部门需求</td>
    </tr>
    <tr class=Ltr> 
      <td width="20%">申请类型</td>
      <td width="80%"> <table cellspacing=1 cellpadding=3>
          <tr> 
            <td><input type=radio name=ComMsgType value="1" checked  onclick="Sel(1)"></td>
            <td><img src="../../../images/oa/work/commessage/type1.gif"></td>
            <td>普通发送</td>
          </tr>
          <tr> 
            <td><input type=radio name=ComMsgType value="2" onclick="Sel(2)"></td>
            <td><img src="../../../images/oa/work/commessage/type3.gif"></td>
            <td>系统工作流</td>
          </tr>
        </table></td>
    </tr>
    <tr class=Ltr  id=SelTo> 
      <td>请选择接收人</td>
      <td><select name=AccountIDs Check=1 Show="接收人" multiple class=Input size=10>
          <%=StrNameList%></select></td>
    </tr>
    <tr class=Ltr  id=SelTemplet style="display=none"> 
      <td>请选择工作流</td>
      <td> <select name=TempletID Check=0 Show="工作流" class=Input size=10>
          <%=strTemplet%></select></td>
    </tr>
    <tr class=Ltr  id=DefineFlow style="display=none"> 
      <td colspan=2><iframe  width=100% height=300 src="View_Flow_Create.asp?ID=<%=Request.QueryString("ComMsgID")%>" frameborder=0 id=frameFlow></iframe></td>
    </tr>
  </table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<input type=hidden name="IsFromAddnew4" value="True">
<td></td><td><input type=submit class=button value="确    定" ></td>
</tr>
</table>
   
</form>
  
<%
	End Sub
%>
<!-- #include file="Templet.asp" -->