<script language="vb" runat="server">
Protected Overrides Sub OnInit(ByVal e As EventArgs)
Dim value As String
If Not Cache.Item("Test") Is Nothing Then
Response.Write("Cache Hit<br/>")
value = Cache.Item("Test")
Else
Response.Write("Repopulating<br/>")
value = "Some Value"
Cache.Item("Test") = value
End If
lblTest.Text = value
End Sub
Protected Sub btnClearCache_Click(ByVal sender As Object, ByVal e As EventArgs)
Cache.Remove("Test")
If Cache.Item("Test") Is Nothing Then
Response.Write("Cache is cleared<br/>")
Else
Response.Write("Cache was not cleared<br/>")
End If
End Sub
Protected Sub btnReload_Click(ByVal sender As Object, ByVal e As EventArgs)
Response.Redirect("CacheTest.aspx")
End Sub
</script>
<html>
<body>
<form runat="server" ID="Form1">
<asp:Label ID="lblTest" Runat="server"/><br/>
<asp:Button ID="btnClearCache" Runat="server"
Text="Clear Cache" OnClick="btnClearCache_Click"/>
<asp:Button ID="btnReload" Runat="server"
Text="Reload Page" OnClick="btnReload_Click"/>
</form>
</body>
</html>