Use two files. Global.asa and online.asp, give the source code of the two files. Oh, I am also a rookie, everyone cheers!
Sub Application_OnStart Application ("Online") = 0 End Sub
Sub session_onstart application.lock application ("online") = application ("online") 1 Application.unlock End Sub
If you prevent refresh, don't follow this! SUB session_onend application.lock application ("online") = Application ("Online") - 1 Application.unlock End Sub script>
Online.asp code is as follows! <% @ language = vbscript%>
Show online number Title> head> Welcome to this website, currently <% = Application ("Online")%> Online center> body>