在線人數寫法

2022-06-13 來源: .NET編程

　　<%
user=requestcookies("bbsusername")
totaluser=application("user")
if instr(totaluseruser)= then
applicationlock
application("user")=totaluser&";"&user
applicationunlock
end if
%>
<html>
<head>
<meta httpequiv="refresh" content="">
</head>
<body>
</body>
</html>
最後顯示在線人數
user=split(application("user")";")
num=ubound(user)
responsewrite num

From:http://tw.wingwit.com/Article/program/net/201311/14035.html