Classic ASP中能否动态定义CONST常量替代静态引入的常量

VBScript 中的Const关键字属于编译期语义，所有常量声明会在脚本加载阶段就完成解析，不会等到运行时再读取变量值。你代码中Const cArray(i, 0) = cArray(i, 1)的写法，会被编译器直接把cArray(i, 0)识别为固定的常量名，循环执行第二次时就会触发重定义报错，本身VBScript就不支持运行时动态生成Const常量。

方案1：使用字典替代常量集合（最推荐） #

用Scripting.Dictionary存储键值对，实现和常量等效的调用效果，逻辑简单且安全：

Dim constDict
Set constDict = Server.CreateObject("Scripting.Dictionary")

If (Not rsVars.Eof) Then
    cCount = rsVars.RecordCount
    For i = 0 To cCount - 1
        constDict.Add rsVars("VariableNm"), rsVars("Value")
        rsVars.MoveNext
    Next
End If

调用时直接用constDict("原常量名")即可，比如原代码写USER_DEFAULT_ROLE，现在改为constDict("USER_DEFAULT_ROLE")。

方案2：动态声明全局变量（适配原有调用逻辑） #

如果不想修改原有代码的常量调用写法，可以用Execute语句动态执行变量声明，适配原有逻辑：

' 填充数组的原有逻辑保持不变
If (Not rsVars.Eof) Then
    cCount = rsVars.RecordCount
    ReDim cArray(cCount - 1, 1)
    For i = 0 To cCount - 1
        cArray(i, 0) = rsVars("VariableNm")
        cArray(i, 1) = rsVars("Value")
        rsVars.MoveNext
    Next
End If

' 动态生成全局变量
For i = 0 To cCount - 1
    ' 转义值中的双引号避免语法错误
    Dim safeVal
    safeVal = Replace(cArray(i, 1), """", """""")
    Execute "Dim " & cArray(i,0) & ":" & cArray(i,0) & " = """ & safeVal & """"
Next

执行后可以直接用原有常量名作为变量调用，无需修改后续业务代码。

• Execute方案存在脚本注入风险，需要确保数据库中VariableNm字段的值都是合法的变量名，没有恶意代码
• 如果存储的值是数字、布尔等非字符串类型，动态声明时可以去掉外层的双引号，避免类型转换问题

内容的提问来源于stack exchange，提问作者Brian Platz