UC知道高分求助ASP重复登陆问题,高手帮助
来源：百度知道 编辑：UC知道 时间：2024/06/30 16:34:49
登录模块，当通过用户名、口令验证后，首先判断其LoginTime与当前的时间差是否超过1小时，如果不超过1小时，则提示“XXX 用于已与 LoginTime 在 LoginTime LoginIP 登录，请于系统管理员联系”，然后退出。如果超过1小时，则将LoginTime 、LoginIP写入数据库，正常登录
修改所有的菜单按钮，每步操作前均判断其IP与库中的LoginIP是否一致，如果一致，则写回LoginTime，继续操作；如果不一致，则提示：“XXX 用于已与 LoginTime 在 LoginIP 登录，请于系统管理员联系”，然后退出
这个是要求,请老大们把代码详细写出,如果代码多请留下信箱,我与你们联系,感谢!!!
如果采用我会继续追加!!谢谢!
问题如果被采纳,我一定给追加100分!
修改所有的菜单按钮，每步操作前均判断其IP与库中的LoginIP是否一致，如果一致，则写回LoginTime，继续操作；如果不一致，则提示：“XXX 用于已与 LoginTime 在 LoginIP 登录，请于系统管理员联系”，然后退出
这个是要求,请老大们把代码详细写出,如果代码多请留下信箱,我与你们联系,感谢!!!
如果采用我会继续追加!!谢谢!
问题如果被采纳,我一定给追加100分!
Dim rs,UserName,Password,LoginIP
UserName = Trim(Request.Form("UserName"))
Password = Trim(Request.Form("Password"))
LoginIP = Request.ServerVariables("REMOTE_ADDR")
Set rs = Conn.Execute("Select id,LoginTime,LoginIP from [user] where UserName='" & UserName & "' and Password='" & Password & "'")
If Not rs.eof Then
If DateDiff("h",rs(1),now()) >= 1 Then
If LoginIP = rs(2) Then
Conn.Execute("update [user] set LoginTime=now() where id=" & rs(0))
session("id") = rs(0)
'修改菜单等其它自己写!!!
......
Else
Call ErrMsg(UserName &" 用户已于 " & rs(1) & " 在 " & rs(2) & "登录，请于系统管理员联系")
End If
Else
Call ErrMsg(UserName &" 用户已于 " & rs(1) & " 在 " & rs(2) & "登录，请于系统管理员联系")
End If
Else