addnew_05.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 55 行

<%option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<!--#include file ="Function.asp"-->
<%
	Dim IntComMsgID
	Dim IntTempletID
	Dim AccountIDs
	Dim SendType
	Dim ObjDB
	Dim StrFlowIDs
	Dim ArrIDs,i,j,FlowData

	if session("AccountID")="" then
%>
<script language=javascript>
  	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
   	Response.End
	end if
		
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	SendType = Request.QueryString("ComMsgType")
	IntComMsgID = Request.QueryString("ComMsgID")
	IntTempletID = Request.QueryString("TempletID")
	AccountIDs = Request.QueryString("AccountIDs")
	StrFlowIDs = Request.QueryString("FlowIDs")


	If SendType	= "1" Then
		Call NewSingleFlow(ObjDB,IntComMsgID,Replace(AccountIDs," ",""))
	ElseIf SendType = "2" Then
		Call CopyFlow(ObjDB,IntComMsgID,IntTempletID)
	ElseIf SendType = "3" Then
		ArrIDs = Split(StrFlowIDs,"$$")
		Redim FlowData((UBound(ArrIDs)+1)/5-1,4)
		For i = LBound(FlowData,1) To UBound(FlowData,1)
		FlowData(i,0) = ArrIDs(i*5)
		FlowData(i,1) = ArrIDs(i*5+1)
		FlowData(i,2) = Cint(ArrIDs(i*5+2))
		FlowData(i,3) = (ArrIDs(i*5+3)="1")
		FlowData(i,4) = (ArrIDs(i*5+4)="1")
		Next
		Call CreateDefineFlow(ObjDB,Session("AccountID"),IntComMSGID,FlowData)
	End If
	
	Call DoComMsg(ObjDB,IntComMsgID)
	
%>
<script language=javascript>
parent.frmToolbar.doList(3)
</script>