VBScript 执行方法不声明变量

Question

我正在研究动态“包含”方法，并最终找到了一个使用 VBScript 的执行函数的解决方案。这对我来说非常适合，但我注意到 Execute 执行代码，但此代码无法声明变量或函数之类的内容：

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath(strFile)) Then
  Set objFile = objFSO.OpenTextFile(Server.MapPath(strFile), 1)
  strSource = objFile.ReadAll

  // Filter out comment- and ASP tags cos they return errors
  strSource = Replace(strSource, Chr(60)&Chr(37), "")
  strSource = Replace(strSource, Chr(37)&Chr(62), "")
  objRegExp.Pattern = "^[ \t]*(//¦\')[\s\S]*?$"
  strSource = objRegExp.Replace(strSource, "")

  // Execute the code
  On Error Resume Next
  Execute strSource 'etc........
end if

为什么？谢谢你！

Answer 1

也许您想使用 ExecuteGlobal 相反。我想您的动态包含文件加载器位于子例程中，因此当您使用 Execute 时，新变量的范围位于该子例程内。 ExecuteGlobal 将确保新变量全局可用。