VB6 類模組 (.cls) 無法直接嵌入 <script language="jscript" runat="server">,需改用 MSScriptControl 組件在 VB 代碼中執行 JScript 邏輯。
Dim sc As New ScriptControl,設置 sc.Language = "JScript"。sc.AddCode "function parseJSON(str) { return eval('(' + str + ')'); }"。var result = sc.Run("parseJSON", jsonString) 獲取解析後物件(返回 IDispatch* 需進一步封裝)。或改用 ASP 經典內建 JSON 解析類庫(如 aspJSON),避免跨語言調用複雜度。