如何定时执行约定的页面？

答案：
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 >

上一个：如何读取Access数据库的表名？
下一个：如何对Oracle8数据库进行维护？