processitem.asp

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

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

<%
  Const XSLPATH = "/XSL/"

  Dim sUID
  Dim sPWD
  dim sWFID
  dim sProcID
  Dim oWFE
  Dim sInProcedureXML
  Dim sOutProcedureXML
  Dim domProcedures
  dim domXSL
  Dim currNode

  sUID = Request.QueryString("UID")
  sPWD = Request.QueryString("PWD")
  sWFID = Request.QueryString("WFID")
  sProcID = Request.QueryString("PROCID")

  sInProcedureXML = Session("ProcedureXML")

  Set domProcedures = Server.CreateObject("MSXML.DOMDocument")
  if domProcedures.loadxml(sInProcedureXML) then 
	  set currNode = domProcedures.documentElement.selectSingleNode("UserResponse")

	  currNode.childNodes.Item(0).Text = "0"
	  currNode.childNodes.Item(1).Text = Request.Form("cboResponse")

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

  	  If Not oWFE is Nothing Then
    	sOutProcedureXML = oWFE.executeWorkflow(CStr(domProcedures.XML))
	  end if

      If sOutProcedureXML <> "" Then

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

      Set domXSL = Server.CreateObject("MSXML.DOMDocument")
      if domXSL.load("D:\bank_web\asp work flow\XSL/proceduredetailresponse.xsl") then
      	Response.Write domProcedures.transformnode(domXSL)
	  else
		response.write domXSL.parseError.reason 
	  end if
    End If
  End If

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