📄 getworkflowitem.asp
字号:
<%@LANGUAGE="VBSCRIPT" %>
<%option explicit %>
<%
Const XSLPATH = "/XSL/"
Dim sUID
Dim sPWD
dim sWFID
dim sProcID
Dim oWFE
Dim sProcedureXML
Dim domProcedures
Dim domXSL
sUID = Request.QueryString("UID")
sPWD = Request.QueryString("PWD")
sWFID = Request.QueryString("WFID")
sProcID = Request.QueryString("PROCID")
Set oWFE = Server.CreateObject("WorkFlowEngine.clsWorkflowManager")
If Not oWFE is Nothing Then
sProcedureXML = oWFE.getWorkflowItem(CStr(sUID), CStr(sPWD), CStr(sWFID), CStr(sProcID))
If sProcedureXML <>"" Then
Session("ProcedureXML") = sProcedureXML
Set domProcedures = Server.CreateObject("MSXML.DOMDocument")
domProcedures.loadxml sProcedureXML
Set domXSL = Server.CreateObject("MSXML.DOMDocument")
if domXSL.load("D:\bank_web\asp work flow/xsl/proceduredetail.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
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>shenqingbiao</title>
</head><body>
<p align="center">
<!--<a href="../workers/look_shenqing.asp?id=<%=sWFID%>"><h3 align="center">【查看申请表】</h3></a>--></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -