栏目导航
热门教程
相关教程
ASP显示在线人数 [收藏本页]
  • 作者：未知 来源：CSDN 发布时间：2006-7-14 7:46:11
  •  

    用两个文件.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>

     


  • [] [返回上一页] [打 印] [收 藏]
  • 上一篇教程：ASP汉字转拼音函数 下一篇教程：一段用ASP查看ASP文件源码的程序
Copyright © 2003-2008 站长助手 www.web162.com
辽ICP备05001760号 网络实名:站长助手 转载本站原创教程请注名来源于本站
力倡站长资源文化,崇尚互联共享,做中国最好站长网站,为中国网站提供动力！
始建于2003-3-1 8:10 中国首都·北京 辽宁(分站)
主资源渠道辽宁电信分公司服务器组及带宽！