附：源代码2：BBSAUTOSEARCH.ASP
日期：2013-06-28 浏览次数：20741 次
<%@ 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>
<%
'*****************************
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>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
