ASP显示在线人数 - ASP教程 - 网络编程

问天

元帅

UID 11493
精华 187
积分 34221
帖子 33355
威望 91
金币 13148
热心 2619
阅读权限 100
注册 2006-4-7
状态离线

使用道具

发表于 2007-2-15 21:52 资料个人空间主页短消息加为好友

ASP显示在线人数

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

网友问天签名 - 网友社区 请您回个帖。谢谢
PR查询免费域名免费空间

[广告] 免费域名(Free Subdomain) 免费空间(Free hosting) PR查询(Google Pagerank)

网友生活网 \| 网友学堂	如何获得金币？	诚招斑竹	IP归属地查询 PR查询收录查询 whois查询
免费超短2级域名,your.jpy.cc	传世私服 \| 传奇世界私服	注册亚洲交友中心，找个人来同居吧！	免费存储空间，免费网络硬盘