您的位置:首页网页设计ASP实例 → 用ASP实现号码转换程序实例

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

时间:2004/11/7 2:56:00来源:本站整理作者:蓝点我要评论(0)

在编聊天室时,处理用户断线是一个刺手的问题,特别是放到免费网站上,如果一味地靠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) = "【公告】"&hrefname&"" &"
>"& "断线..." & "
" & " <" & time() & ">
" & application

("content" & j)

end if

next

end if

end if

next


相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码