xml - vbScript 函数返回一个无法转换为 XSL 数据类型的值

Question

当我尝试使用 XSL 显示 XML 数据时出现以下错误。VBScript 函数抛出此错误：

函数“MyFuctionName”返回一个无法转换为 XSL 数据类型的值。可能是什么原因。
下面的代码快照：1.XML

        <Client>
             <ClientID>34987886</ClientID>
               <LnkSeqNo>1</LnkSeqNo>
        </Client>

2.XSL代码，功能。

    Dim ClientID 

    function SetClientID(ID)
        ClientID = ID
    end function

...

    <xsl:for-each select="Object/Client">
           <xsl:if test="LnkSeqNo[. = '1' or . = '57']"> 
              <xsl:value-of disable-output-escaping="yes" select="vbs:SetClientID(string(ClientID))"/>
..
          </xsl:if>
    </xsl:for-each>

Answer 1

问题是您的函数根本不返回任何值，并且xsl:value需要一个值。如果您只想执行该函数而不输出任何内容，您可以让该函数返回一个空字符串，但我建议您重新考虑您的方法。在 XSLT 中使用具有副作用的函数通常不是好的做法，并且与 XSLT 的原则背道而驰。