发布时间:2013-09-19 11:33:46来源:阅读(1834)
用两个文件.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代码
1212
1683
1900
2164
2360
1430
1956
1985
2033
1422
11496
6767
6348
5891
5416
5084
4378
4179
4140
4055