分类: ASP Technology

计数器

[ 2006-04-27 13:37:41 | 作者: kite ]
字体大小: 大 | 中 | 小
文件一：GLOBAL.ASA
<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

</SCRIPT>

文件二：COUNTER.ASP

<%@language=VBscript%>
<Html>
<head>
<title>
防止刷新的计数器
</title>
</head>
<body>
<center>
<font color=blue size=5>
欢迎光临本网站,当前共有<%=Application("OnLine")%>人访问本网站
</font>
</center>
</body>
永久地址 永久地址: http://www.jmkite.com/kite/technology/feed.asp?q=comment&id=27

此文还没有评论.

您无法为这篇日志发表评论.