哪里有asp+sql数据库的在线人数统计

在线人数好搞，只需要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