San Huei

<%@LANGUAGE="VBSCRIPT"%> <% Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID RefreshTime = 10 '³]©wºô¶¦Û°Ê§ó·s®É¶¡¬°10¬í IdleTime = RefreshTime * 3 '³]©w¶¢¸m®É¶¡¬°¦Û°Ê§ó·s®É¶¡ªº3¿ Application.Lock 'OnlineUser°}¦C°O¿ý¤F©Ò¦³³s½u¨ì¦¹ºô¶¤§ÂsÄý¾¹ªºSessionID '²MÂI©Ò¦³³s½u¨ì¦¹ºô¶ªºÂsÄý¾¹, µM«á±N¥Ø«e¶}±Ò¤§ÂsÄý¾¹ªºSessionID©ñ¤J°}¦Cªº³Ì«á If Application(Session.SessionID & "LastAccessTime") = Empty Then If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0 ReDim Tmp(Application("TotalUsers") + 1) Num = 0 If Application("TotalUsers") > 0 Then For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser")) ID = Application("OnlineUser")(I) If ID <> Session.SessionID Then Tmp(Num) = ID Num = Num + 1 End If Next End If Tmp(Num) = Session.SessionID Application("TotalUsers") = Num + 1 ReDim Preserve Tmp(Application("TotalUsers")) Application("OnlineUser") = Tmp End If '°O¿ý¥Ø«e¶}±Ò¤§ÂsÄý¾¹ªº³Ìªñ¦s¨ú®É¶¡ Application(Session.SessionID & "LastAccessTime") = Timer 'ÀË¬d©Ò¦³³s½u¨ì¦¹ºô¶¤§ÂsÄý¾¹ªº³Ìªñ¦s¨ú®É¶¡, Y»P¥Ø«e®É¶¡¬Û®t30¬í¥H¤W, ªí¥Üµ²§ô³s½u ReDim Tmp(Application("TotalUsers")) Num = 0 For I = 0 To Application("TotalUsers") - 1 ID = Application("OnlineUser")(I) If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then Tmp(Num) = ID Num = Num + 1 Else Application(ID & "LastAccessTime") = Empty End If Next 'Numªí¥Ü¥Ø«e½u¤W¤H¼Æ, Y»PApplication("TotalUsers")¤£¦P, ªí¥Ü¤¤¶¡¦³¤HÂ_½u If Num <> Application("TotalUsers") Then ReDim Preserve Tmp(Num) Application("OnlineUser") = Tmp Application("TotalUsers") = Num End If Application.UnLock %> San Huei

120 Chi Pei Road, Panchiao,
Taipei 220 Taiwan, R.O.C.
Tel : +886-2-2683-0356
Fax : +886-2-2683-5856
e-mail : sales@sanhuei.com