发布时间:2013-09-19 11:33:46来源:阅读(1278)
用两个文件.GLOBAL.ASA和online.asp
下面分别给出两个文件的源代码.呵呵,
我也是菜鸟,大家加油哟!
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
online.asp代码如下!
%@language=VBscript%
关键字:
上一篇: 用PHP写的身份证验证程序
下一篇: 一些不常用的html代码
1818
824
1414
1419
1585
1289
1153
1352
1313
1363
9178
5753
5265
4887
4329
4042
3169
3092
3087
3046