如何将访问者数目周期性地保存?
<script LANGUAGE="VBScript" RUNAT="Server"> SUB Session-OnStart ... Application.Lock Application("visitors")=Application("visitors") + 1 ' 增加访问计数 t-visitors = Application("visitors") Application.UnLock Session("VisitorID")=t-visitors If t-visitors MOD 15 = 0 Then Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile-(Application ("VisitorCountFilename"),trUE,FALSE) ' 周期性地保存到文件中 Application.Lock Out.Write(t-visitors) Application.UnLock End If ... END SUB </script>
|