افزايش كارآئی برنامه های وب در ASP.NET 2.0

درج يك آيتم در cache با وابستگی به يك شی ( فايل )

<%@ Page Language="VB" Culture="fa-IR" UICulture="fa-IR" %>
<%@ Import Namespace="System.IO" %>

<script runat="server">
'=====================================================================
Sub cmdModify_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdModify.Click
lblInfo.Text &= "تغيير فايل وابسته<br />"
Dim w As StreamWriter = File.CreateText(Server.MapPath("dependency.txt"))
w.Write(DateTime.Now)
w.Flush()
w.Close()
End Sub
'=====================================================================
Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
   lblInfo.Text &= "ايجاد آيتم وابسته<br />"
Cache.Remove("File")
Dim dependency As New System.Web.Caching.CacheDependency( _
Server.MapPath("dependency.txt"))
Dim item As String = "آيتم cache شده وابسته"
lblInfo.Text &= "اضافه كردن آيتم وابسته<br />"
Cache.Insert("File", item, dependency)
End If
End Sub
'=====================================================================
Sub cmdGetItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdGetItem.Click
If Cache("File") Is Nothing Then
    lblInfo.Text &= " آيتم مورد نظر در ‌‍cache موجود نمی باشد و امكان بازيابی آن وجود ندارد <br />"
Else
   Dim cacheInfo As String = CType(Cache("File"), String)
     lblInfo.Text &= " آيتم مورد نظر در ‌‍cache موجود است و امكان بازيابی آن وجود دارد <br />"
End If
End Sub
'=====================================================================
</script>

<html xmlns="http://www.w3.org/1999/xhtml" dir="rtl">
<head id="Head1" runat="server">
<title>تست caching </title>
</head>
<body style="font-family: Tahoma">
   <form id="Form1" method="post" runat="server">
    <asp:button id="cmdModify" runat="server" Text="تغيير فايل" Width="103px"
                       Font-Names="Tahoma"></asp:button>
    <asp:button id="cmdGetItem" runat="server" Text="بررسی آيتم cache شده" Width="140px"
                      Height="24px" Font-Names="Tahoma"></asp:button><br /><br />
     <asp:label id="lblInfo" runat="server" Width="480px" Height="192px" BorderWidth="2px"
                     BorderStyle="Groove" Font-Names="Tahoma" Font-Size="Small"
                     BackColor="LightYellow"></asp:label>
</form>
</body>
</html>