reonline.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 29 行

<%response.expires=0%>
<!--#include file="function.asp"-->
<%
response.expiresabsolute=dateadd("s",1,now())
pagefile=request("pagefile")
if session("siteid")="" or isempty(session("siteid")) then
	response.write("<font color=""#ffff00"">对不起，您只有重新打开快狗才能上线！</font>")
	response.end
end if
if session("username")="" or isempty(session("username")) then
	application.lock
	application("online")=application("online")+1
	application.unlock
	session("username")="访客"&application("online")
	session("manager")="0"
end if
if find_online_user(session("siteid"))=0 then
	call write_online_user(session("siteid"))'写入当前用户信息
	if pagefile="user" then
		response.write("<script language=""javascript"">")
		response.write("location.href=""disp_online_user.asp"";")
		response.write("</script>")
	else
		response.write("<script language=""javascript"">")
		response.write("location.href=""disp_online_manager.asp"";")
		response.write("</script>")
	end if
end if
%>