User=Split(UserListStr,",")'userliststr是online的表
For i = LBound(User) to UBound(User)
If User(i)=Session("UserID") Then
User(i)=""
End If
Next
UserListStr=""'重新拼起在线列表
For i= LBound(User) to UBound(User)
UserListStr=UserListStr&User(i)&","
Next
UserListStr = Replace(UserListStr,",,,,,","")