Domino单账号登陆问题.docVIP

单账号登陆问题 在web端单账号登陆的问题，即通过浏览器打开系统时，一个账号只能在一个IP下登陆，设计的原理为： 1、当用户登陆时进行判断（onload事件），当前用户是不是该账号最后登录的用户（从登陆日志中查找根据IP），通过webqueryopen执行的代理进行处理，如果不是最后登录的则给域fldLastlogin赋值为“1”，在onload的js中进行处理，删除当前用户的cookie打开登陆界面。如果是最后登录的账户，则进行正常的登录，记录最新的登录时间。 2、如果是已经登陆的页面，则在用户进行操作时进行判断（页面的onMousedown事件），进行判断当前用户是否为最后登录的账号。 3、登陆日志的记录，对于在同一天同一账户同一IP只记录一条登陆记录，只是登陆时间是最后一次的登录时间。 主要处理涉及以下两个库： 系统管理库（ldconfig.ncf） 表单（homepage）修改 增加两个域 Onload事件的修改 增加表单的onMousedown事件 代理 HomepageOpen（修改） 主要增加一个函数用于判断（CheckLoginStat） 代码如下： Sub CheckLoginStat() On Error Goto ErrHandle Dim session As New notessession Dim db As NotesDataba