作者：    来源：    点击：    日期：2007-4-13 23:39:53   

<%@ Language=VBScript %>
<%
'*****************************
user=split(application("OnlineUser"),",",-1) '获得在线用户列表
for i=0 to ubound(user) '获得非空的在线用户列表
if user(i)<>"" then
nowcount=nowcount+1 '统计在线人数
   if trim(temp)="" then
       temp=user(i)
   else
       temp=temp+","+user(i)
   end if
end if
next
if trim(temp)<>"" then
  Application.Lock
  application("OnlineUser")=temp '重新整理在线用户列表
  Application.UnLock
end if
%>
<%
dim quit
'**************************
'开始分析处理"传呼信息队列"中的信息，并分割出来是自己的信息
if trim(application("Message"))<>"" then
   msg=split(application("Message"),"&")  '分割得到传呼信息区，并保存到数组
   for i=0 to ubound(msg)
     if instr(1,trim(msg(i)),trim(session("userid")))>=1 then
       mymsg=split(msg(i),"$")  '分割得到每个传呼信息区的详细信息
       if trim(mymsg(0))=trim(session("userid")) then  '这条传呼信息是发给我的!
          msgok=1'有人呼叫我的表记置为1
          from=trim(mymsg(2))  '获得传呼的详细内容
          content=trim(mymsg(1))
          sendto=trim(mymsg(0))
       end if
     end if
   next
end if
'****************************
quit=0
if (trim(session("UserID"))="" or instr(1,application("OnlineUser"),session("UserID"))<1) and trim(session("UserID"))<>"guest" then
      quit=1
else
     if trim(application("OnlineUser"))="" then
         counts=0
     else  
        counts=ubound(split(application("OnlineUser"),","))+1

首页 上一页 [1] [2]  下一页 尾页