我在實(shí)驗(yàn)中發(fā)現(xiàn)在 asp.net 中可以使用計(jì)時(shí)器（Timer）完成一些定時(shí)動(dòng)作。這一點(diǎn)可能會(huì)對(duì)我們的一些 Web 程序有益。

下面首先介紹我測(cè)試使用的一個(gè)例子：

首先在 global.asax 中的 application_OnStart 事件過(guò)程中定義計(jì)時(shí)器，代碼如下：
[VB.NET] global.asax
<%@ import Namespace="System.Timers" %>
<script runat="server">

   Sub Application_OnStart(sender As Object, e As EventArgs)
       ' 創(chuàng)建一個(gè)計(jì)時(shí)器，單位：毫秒
       Dim aTimer As New System.Timers.Timer(10000)

       ' 將 Fresher 指定為計(jì)時(shí)器的 Elapsed 事件處理程序
       AddHandler aTimer.Elapsed, AddressOf Fresher

       ' AutoReset 屬性為 true 時(shí)，每隔指定時(shí)間循環(huán)一次；
       ' 如果為 false，則只執(zhí)行一次。
       aTimer.AutoReset = True
       aTimer.Enabled = True
        
       ' 先給 Application("TimeStamp") 指定一個(gè)初值
       Application.Lock()
       Application("TimeStamp") = DateTime.Now.ToString()
       Application.UnLock()
   End Sub

   Sub Fresher(sender As Object, e As ElapsedEventArgs)
       Application.Lock()
       Application("TimeStamp") = DateTime.Now.ToString()
       Application.UnLock()
   End Sub

</script>
 

然后我們簡(jiǎn)單寫(xiě)一個(gè) test.aspx 來(lái)查看 Application("TimeStamp") 的值。代碼如下：
[VB.NET] test.aspx
<%
    Response.Write(Application("TimeStamp"))
%>
 < meta http-equiv="Refresh" content="3; 

url=http://www.cenpok.net">