发信人: intels(风的旗帜)
整理人: wuga(2002-09-07 08:23:33), 站内信件
|
< 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"))
……
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 >
----
最好的答案：
http://www.huachu.com.cn/itbook/itbookinfo.asp?lbbh=BD04605180
http://www.waterpub.com.cn/sale/result.asp?id=5301
最好的介绍：
http://www.intels.net/
----
Internet是第一生产力；
网站建设是它的核心；
ASP
就是网站的灵魂。
----
《ASP与相关数据库技术高级指南》［ASP的专家］
----
|
|