那楼主还要不要保存失效用户的数据库信息？

登录后

更新这个用户信息

设定一个字段，初始为0，登陆后改为1，登陆的同时判断该字段值，是1则提示帐户已锁定

那就登陆后将该用户的信息从数据库里删除，只保留Session信息，这样登陆后即失效。

哪登陆验证就不用我写了吧？不过我得知道楼主用户表的结构。
比如
字段名，字段类型
UserName 字符串
Age 年龄
……………………

'函数名称:删除用户信息
'参数:ID 字符串，用户ID 字符串，用户表的名称 字符串,数据库连接对象 ADODB.Connection
Function DeleteUserInfo(ID,UsID,TbName,con)
Dim tSql
tSql=""Delete * from "&TbName&" where"
IF ID<>"" Then
con.Execute(tSql&" id="&ID)
Else
con.Execute(tSql&" userid='"&UsID&"'")
End IF
End Function
'执行这个函数即可删除。