洛阳拍古装照多少钱:ASP程序设计
来源:百度文库 编辑:高校问答 时间:2024/05/11 16:47:58
把一下代码保存为Global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application ("visits") = GetVisitsNum()
Application ("Active") = 0
End Sub
Sub Session_OnStart
Application.lock
Application ("visits") = Application ("visits") + 1
Application ("Active") = Application ("Active") + 1
Application.unlock
End Sub
Sub Session_OnEnd
Application.lock
Application ("Active") = Application ("active") - 1
Application.unlock
End Sub
Sub Application_OnEnd
SaveVisitsNum()
End Sub
Function GetVisitsNum()
Set fso = Server.CreateObject ("Scripting.FileSystemObject")
Application ("strCounterFileName") = Server.MapPath ("counter.txt")
Set fsoCounterFile = fso.OpenTextFile (Application ("strCounterFileName"), 1, True)
If (fsoCounterFile. AtEndofStream) then
GetVisitsNum = 0
Else
GetVisitsNum = fsoCounterFile. ReadLine ()
End if
fsoCounterFile. Close()
End Function
Function SaveVisitsNum()
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fsoCounterFile = fso.CreateTextFile(Application("strCounterFileName"), True)
fsoCounterFile.WriteLine(Application("visits"))
fsoCounterFile.Close()
End Function
</SCRIPT>
在你想看到计数器的页面上加上以下代码
当前在线人数为<%=Application("Active")%>人
本站被访问次数为<%=Application("visits") %次
搜搜 应该非常多类似的程序 载个看看
我觉得不需要用ASP,直接用客户端的VbScript或者JavaScript就可以了.