没那么简单,这样:
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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货