workflowlist.asp

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· ASP 代码 · 共 43 行

<%@LANGUAGE="VBSCRIPT" %>
<%option explicit %>

<%
  Const XSLPATH = "/XSL/"



  Dim sUID
  Dim sPWD
  dim sWFID
  Dim oWFE
  Dim sProcedureXML
  Dim domProcedures
  Dim domXSL

  sUID = Session("UID")
  sPWD = Session("PWD")
  
  Set oWFE = Server.CreateObject("WorkFlowEngine.clsWorkflowManager")

  If Not oWFE is Nothing Then
    sProcedureXML = oWFE.getWorkflowList(CStr(sUID), CStr(sPWD))

    If sProcedureXML <> "" Then

      Set domProcedures = Server.CreateObject("MSXML.DOMDocument")
      domProcedures.loadxml sProcedureXML

      Set domXSL = Server.CreateObject("MSXML.DOMDocument")
      domXSL.load "D:\bank_web\asp work flow\XSL/procedurelist.xsl"

      Response.Write domProcedures.transformnode(domXSL)

    End If
  End If

  Set oWFE = Nothing
  Set domProcedures = Nothing
  Set domXSL = Nothing
%>