繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP实现号码转换程序实例
- ASP
- asp数个使用技巧
- 存储过程里的递归 实现方法
- 非常不错的列出sql服务器上所有数据库的asp代码
- 防范ASP木马的十大基本原则强列建议看下
- 雷客图ASP站长安全助手的ASP木马查找功能
- 防止别人盗链的好方法推荐
- 图片的入库与读取的方法
- 用asp实现无组件生成验证码的方法2种
- 用asp实现检测文件编码
- [asp]怎么添加验证码的解决方法
- ASP文章系统解决方案实现上一页下一页
- ASP编程入门进阶（三）：接触脚本程序
- ASP编程入门进阶（四）：内置对象Request
- ASP编程入门进阶（五）：内置对象Response
- ASP编程入门进阶（六）：Cookies讲座
- ASP编程入门进阶（八）：内置对象Session
- ASP编程入门进阶（九）：内置对象Application
- ASP编码优化技巧8则
- ASP编程入门进阶（十）：Global.asa文件
- ASP编程入门进阶（十一）：Chat聊天程序
用ASP实现号码转换程序实例
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 163 ::
收藏到网摘: n/a
那么有什么最简便办法处理用户断线呢？
笔者经过试验，有了以下的方法：
聊天室用N个application("user" & N)来保存用户名，再用application("TimeBegin")来保存每个用户的登录时间,同时，在用户登录时用session("TimerBegin")保存登录时间(timer)，在发言区设定刷新时间为N秒，每次刷新将session("TimeBegin")的时间更新，同时判断timer - application("user"&session(userID)) 是否>N秒，如果是则说明该用户没有自动刷新，即意味着已经断线，即可将该application("user"&N)设为空值，再提示该用户已退出即可。
部分代码：
total = application("AllPeople")'聊天总人数
aryHuman = split(total,";")
for i = lbound(aryHuman) to ubound(aryHuman) - 1
if application("user" & i) = "online" then
if int(timer) - int(application("TimeBegin" & i)) > 120 then
application("user" & i) = ""
temp = aryHuman(i)
aryName = split(temp,",")
hrefname = aryName(0)
for j = lbound(aryHuman) to ubound(aryHuman) - 1
if application("user" & j) = "online" then
application("content" & j) = "<FONT color=#000000>【公告】"&hrefname&"</FONT>" &"<font color=#F08000
>"& "断线..." & "</font><font color = #000000 class=p9>" & " <" & time() & "></font><br>" & application
("content" & j)
end if
next
end if
end if
next
评论 (0) All
