ASP中怎么防止用户重复登陆：

zhuangbx220 2003-12-05 09:32:37

就是一个用户名，只能一个人登陆，不能在同一时刻登陆，只有等到前一用户退出后，这个用户名才能继续登陆

我刚学ASP,如果谁知道怎么做,麻烦你把源代码打出来.

...全文

218 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhuangbx220 2003-12-09

打赏
举报

session_onend 不执行

webdevelop 2003-12-09

打赏
举报

建议用数据库，但一定要记得在关闭退出时返回数值，要不然就登陆不了了：）

zhuangbx220 2003-12-09

打赏
举报

?????????????????????

zhuangbx220 2003-12-08

打赏
举报

session_onend 不执行

yxisyx 2003-12-06

打赏
举报

建议用COOKIES 定时间并判断ip来源前2位的方法

nattyfish 2003-12-05

打赏
举报

<%@ Language=VBScript %>
<%
name = Request.Form("name")
passwd = Request.Form("passwd")
sql = "select name,passwd,type from usertype where name ='" & name & "'"
set conn = server.CreateObject("adodb.connection")
conn.Open Application("dsn")
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
if rs.EOF then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if

if not (rs("passwd") = passwd) then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if

session("username") = rs("name")
session("usertype") = rs("type")
rs.Close
set rs = nothing
sql = "update visit set visitnum = visitnum +1"
conn.Execute sql
conn.Close
set conn = nothing
Response.Redirect "frame.asp"
%>

在其他过页面加如
<%
if (isempty(session("username")) or len(session("username"))=0) then
Response.Redirect "error.asp"
end if
%>

yeno 2003-12-05

打赏
举报

对session值进行判断，不知道ASP有没有这个功能，如果有的话，绝对可以解决问题
建立一临时表（不是临时建立的表）
再设置两个事件，当存入session("user")值时，也就是
当session("user")<>""时，触发临时表的添加记录事件，就将session值存入到临时表中
当session失效时，触发临时表的删除记录事件，给相应user的值从临时表中清除
这样用户在不同的地方登陆时，只需要将提交的用户名首先跟临时表中所存的进行逐个比较，如果没有相同的，再进入打开数据库核对输入的用户名和密码，存入session("user")
如果相同，则提示“此用户已在别处登陆”
试试看

talent303 2003-12-05

打赏
举报

同意楼上的

Qthinker 2003-12-05

打赏
举报

登陆页identify
<%@ Language=VBScript %>
<%
name = Request.Form("name")
passwd = Request.Form("passwd")
sql = "select name,passwd,type from usertype where name ='" & name & "'"
set conn = server.CreateObject("adodb.connection")
conn.Open Application("dsn")
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
if rs.EOF then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if

if not (rs("passwd") = passwd) then
response.write "错误的用户名或密码！"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.End
end if

session("username") = rs("name")
session("usertype") = rs("type")
rs.Close
set rs = nothing
sql = "update visit set visitnum = visitnum +1"
conn.Execute sql
conn.Close
set conn = nothing
Response.Redirect "frame.asp"
%>

在其他过页面加如
<%
if (isempty(session("username")) or len(session("username"))=0) then
Response.Redirect "error.asp"
end if
%>