view_flow_create_05.asp

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

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include file="Function.asp" -->
<%
	Dim ObjDB,StrIDs
	Dim ArrIDs,FlowData
	Dim i,j
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	StrIDs = Request.QueryString("IDs")
	
	ArrIDs = Split(StrIDs,"$$")
	
	Redim FlowData((UBound(ArrIDs)+1)/5,4)
	For i = LBound(FlowData,1) To UBound(FlowData,1)-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+2)="1")
		FlowData(i,4) = (ArrIDs(i*5+2)="1")
	Next
	
	
	'CreateDefineFlow(ObjDB,CreateID,ComMSGID,FlowData)
%>