没那么简单,这样:
 Dim Timer1 As System.Timers.Timer
    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在应用程序启动时激发
        Dim a, ed
        Timer1 = New System.Timers.Timer()        AddHandler Timer1.Elapsed, AddressOf OnTimer
        Timer1.Interval = 5000
        Timer1.Enabled = True
        Timer1.Start()
    End Sub    Public Sub OnTimer(ByVal source As Object, ByVal e As ElapsedEventArgs)
       i=i+1
     WriteXmlFile(Server.MapPath("Data1.xml"))
    End Sub