在线人数写法

然后编写count.asp
<%
user=request.cookies("21bbsusername")
totaluser=application("user")
if instr(totaluser,user)=0 then
application.lock
application("user")=totaluser&";"&user
application.unlock
end if
%>







最后显示在线人数。
user=split(application("user"),";")
num=ubound(user)
response.write num