VBScript 执行方法不声明变量

Question

我正在研究动态“包含”方法并归结为使用 VBScript 的 Execute 函数的解决方案。这对我来说非常有效，但我注意到 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 将确保新变量在全局可用。