未将对象引用设置到对象的实例,这是什么问题

Question

未将对象引用设置到对象的实例。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。源错误: 
行 3：  Reloadtime=30
行 4：  Name="TT"
行 5：  Value="FU"
行 6：  If Not IsEmpty Then
行 7：    Response.Write(VALUE)
 

Answer 1

对象没有实例化
"If Not IsEmpty Then"这句IsEmpty后面有参数吧

Answer 2

<%@ Page Language="vb"   Inherits="Cls_Cache" Debug="true"%>
<%
Dim TT As New Cls_Cache
TT.Reloadtime=30
TT.Name="TT"
TT.Value="FU"
'If Not TT.IsEmpty Then
'  Response.Write(TT.VALUE)
'End If
Response.WRite(TT.Name)
%>如果我注释掉 Value="FU"
 If Not IsEmpty Then
 Response.Write(VALUE)
这三行就没错下面是Class的源码
Imports System.Web
Imports System.Web.Caching
Imports Microsoft.VisualBasic'Imports Microsoft.ADoDB
Public Class Cls_Cache 
   Inherits System.Web.UI.Page
   Public Reloadtime,MaxCount As Integer
   Private LocalCacheName,CacheName As String
   Private CacheData
   Private Cache1 As New System.Web.Caching.Cache
   Public Property Name() As String
       Set(ByVal vNewValue As String)
   LocalCacheName=LCase(vNewValue)
       End Set
   Get 
       Return LocalCacheName
       End Get
   End Property
      Public  Property  Value() As String
      Set(ByVal vNewValue As String)
          SetValue(vNewValue)
  End Set
 Get
Return GetValue()
    End Get
End Property    Private Function GetValue()     If LocalCacheName<>"" Then 
CacheData=Cache1( CacheName &"_" & LocalCacheName)
If IsArray(CacheData) Then
GetValue=CacheData(0)
Exit Function
Else
Err.Raise(vbObjectError + 1, "LvbbsCacheServer", " The CacheData Is Empty.")
End If
Else
Err.Raise(vbObjectError + 1, "LvbbsCacheServer", " please change the CacheName.")
End If
        
End Function    Private Sub SetValue(Byval vNewValue As String)
         
   If LocalCacheName<>"" Then 
 CacheData = Cache1(CacheName & "_" & LocalCacheName).Value
 If IsArray(CacheData) Then
CacheData(0)=vNewValue
CacheData(1)=Now()
Else
ReDim CacheData(2)
CacheData(0)=vNewValue
CacheData(1)=Now()
End If
SetCache(CacheName & "_" & LocalCacheName,CacheData)
Else
Err.Raise(vbObjectError + 1, "LvbbsCacheServer", " please change the CacheName.")
End If End Sub    Public Function IsEmpty()
IsEmpty=True
CacheData=Cache1( CacheName & "_" & LocalCacheName)
If Not IsArray(CacheData) Then Exit Function
If Not IsDate(CacheData(1)) Then Exit Function
If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime  Then
IsEmpty=False
End If
End Function
   Private Sub SetCache(ByVal SetName,ByVal NewValue)
       Cache1(SetName)=NewValue
   End Sub 
   Public Sub DelCache(ByVal MyCaheName As String)
Cache1( CacheName & "_" & MyCaheName).Remove
   End SubEnd Class

Answer 3

他到这里就出错了
Value="FU"

Answer 4

If LocalCacheName<>"" Then 
这里错。LocalCacheName为Nothing

Answer 5

还有你的IsEmpty没有返回true或false丫