如何检查对象是否在Application对象中

Question

我认为这很容易，但下面的代码给出了......

  

Microsoft VBScript运行时错误'800a01a8'

     

需要对象：'应用程序（...）'

     

/include/setup.asp，第7行

familyMember

def user_json Rails.cache.fetch("users", expires_in: 12.hours) do User.all.to_json end end 是另一个功能。

我该如何解决这个问题？

Answer 1

此处的问题是connectionString变量在实际上包含Object时被视为string。

Set只应用于存储Object变量，这也适用于Application("varname")样式变量。移除Is Nothing检查，因为这也引用了Object个变量，并将其替换为Len(connectionString) < 1支票。

Function getConnectionString() 
    Dim connectionString
    connectionString = Application("ConnString")

    If Len(connectionString & "") < 1 Then
        'loadConnectionString() should return a string not an Object
        'may need to be amended.
        connectionString = loadConnectionString()
        Application.Lock
        Application("ConnString") = connectionString
        Application.Unlock
    End If
    getConnectionString = connectionString
End Function