VBScript 返回错误 "Name redefined"

Question

我有一个警报框，如果我目前在测试数据库上，我希望警报框与实时数据库相比具有不同的文本。

所以我声明了一个名为 isTestDb 的变量并将其设置为 True ，但我不断收到这个烦人的错误:

Microsoft VBScript compilation error '800a0411'

Name redefined

myfiles/conn_open.asp, line 12

Dim isTestDb
----^

这是我的简单代码，它位于比我进行条件检查的级别高得多的包含中，我假设这不是问题。

Dim isTestDb

isTestDb = True


-- Much Later in another file somehwere

If isTestDb Then
    Response.Write("<h1>It is set to True</h1>")
    Response.End
Else
    Response.Write("<h1>It is set to False</h1>")
    Response.End
End If

我已经检查了我所有的工作目录，并且我确定变量没有在其他地方以相同的名称设置，我什至为变量尝试了不同的名称并得到了完全相同的错误。

Answer 1

在我的情况下，这是因为我在我的 .asp 文件中使用了两次引用了同一个文件:

<!--#include file="myFile.asp">

并且引用的文件中有声明，因此第二个声明与第一个声明冲突