chkonline.asp

来自「希望这个班级源码能够帮那些需要帮助的朋友」· ASP 代码 · 共 49 行

<%
'用户在线
sub online()
userip=cstr(request.servervariables("REMOTE_HOST"))
userid=session("myuserid")
password=session("mypwd")
if isuser(userid,password)=0 then
founduser=false
else
founduser=true
end if
ipid=replace(userip,".","")
if founduser=false then
	session("ipid")=ipid
	sql="select ipid from online where ipid='"&ipid&"'"
	set rs=conn.execute(sql)
	if rs.eof then
		sql="insert into online(ipID,userid,truename,userip,startime,lastime) values('"&ipid&"','客人','客人','"&userip&"',Now(),Now())"
	else
		sql="update online set lastime=now() where ipid='"&ipid&"'"
	end if
	conn.execute(sql)
else
	if userid<>"" then
	sql="select truename from txluser where userid='"&userid&"'"
	set trs=conn.execute(sql)
	truename=trs("truename")
	set trs=nothing
	end if
	sql="select ipid from online where userid='"&userid&"'"
	set rs=conn.execute(sql)
	if rs.eof and rs.bof then
		sql="insert into online(ipid,userid,truename,userip,startime,lastime) values('"&ipid&"','"&userid&"','"&truename&"','"&userip&"',now(),now())"
	else
		sql="update online set lastime=now where userid='"&userid&"'"
	end if
	conn.execute(sql)
	rs.close
	if session("ipid")<>"" then
	conn.execute("delete from online where ipid='"&session("ipid"))&"'"
	session("ipid")=""
	end if
end if
set rs=nothing
'删除超时用户
sql="delete from online where datediff('s',lastime,now())>90"
conn.execute(sql)
end sub
%>