test.aspx.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 27 行

Imports System.IO
Imports System.Data
Imports System.Type
Partial Class FileManager_test
    Inherits System.Web.UI.Page
    Dim onRemove As CacheItemRemovedCallback = Nothing

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        onRemove = New CacheItemRemovedCallback(AddressOf RemovedCallback)
        If IsNothing(Cache("ShareFile")) Then
            RemovedCallback(Nothing, Nothing, CacheItemRemovedReason.DependencyChanged)
        End If
    End Sub
    Public Sub RemovedCallback(ByVal key As String, ByVal value As Object, ByVal reason As CacheItemRemovedReason)
        Dim ds As New DataSet
        Dim fileName As String
        fileName = "f:\webdisk\xml\sharefile.xml"
        If File.Exists(fileName) Then
            ds.ReadXml(fileName)
        End If
        Dim dep As CacheDependency = New CacheDependency(fileName, DateTime.Now) '创建依赖对象'
        '  Cache.Insert("ShareFile", ds, dep)

        Cache.Insert("ShareFile", ds, dep, DateTime.Now.AddSeconds(60), TimeSpan.Zero, CacheItemPriority.High, onRemove)
    End Sub
End Class