procedureitem.asp

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

<%@LANGUAGE="VBSCRIPT" %>
<%Option Explicit %>

<%
  Const XSLPATH = "/XSL/"

  Dim sUID
  Dim sPWD
  Dim sWFID
  Dim sProcID
  Dim oWFE
  Dim sProcedureXML
  Dim domProcedure
  Dim domXSL

  sUID = Session("UID")
  sPWD = Session("PWD")
  sWFID = Session("WFID")
  sProcID = Session("ProcID")

  Set oWFE = Server.CreateObject("WorkFlowEngine.clsWorkflowManager")

  If Not oWFE is Nothing Then
    sProcedureXML = oWFE.getWorkflowItem(CStr(sUID), CStr(sPWD), 
                       CStr(sWFID), CStr(sProcID))

    response.write sProcedureXML
    If sProcedureXML <>"" Then
      
      Set domProcedure = Server.CreateObject("MSXML.DOMDocument")
      domProcedure.loadxml sProcedureXML

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

      Response.Write domProcedure.transformnode(domXSL)
    End If
  End If

  Set oWFE = Nothing
  Set domProcedure = Nothing
  Set domXSL = Nothing
%>