网络编程
位置:首页>> 网络编程>> Asp编程>> asp如何定时执行约定的页面?

asp如何定时执行约定的页面?

 来源:asp之家 发布时间:2009-11-15 20:17:00 

标签:定时,程序,Application

global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("SessionCount") = 0
End Sub
Sub Session_OnStart
Application.Lock
Application("SessionCount") = Application("SessionCount") + 1
Application.Unlock
If Application("SessionCount") > 15 Then
Application.Lock
Application("SessionCount") = 0
Application.Unlock
Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set OpenMyFile = ObjMyFile.OpenTextFile(Server.MapPath("last-update.txt"))
MyFileValue = OpenMyFile.ReadLine
OpenMyFile.Close
If DateDiff("h",MyFileValue,NOW) > 6 Then
' 此处放置我们想要运行的程序,但不能用< % % >标签包含代码
Set WriteMyFile = ObjMyFile.CreateTextFile(Server.MapPath("last-update.txt"))
WriteMyFile.WriteLine(NOW)
WriteMyFile.Close
End if 
   End If
End Sub
</SCRIPT>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com