如何编程获得某台基于IIS的Web服务器当前的连接数?
解决方案 »
- cxDBFilterControl 怎么使用啊 ?
- 关于shelllistview的小问题和ini文件的问题,在线等待!!!!
- 如何创建事务,回滚事务等
- 如何WM_MOUSEWHEEL的MESSAGE里的滚轮步距~在线等待,马上结帖~
- 【抗日贴】:对“毫无原则的抵制日货究竟帮助了谁!”的不同意见
- 变态问题 delphi中如何动态给一个按钮加click事件(即不用设计器加载,在程序执行中动态加载)再现等待
- 我动态创建的组件 作为 新动态创建组件的parent时总是不成功?
- 绝对免费电影下载!不看你会后悔一辈子!^_^
- 请问:如何在没有安装Delphi6环境的机器上编译一个Delphi源程序?
- 大家帮我看看这段程序,我已经问了好些时间了
- 怎样自定义打印机纸张(在线等)
- 如何对style=csDropDownlist的combobox的text赋值?
<script language=vbs runat=server>
sub application_onStart
Application.Lock
Application("OnLineUsers") = 0
Application.unLock
end sub
sub session_onStart
Session.TimeOut = 2
Application.Lock
Application("OnLineUsers") = Application("OnLineUsers") + 1
Application.unLock
end sub
sub session_onEnd
Application.Lock
Application("OnLineUsers") = Application("OnLineUsers") - 1
Application.unLock
end sub
</script>