在XSL中实现对话框交互

 

<xsl:script>
   var v = new ActiveXObject("MSScriptControl.ScriptControl.1");
   v.Language="VBScript";
   var ret = v.eval('MsgBox("按确定将打印所有固定资产为1的项目，否则打印为0的项目。",65,"打印确认对话框")');
   function getConfirm()
   {    
        var retValue = (ret==1)? true : false;
        return retValue;
   }
</xsl:script>

<xsl:template match="Records">
        <xsl:if expr="getConfirm()">
            <xsl:apply-templates select="Record[@GDZC=0]"/>
        </xsl:if>
        <xsl:if expr="!getConfirm()">
            <xsl:apply-templates select="Record[@GDZC=1]"/>
        </xsl:if>
    </xsl:template>