我想在我自己的博客中写入一段代码，怎么写？ 30
我神情的是“中国博客”我现在想在我的“博客”里面加入能够统计同时在线人数的代码。请问代码是什么？...
我神情的是“中国博客”我现在想在我的“博客”里面加入能够统计同时在线人数的代码。
请问代码是什么？ 展开
请问代码是什么？ 展开
2个回答
展开全部
<script language="vbscript" runat="server">
Sub Application_OnStart() '应用程序初始化
Application("Visitors")=0 '在线人数
Application("TotalVisitors")=0 '总访问次数
End Sub
Sub Application_OnEnd() '应用程序结束
'将Application("TotalVisitors")的值记录在一个文本文件中或保存在数据库中
End Sub
Sub Session_OnStart() '用户初始化（会话开始）
Session.TimeOut=1
Application.Lock
Application("Visitors")=Application("Visitors")+1
Application("TotalVisitors") = Application("TotalVisitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd() '用户退出（会话结束）
Application.Lock
Application("Visitors")=Application("Visitors")-1
Application.UnLock
End Sub
</script>
上面这段代码名称为Global.asa
<%Response.Expires = 0%>
<HTML>
<BODY>
<p>现在有 <%=Application("visitors")%> 个在线用户！</p>
<p>现在共有 <%=Application("TotalVisitors")%> 个用户浏览过我的网站！</p>
</BODY>
</HTML>
这段代码为user.asp
上面这两段就可以实现再线人数统计
都是我自己写的 可以实现
Sub Application_OnStart() '应用程序初始化
Application("Visitors")=0 '在线人数
Application("TotalVisitors")=0 '总访问次数
End Sub
Sub Application_OnEnd() '应用程序结束
'将Application("TotalVisitors")的值记录在一个文本文件中或保存在数据库中
End Sub
Sub Session_OnStart() '用户初始化（会话开始）
Session.TimeOut=1
Application.Lock
Application("Visitors")=Application("Visitors")+1
Application("TotalVisitors") = Application("TotalVisitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd() '用户退出（会话结束）
Application.Lock
Application("Visitors")=Application("Visitors")-1
Application.UnLock
End Sub
</script>
上面这段代码名称为Global.asa
<%Response.Expires = 0%>
<HTML>
<BODY>
<p>现在有 <%=Application("visitors")%> 个在线用户！</p>
<p>现在共有 <%=Application("TotalVisitors")%> 个用户浏览过我的网站！</p>
</BODY>
</HTML>
这段代码为user.asp
上面这两段就可以实现再线人数统计
都是我自己写的 可以实现
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
推荐个http://count.51yes.com/index.aspx?id=272376820
申请好将代码放入模板就可以了
还有一个是专为中国博客设计的http://www.nov30th.com/vr/
同样按照步骤做就可以了
我的http://swallowtt.blogcn.com 不懂可以来问哈
希望能够帮到你
申请好将代码放入模板就可以了
还有一个是专为中国博客设计的http://www.nov30th.com/vr/
同样按照步骤做就可以了
我的http://swallowtt.blogcn.com 不懂可以来问哈
希望能够帮到你
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
