arow 您现在的位置： Yes!黑客联盟 >> 程序开发 >> Web开发 >> asp编程 >> 正文
专题栏目
热门教程
推荐教程
ASP显示在线人数           
ASP显示在线人数
作者：Www.7747… 文章来源：Www.7747.Net 更新时间：2007-7-15 11:59:04 【字体：小 大】
 

用两个文件.GLOBAL.ASA和online.asp
下面分别给出两个文件的源代码.呵呵,
我也是菜鸟,大家加油哟!

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_onStart
     Application("OnLine") = 0
End Sub
 

Sub Session_onStart
     Application.Lock
     Application("OnLine") = Application("OnLine") + 1
     Application.Unlock
End Sub

如果防止刷新,不要下面这段!
Sub Session_OnEnd
   Application.Lock
   Application("OnLine") = Application("OnLine") - 1
   Application.Unlock
End Sub
   
</SCRIPT>

online.asp代码如下!
<%@language=VBscript%>
<Html>
<head>
<title>
显示在线人数
</title>
</head>
<body>
<center>
欢迎光临本网站,当前共有<%=Application("OnLine")%>在线
</center>
</body>

 


友情提示：如果您对本文章的内容存在疑问请到点此进入论坛进行讨论
教程录入：YesHack    责任编辑：YesHack 
  • 上一个教程：

  • 下一个教程：
    •