online_func.asp

这是ASP的OA

<%
dim isonlinen
sub position(inpage,flag)
	if trim(request.Cookies("matrix3")("matrix3_online"))="hidden" then exit sub
	matrix3_name=request.Cookies("matrix3")("matrix3_name")
	if isempty(matrix3_name) or matrix3_name="" then
		response.Cookies("matrix3")("matrix3_name")="游客"
		matrix3_name="游客"
	end if
	if flag=1 then
		check_sql="delete from m3_online where activetime < #"& DateAdd("n",-5,now())&"# or name=''"
		conn.execute(check_sql)
	end if
	if inpage="" then
		exit sub
	else
		inpage=trim1(inpage)
	end if
	dim cur_time
	cur_time=now()
	if session("visitid")="" then
		randomize
		visitid=month(date)&day(date)&hour(time)&minute(time)&int(900000*rnd)+100000
		session("visitid")=visitid
	else
		visitid=session("visitid")
	end if
	if request.Cookies("matrix3")("matrix3_pw")="" or matrix3_name="游客" then
		check_sql="select id,name,logintime,lastactive,activetime,ip,page,explorer1,hidden from m3_online where ip='"&request.servervariables("remote_addr")&"'"
	else
		check_sql="select id,name,logintime,lastactive,activetime,ip,page,explorer1,hidden from m3_online where id='"&visitid&"' or name='"&matrix3_name&"'"
	end if
	set check_rs=server.CreateObject("adodb.recordset")
	check_rs.open check_sql,conn,1,3
	if check_rs.eof and check_rs.bof then
		check_rs.addnew
		check_rs(0)=visitid
		check_rs(1)=matrix3_name
		check_rs(2)=cur_time
		check_rs(3)=cur_time
		check_rs(4)=cur_time
		check_rs(5)=request.servervariables("remote_addr")
		check_rs(6)=inpage
		check_rs(7)=request.ServerVariables("HTTP_USER_AGENT")
		check_rs(8)=0
	else
		check_rs(1)=matrix3_name
		check_rs(3)=cur_time
		check_rs(4)=cur_time
		check_rs(6)=inpage
	end if
	check_rs.update
	check_rs.close
	set check_rs=nothing
end sub
%>