ايران ويج

If Context.Cache("ch") Is Nothing Then
Context.Cache.Insert("ch", "ffff", Nothing, DateTime.Now.AddSeconds(3600), New TimeSpan(0))
Else
Dim s As String = Context.Cache("ch")
End If