IDC资讯中心
<%@ 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
end if
end if
%>
<html>
<head>
<meta http-equiv="refresh" content="60;url=bbsautosearch.asp" charset=gb2312 >
<script language=javascript>
function window_onload()
{
//**************
//在这里就调用了"显示传呼信息"的页面进行信息的显示
<%if msgok=1 then%>
mail=" 网 络 传 呼 机\n\n"+"<%=from%>"+"对您说:\n\n"+"<%=content%>";
sendinfo=window.open("bbssendinfo.asp?userid=<%=session("userid")%>","sendinfo","toolbar=no,top=0,left=0");
<%end if%>
//**************
//如果当前用户超时，就踢出系统
<%if quit=1 then%>
alert("由於超时或者操作非法而无法使用系统,请您重新登录!");
document.kickout.target="_top";
document.kickout.submit();
<%end if%>
}
</script>
</head>
<body onload="javascript:window_onload()">
<%if quit=1 then%>
<center>
超时或者操作非法!
<%else%>
<%if session("userid")<>"guest" then%>
目前在线用户:<font color=red><b><%=counts%></b></font>人
<br>
<br>
欢迎你：<%=session("userid")%>
<br>
<br>
<font color=red>退出前，请不要关闭此窗口！</font>
<%else%>
注册用户才可发表文章.
<%end if
end if%>
<form name=kickout method=post action="bbslogin.htm"></form>
<a href="bbssendbegin.asp" target="_blank"><img src="send.gif" border="0"></a>
<a href="bbscheckout.asp"><img src="exit.gif" border="0"></a>
</center>
</body>
</html>
