魔兽世界带幻化的大象:哪里有asp+sql数据库的在线人数统计
来源:百度文库 编辑:高校问答 时间:2024/07/08 11:31:46
在线人数好搞,只需要ASP,用不到SQL
在网站根目录下建个Global.asa文件,并写入如下代码:
------------------------------
<script language="vbscript" runat="server">
Sub Application_OnStart()
Application("Total")=0
Application("OnLineCount")=0
End Sub
Sub Application_OnEnd()
End Sub
Sub Session_OnStart()
Dim strStartPage
strStartPage = Request.ServerVariables("Script_Name")
If strStartPage <> "/Index.asp" Then
Response.Redirect("/Err.asp")
End If
Session.TimeOut=30
Application.Lock
Application("Total")=Application("Total")+1
Application("OnLineCount")=Application("OnLineCount")+1
Application.UnLock
End Sub
Sub Session_OnEnd()
Application.Lock
Application("OnLineCount")=Application("OnLineCount")-1
Application.UnLock
End Sub
</script>
------------------------------
Total是访问该网站的总人次
OnLineCount就是在线人数
一楼的多了几句代码
容易吃药
Dim strStartPage
strStartPage = Request.ServerVariables("Script_Name")
If strStartPage <> "/Index.asp" Then
Response.Redirect("/Err.asp")
End If
这个可以去掉。这几句代码作用是如果第一次打开的叶面不是index.asp的话就跳转到err.asp叶面
一楼的,真的那么简单?100个人都在第一分钟浏览了网站一分钟就离开了,第三分钟时的在线人数是多少?我好想知道(我也不会)