附：源代码2：BBSAUTOSEARCH.ASP

2022-07-15 80酷酷网 80kuku.com

　　源代码<% 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 var webSiteID = 6;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:var webSiteID = 6;window.onload()">
<%if quit=1 then%>
<center>
  超时或者操作非法!

<%else%>
<%if session("UserID")<>"guest" then%>

   目前在线用户:<font color=red><b><%=counts%></b></font>人




   欢迎你：<%=Session("userid")%>




   <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=http://www.163design.net/a/y/"send.gif" border="0"></a>
<a href="bbscheckout.asp"><img src=http://www.163design.net/a/y/"exit.gif" border="0"></a>
</cente