a_online.asp

来自「web 斗地主 用asp+access+ajax+css+js」· ASP 代码 · 共 45 行

ASP
45
字号
<%
Function online_shu(id,uid)

u_id=cstr(uid)
a_t=timer
a_out=5 
a_k=0 
a_i=1 
a_y=0
if a_t-0.5>application("online_time_"&id)*1 then

   Do While application("a_ip"&id&"_"&a_i)<>"" 
     if application("a_ip"&id&"_"&a_i)=u_id then
       application("a_t"&id&"_"&a_i)=a_t
       a_y=1 
     end if 
     if a_t-application("a_t"&id&"_"&a_i)>a_out or a_t<application("a_t"&id&"_"&a_i) then 
       a_k=a_k+1 
     else
       if a_k>0 then 
         application.lock 
           application("a_ip"&id&"_"&a_i-a_k)=application("a_ip"&id&"_"&a_i) 
           application("a_t"&id&"_"&a_i-a_k)=application("a_t"&id&"_"&a_i) 
         application.unlock 
       end if 
     end if 

     if a_k>0 then 
        application("a_ip"&id&"_"&a_i)=null
        application("a_t"&id&"_"&a_i)=null
     end if 
     a_i=a_i+1 
   loop 

   if a_y=0 and u_id<>"" then 
     application("a_ip"&id&"_"&a_i-a_k)=u_id
     application("a_t"&id&"_"&a_i-a_k)=a_t 
   else 
     a_i=a_i-1 
   end if
   application("online_shu_"&id)=a_i-a_k
 end if
online_shu=application("online_shu_"&id)
End Function
%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?