Public flbhs As New Dictionary(of String,Integer)

Dim msg As String = e.Message

If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
    msg = msg.SubString(2, msg.Length - 4)
    If pdbhs.ContainsKey(msg) Then \'

    msg = msg.SubString(2, msg.Length - 4)

    If pdbhs.ContainsKey(msg) Then \'如果存在这个类别的编号

        pdbhs(msg) = pdbhs(msg) + 1 \'将该类别最大编号加1

    Else

        pdbhs.Add(msg,1) \'如果是这个列表的首次编号,则编号等于1

    End If
    e.ReturnValue = pdbhs(msg)

    e.ReturnValue = pdbhs(msg) \'将编号返回给客户端

End If

Public tbrk As new Dictionary(of String,String)

tbrk是一个字典，用于登记每一行是谁在编辑。

我们约定接下来编码的时候：字典的键由表名和行的主键组合成，值则等于编辑者名。

Dim Keys As New List(of String)

For Each Key As String In tbrk.Keys
   If tbrk(Key) = e.UserName Then
      Keys.Add(Key)
    End If

   If tbrk(Key) = e.UserName Then

      Keys.Add(Key)

    End If

Next

For Each Key As String In Keys

    tbrk.Remove(Key)

Next

设计思路

1、服务端新建一个临时表，包括三列，分别是：UserName，UserID和ActiveTime。

2、服务端在验证用户身份后，在临时表中新增一行，生成一个16位的随机字符串存储在UserID列，用户名和当前时间则分别存储在UserName和ActiveTime列。

3、完成上述操作后，再将UserName和UserID保存在Cookie中，其中UserName存储在Cookie中的是加密后的字符串。

4、为方便理解，本节的示例代码直接使用username和userid作为Cookie名称，实际开发的时候，请采用没有任何指示性的名称，注意Cookie名是区分大小写的，这里用的是小写。

5、用户在登录成功，继续访问其他页面时，Cookie中会包括username和userid，服务端根据username和userid从临时表中查找对应的行，此时会有三种可能：

6、如果用户在其他位置登录成功，服务端根据加密后的UserName在临时表中查找对应的行，如果找到，说明是重复登录，删除此行，使得前一次的登录无效；然后重复2、3操作，在临时表和Cookie中存储加密后的UserName和随机生成的UserID，并在ActiveTime列记录当前时间。

7、显然临时表的记录会越来越多，我们可以定期清除ActiveTime列和当前时间相比超过30分钟的行，也可以在表在超过约定行数后执行一次清理动作，本示例选择的是前者，每30分钟清理一次。