| 标题 | 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 %> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。