当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP实现号码转换程序实例

ASP
对数据库中的记录用上一条下一条显示(二)
对数据库中的记录用上一条下一条显示(三)
完整的站点访问统计系统(一:数据库篇)
FIF小组ASP互动视频教程
关于ASP,ASP.NET,VB.NET里的MD5加密函数
ASP正则表达式详解
ASP中非数据库实现数据对象的定义及处理
编程爱好者的福音 让IIS6.0支持ASP
使用xml http为网站增加域名查询功能
用ASP实现支持附件的EMail系统
使用ADO.net将数据导出到Excel并提供下载
ASP实现图片上传
asp组件上传
ASPX页Web服务调用性能优化
asp实现语音上传
VBScript教程 第六课
VBScript教程 第三课
使ASP程序跨浏览器
四步讲解ASP中正则表达式的应用
ASP教程:深入认识学习ASP应用Cookies的技巧

用ASP实现号码转换程序实例


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 22 ::
收藏到网摘: n/a

  在编聊天室时,处理用户断线是一个刺手的问题,特别是放到免费网站上,如果一味地靠global.asa,什么时候触发session_onend,application_onend,都是一个不确定的数字,在设计时,合理地安排会带来意想不到的好处。
那么有什么最简便办法处理用户断线呢?
笔者经过试验,有了以下的方法:
聊天室用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