?? lostuser.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())
'刪除用戶歷史信息文件
Sub DeleteHistoryFile()
dim fs,FileName
FileName=server.mappath("/")&"\qq\userinfo\"&session.sessionID&".his"
set fs=createobject("SCRIPTING.FILESYSTEMOBJECT")
if fs.fileexists(FileName) then
fs.deletefile FileName
end if
End Sub
%>
<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
'response.write(onlineuser(0)&"<br>")
onlineuser(0)=""
call DeleteHistoryFile
application("onlineuser"&session("siteid"))=onlineuser
else
for i=0 to number
'Response.Write(onlineuser(i)&"<br>")
if instr(onlineuser(i),cstr(session.SessionID))>0 then
for j=i to number-1
onlineuser(j)=onlineuser(j+1)
next
call DeleteHistoryFile
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("opener.close();")
response.write("window.close();")
response.write("</script>")
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -