📄 lostuser.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统

💻 ASP

字号:

<%response.expires=0%>
<%
response.cookies("qqdir")("onqqcookie")="no"
response.cookies("onqqcookie").expires=dateadd("s",-15,now())
response.cookies("onqqcookie").domain="211.92.42.1"
response.expiresabsolute=dateadd("s",1,now())
%>
<html>
<head>
<title>感谢使用！</title>
<meta http-equiv="expires" content="no-cache">
<meta http-equiv="Content-Type" content="text/html;">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body>
<script language="javascript">
window.moveTo(2000,2000);
</script>
<%
on error resume next
Application.Lock 
dim number,number1,filename
onlineuser=application("onlineuser"&session("siteid"))
number=ubound(onlineuser)
if number>=0 then
response.write(number&"<br>")
if number=0 then
	onlineuser(0)=""
	application("onlineuser"&session("siteid"))=onlineuser
else
	for i=0 to number
		if instr(onlineuser(i),cstr(session.SessionID))>0 then
			for j=i to number-1
				onlineuser(j)=onlineuser(j+1)
			next
			redim preserve onlineuser(number-1)
			application("onlineuser"&session("siteid"))=onlineuser
			exit for
		end if
	next
end if
end if
if session("manager")="1" then
	onlinemanager=application("onlinemanager")
	number=ubound(onlinemanager)
	response.write(number&"<br>")
	if number>=0 then
	if number=0 then
		'response.write(onlinemanager(0)&"<br>")
		onlinemanager(0)=""
		application("onlinemanager")=onlinemanager
	else
		for i=0 to number
			'Response.Write(onlinemanager(i)&"<br>")
			if instr(onlinemanager(i),cstr(session.SessionID))>0 then
				for j=i to number-1
					onlinemanager(j)=onlinemanager(j+1)
				next
				redim preserve onlinemanager(number-1)
				application("onlinemanager")=onlinemanager
				exit for
			end if
		next
	end if
end if
end if
'session.abandon
Application.UnLock
session.abandon
response.write("<script language=javascript>")
response.write("setTimeout('window.close()',1000);")
response.write("</script>")
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -