足球游戏_中国足彩网¥体育资讯$

asp检查在线类
来源:易贤网 阅读:938 次 日期:2014-08-26 09:42:52
温馨提示:易贤网小编为您整理了“asp检查在线类”,方便广大网友查阅!

Private Function add(ByVal u,ByVal t,ByVal ip)

Dim temp_u_str

temp_u_str = get_u()

temp_u_str = temp_u_str &"$"&u&"#"&t&"#"&ip

Set_u(temp_u_str)

End function

'删除某个登录信息

Private Function delu(ByVal u)

Dim u_str,num,temp_u_str

u_str = get_u()

If Len(u_str)>0 Then

u_str_arr = Split(u_str,"$",-1,1)

num = UBound(u_str_arr)

If num >0 then

For i = 1 To num'循环查询用户该删除时则删除

If(Split(u_str_arr(i),"#",-1,1)(0)<>u) then

temp_u_str = temp_u_str & "$" & u_str_arr(i)

End if

Next

set_u(temp_u_str)

End if

End if

End function

'检查是否已经登录了Forasp.cn

'刷新用户信息

Private Function flash()

Dim u_str,now_time,num'定义用户字符串

now_time = now

u_str = get_u()

If len(u_str)>0 Then'如果存在用户则刷新用户

u_str_arr = Split(u_str,"$",-1,1)

num = UBound(u_str_arr)

If num>0 then

For i = 1 To num'循环每一个用户

u_str_info_arr = Split(u_str_arr(i),"#",-1,1)'获取用户登录时间

'response.write DateDiff("s",u_str_info_arr(1),now_time)

If DateDiff("s",u_str_info_arr(1),now_time) > (20*60) then'这里定义过期时间,设置为20分钟20*60秒

'delu(u_str_info_arr(0))

End if

Next

End if

End if

End Function

'获取所有的用户信息

Public Function get_u()

application.lock

get_u = application("forasp_cn")

application.unlock

End Function

'设置所有用户信息

Private Function set_u(ByVal str)

application.lock

application("forasp_cn") = str

application.unlock

End function

'更新登录时间

Function changet(ByVal u)

Dim t,u_str,num,temp_u_str

'转载%77%77%77请%2E%66%6F%72%61%73%70%2E%63%6E注

t= Now()

u_str = get_u()

If Len(u_str)>0 then

u_str_arr = Split(u_str,"$",-1,1)

num = UBound(u_str_arr)

If num>0 Then

For i =1 To num

If Split(u_str_arr(i),"#")(0) = u Then

temp_u_str = temp_u_str&"$"&u&"#"&t&"#"&Split(u_str_arr(i),"#")(2)

Else

temp_u_str = temp_u_str&u_str_arr(i)

End If

Next

set_u(temp_u_str)

End if

End if

End Function

Public function t()

t =Now()

End function

'清空所有的登录信息

Private Function clearu(ByVal u)

application.lock

application("forasp_cn") = ""

application.unlock

End Function

'过程信息检查是否已经超过了application大小了

Private Sub clear_application()

Dim application_size

application_size = 1024 *1024 '大小为1M

If Len(application("forasp_cn"))>application_size Then

clearu()

Else

flash()

End if

End sub

End Class

Set a = new user_online

If(a.checku("d",Now(),a.getip())) Then'假设这里的b是新登录的用户如果已经登录则显示已经登录,否则没有登录

response.write "已经登录"

Else

response.write "没有登录"

End If

%>

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看网络编程
上一篇:asp类Let Get Set
下一篇:asp读写txt2
易贤网手机网站地址:asp检查在线类
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标