在線人數好搞，只需要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葉面