您的位置：论坛首页 >> 软件论坛论坛

查看当前在线的用户

楼主： 2008-6-18 18:24:54

游客

编辑　

删除　

留言　

好友　

置顶　

取消精华

原文：查看当前在线的用户

<%
MyServer=Request.ServerVariables("SERVER_NAME")
MyPath=Request.ServerVariables("SCRIPT_NAME")
MySelf="HTTP://"&MyServer&MyPath
%>

WHOSON

<%
Application.Lock
Set TempStats=Application("stats")
Application.Unlock
%>

Total Users: <%=TempStats.Count %>

<%
TempItems=TempStats.Items
TempKeys=TempStats.Keys
For i=0 to UBOUND(TempKeys)
%>

<%
Next
%>

User ID	Current Page
<%=Tempkeys(i)%>	<%=TempItems(i)%>

回复帖子

RE: 查看当前在线的用户

　1、第1个回帖者得3分，第2个回帖者得2分，其余得1个积分！

　2、如是求助帖，前10位有效回帖用户每人再各加10分！

　3、如果乱回求助帖，让原帖作者很不满意，他有权收回积分，系统也同时对您惩罚，扣除10个积分

帐号：	用户名密码（已登录用户可不填）　注册新用户
妮称：	帐号妮称二选一,填妮称,无需注册,不得积分
内容：
表情符号：
附加码：	(附加码： 948 )