程序代码：

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