stats.asp

学生评教系统,可以实现学生评教,教师查分功能.

<%
	dim rsactiveusers,activeuser
	set rsactiveusers=server.createobject("adodb.recordset")
	if session.contents("username")="" then
		if session("userid")="" then
		activeuser="select * from online"
		else
		activeuser="select * from online where id="&cstr(session("userid"))
		end if
		rsactiveusers.open activeuser,conn,1,3
		if rsactiveusers.eof and rsactiveusers.bof then
			rsactiveusers.addnew
			rsactiveusers("id")=Session.SessionID
			rsactiveusers("username")="客人"
			rsactiveusers("userclass")="客人"
			rsactiveusers("ip")=Request.ServerVariables("REMOTE_HOST")
			rsactiveusers("startime")=Now()
			rsactiveusers("lastimebk")=Now()
			rsactiveusers("lastime")=DateToStr(Now())
			rsactiveusers("browser")=Request.ServerVariables("HTTP_USER_AGENT")
			rsactiveusers("stats")=Request.ServerVariables("SCRIPT_NAME")
			rsactiveusers.update
			session("userid")=Session.SessionID
		else
			rsactiveusers("lastimebk")=Now()
			rsactiveusers("lastime")=DateToStr(Now())
			rsactiveusers("stats")=Request.ServerVariables("SCRIPT_NAME")
			rsactiveusers.update
			session("userid")=Session.SessionID
		end if
	else
		activeuser="select * from online where username='"&session.contents("username")&"'"
		rsactiveusers.open activeuser,conn,1,3
		if rsactiveusers.eof and rsactiveusers.bof then
			rsactiveusers.addnew
			rsactiveusers("id")=Session.SessionID
			rsactiveusers("username")=session.contents("username")
			rsactiveusers("userclass")=session("userclass")
			rsactiveusers("ip")=Request.ServerVariables("REMOTE_HOST")
			rsactiveusers("startime")=Now()
			rsactiveusers("lastimebk")=Now()
			rsactiveusers("lastime")=DateToStr(Now())
			rsactiveusers("browser")=Request.ServerVariables("HTTP_USER_AGENT")
			rsactiveusers("stats")=url
			rsactiveusers.update
		else
			rsactiveusers("lastimebk")=Now()
			rsactiveusers("lastime")=DateToStr(Now())
			rsactiveusers("stats")=Request.ServerVariables("SCRIPT_NAME")
			rsactiveusers.update
		end if
	end if
	'设置用户不活动超时时间--660秒
	dim strOnlineTimedOut,strOnlineCheckInTime
	strOnlineCheckInTime = DateToStr(Now())
	strOnlineTimedOut = strOnlineCheckInTime - 1200
	activeuser="delete from online where lastime<'" & strOnlineTimedOut & "'"
	Conn.Execute activeuser
	rsactiveusers.close
	set rsactiveusers=nothing
%>