您好,我不知道您目前是否使用Easyflow ASP版本,小弟僅能提供ASP版本的sample code。
在 表單ID_AfterApprove.asp裡面原廠都有提供一段說明。
On Error resume next
dim rstTRFormProperty
set rstTRFormProperty = Session("rstTRFormProperty")
if Request("UndoApprove") = "Y" then '撤簽後,執行本段程式碼.
else
'您可以使用 Session("blnCaseClosed") 來判斷表單是否已經結案.
'if Session("blnCaseClosed") = True then
' '=======>>已經結案
' '您可以使用 rstTRFormProperty("resda021") 來判斷簽核的結果
' select case rstTRFormProperty("resda021")
' case 2 '2=同意
' '範例: 新增一筆資料到系統Default資料庫中的 table1
' dim objDB,rs
' set objDB = Server.CreateObject("EF2KPublic.Database")
' set rs = objDB.CreateRecordset("select * from table1 where (1=2)",Session("strProcID"))
' rs.AddNew
' rs("fld1") = "AAA"
' rs("fld2") = "BBB"
' set rs = objDB.UpdateRecordset(rs,Session("strProcID"))
'
' '範例: 新增一筆資料到外部資料庫的 table1 (使用自訂連線字串,支援Transaction)
' dim objDB,rs,strConn
' strConn = "driver={SQL Server};server=(local);database=DB1"
' set objDB = Server.CreateObject("EF2KPublic.Database")
' set rs = objDB.CreateRecordsetB("select * from table1 where (1=2)",strConn)
' rs.AddNew
' rs("fld1") = "AAA"
' rs("fld2") = "BBB"
' set rs = objDB.UpdateRecordsetB(rs,strConn)
'
' '範例: 新增一筆資料到外部資料庫的 table1 (使用自訂連線字串,不支援 Microsoft Transaction Server)
' dim objDBA,rs,strConn
' strConn = "dsn=AccessDB;uid=admin;pwd="
' set objDBA = Server.CreateObject("EF2KPublicA.DatabaseA")
' set rs = objDBA.CreateRecordsetA("select * from table1 where (1=2)",strConn)
' rs.AddNew
' rs("fld1") = "AAA"
' rs("fld2") = "BBB"
' set rs = objDBA.UpdateRecordsetA(rs,strConn)
' case 3 '3=不同意
' case 4 '4=已抽單
' end select
'else
' '=======>>尚未結案
'end if
end if