addnew4.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
	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

	Set objDB = server.CreateObject("ADODB.Connection")
	Set objRS = server.CreateObject("ADODB.Recordset")
	OpenDB objDB
	
	strSQL = "select ID,FlowName from t_OA_Work_Flow where IsValid=1"
	objRS.Open strSQL,objDB,1,3
	i=0
	If Not objRS.EOF Then
		Do While Not objRS.EOF 
			if i=0 then 
				strFlow =strFlow & "<option value="& objRS.Fields("ID") &" selected>" & objRS.Fields("FlowName") &"</option>"
			else
				strFlow =strFlow & "<option value="& objRS.Fields("ID") &">" & objRS.Fields("FlowName") &"</option>"
			end if
			objRS.MoveNext() 
			i = i + 1
		Loop
	Else
		strFlow = "<option value=0>系统中尚未有定义好的工作流</option>"
	End If
	
	strSQL = "select ID,TempletTitle from t_OA_Work_ComMessage_Templet"
	objRS.Close()
	objRS.Open strSQL,objDB,1,3
	i = 0
	If Not objRS.EOF Then
		Do While Not objRS.EOF 
			if i=0 then 
				strTemplet =strTemplet & "<option value="& objRS.Fields("ID") &" selected>" & objRS.Fields("TempletTitle") &"</option>"
			else
				strTemplet =strTemplet & "<option value="& objRS.Fields("ID") &">" & objRS.Fields("TempletTitle") &"</option>"
			end if
			objRS.MoveNext()
			i = i + 1 
		Loop
	Else
		strTemplet = "<option value=0>系统中尚未有定义好的模板</option>"
	End If
%>

<%
	Sub Main()
%>

<script language=javascript>
function Sel(id){
	var theForm = document.forms[0]
	SelTemplet.style.display = 'none'
	SelFlow.style.display = 'none'
	theForm.TempletID.Check = 0
	theForm.FlowID.Check = 0
	if(id==2){
		SelTemplet.style.display = ''
		theForm.TempletID.Check=1
	}
	if(id==3){
		SelFlow.style.display = ''
		theForm.FlowID.Check=1
	}
}
</script>
<form name="thisForm"  method="post" action="Addnew.asp?ID=1">

<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
	<td width=20%>新建公文</td>
	<td width=80%></td>
</tr>
<tr class=Ltr>
	<td>公文类型</td>
	<td>
		<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/type2.gif"></td><td>公文模板</td></tr>
		<tr><td><input type=radio name=ComMsgType value="3" onclick="Sel(3)"></td><td><img src="../../../images/oa/work/commessage/type3.gif"></td><td>系统工作流</td></tr>
		<tr><td><input type=radio name=ComMsgType value="4" onclick="Sel(4)"></td><td><img src="../../../images/oa/work/commessage/type3.gif"></td><td>自定义工作流</td></tr>
		</table>	
	</td>
</tr>
<tr class=Ltr style="display='none'" id=SelTemplet>
	<td>请选择模板</td>
	<td><select name=TempletID Check=0 Show="模板" class=Input size=5><%=strTemplet%></select></td>
</tr>
<tr class=Ltr style="display='none'" id=SelFlow>
	<td>请选择工作流</td>
	<td><select name=FlowID Check=0 Show="工作流" class=Input size=5><%=strFlow%></select></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" -->