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技术专栏