vb System.Web.UI.Page.Cache类(方法)实例源码

' This is a simple page that demonstrates how to place a value
  ' in the cache from a page, and one way to retrieve the value.
  ' Declare two constants, myInt1 and myInt2 and set their values
  ' and declare a string variable, myValue.
  Const myInt1 As Integer = 35
  Const myInt2 As Integer = 77
  Dim myValue As String


  ' When the page is loaded, the sum of the constants
  ' is placed in the cache and assigned a key, key1.
  Sub Page_Load(sender As [Object], arg As EventArgs)
     Cache("key1")= myInt1 + myInt2
  End Sub 'Page_Load


  ' When a user clicks a button, the sum associated
  ' with key1 is retrieved from the Cache using the 
  ' Cache.Get method. It is converted to a string
  ' and displayed in a Label Web server control.
  Sub CacheBtn_Click(sender As Object, e As EventArgs)
    If Cache("key1") Is Nothing Then
     myLabel.Text = "That object is not cached."
    Else
     myValue = Cache.Get("key1").ToString()
     myLabel.Text = myValue
    End If
  End Sub 'CacheBtn_Click