
If flag="S" Then
'在此处添加清除flowsn,也是写存储过程 只需要传一个值 OAflowsn,将PUFMF_OASTATUS=NULL,PURMF_OAFLOWSN=NULL,PURMF_OADOEMPID=NULL,PURMF_OADOTIME=MULL,PUFMF_IADOUNIT=NULL
for i = 0 to ubound(aa) -1
set mycmd1=server.createobject(")
mycmd1.ActiveConnection = cneo
= 2
= "canceloars"
mycmd1.Parameters.Append mycmd1.CreateParameter("oaflowsn", 200, 1,10, flowsn)
mycmd1.Parameters.Append mycmd1.CreateParameter("tempid", 5, 1, , CInt(aa(i)))
mycmd1.Execute()
Set mycmd1=Nothing
Next
'============================================================
for i = 0 to ubound(aa) - 1
response.write "1233"
set mycmd=server.createobject(")
mycmd.ActiveConnection = cneo
= 4
= "updateoastart"
mycmd.Parameters.Append mycmd.CreateParameter("oaflowsn", 200, 1,10, flowsn)
mycmd.Parameters.Append mycmd.CreateParameter("tempid", 5, 1, , CInt(aa(i)))
mycmd.Parameters.Append mycmd.CreateParameter("unitid", 200, 1, 20, Trim(applyunitid))
mycmd.Parameters.Append mycmd.CreateParameter("doempid", 200, 1, 20, Trim(logstr))
mycmd.Execute()
Set mycmd=Nothing
response.write CInt(aa(i))
response.write "1234"
Next
%><script language=JavaScript>alert("您成功绑定到OA请购单!")</script><%
End If
以上那样写不行哦,不知道改怎么在一个动作下同时完成调用两个存储过程哦,麻烦知道的教我下,谢谢先~~'在此处添加清除flowsn,也是写存储过程 只需要传一个值 OAflowsn,将PUFMF_OASTATUS=NULL,PURMF_OAFLOWSN=NULL,PURMF_OADOEMPID=NULL,PURMF_OADOTIME=MULL,PUFMF_IADOUNIT=NULL
for i = 0 to ubound(aa) -1
set mycmd1=server.createobject(")
mycmd1.ActiveConnection = cneo
= 2
= "canceloars"
mycmd1.Parameters.Append mycmd1.CreateParameter("oaflowsn", 200, 1,10, flowsn)
mycmd1.Parameters.Append mycmd1.CreateParameter("tempid", 5, 1, , CInt(aa(i)))
mycmd1.Execute()
Set mycmd1=Nothing
Next
'============================================================
for i = 0 to ubound(aa) - 1
response.write "1233"
set mycmd=server.createobject(")
mycmd.ActiveConnection = cneo
= 4
= "updateoastart"
mycmd.Parameters.Append mycmd.CreateParameter("oaflowsn", 200, 1,10, flowsn)
mycmd.Parameters.Append mycmd.CreateParameter("tempid", 5, 1, , CInt(aa(i)))
mycmd.Parameters.Append mycmd.CreateParameter("unitid", 200, 1, 20, Trim(applyunitid))
mycmd.Parameters.Append mycmd.CreateParameter("doempid", 200, 1, 20, Trim(logstr))
mycmd.Execute()
Set mycmd=Nothing
response.write CInt(aa(i))
response.write "1234"
Next
%><script language=JavaScript>alert("您成功绑定到OA请购单!")</script><%
End If
