chat_rs.asp

此程序为网上下载

<%@ codepage ="936" %>
<%	RSDispatch	%>
<!--#INCLUDE file="_ScriptLibrary/RS.ASP"-->
<!--#include File="inc.asp"-->
<SCRIPT RUNAT=SERVER Language=javaScript>
function Description()
{
	this.GetInfoAsArray = DoGetData;
	this.ExitChat = DoExitChat;
}
public_description = new Description();

function DoGetData()
{
	AllMsg = new Array();
	var Str="";
	if (Session("SayCount")==Application("wsaxSayCount"))
		{
		AllMsg[0] = 0;
		AllMsg[1] =Application("wsaxhxf_c_chatrs");
		return AllMsg;
		}
		
	else
	{
		for (i=1;i<=(Application("wsaxSayCount")-Session("SayCount"));i++)
		Str=Str+Application("wsaxSayStr"+((Session("SayCount")+i)%32));
		AllMsg[0] = 1;	
		AllMsg[1] = Application("wsaxhxf_c_chatrs");
		AllMsg[2]=Str;
		Session("SayCount")=Application("wsaxSayCount");
		return AllMsg;
	}
}

function DoExitChat()
{
	DelApplication();
}
</SCRIPT>
<SCRIPT RUNAT=SERVER Language=vbScript>
Sub DelApplication()
 Application.Lock
 'Application("wsaxhxf_c_chatrs")=Application("wsaxhxf_c_chatrs")-1
 'Application("wsaxhxf_c_active")=Application("wsaxhxf_c_active")-1
 if Session("hxf_u_inthechat")="1" then
  nickname=Session("hxf_u_nickname")
  useronlinename=Application("wsaxhxf_c_useronlinename")
  if InStr(useronlinename," " & nickname & " ")<>0 then
   onlinelist=Application("wsaxhxf_c_onlinelist")
   dim newonlinelist()
   useronlinename=""
   onliners=0
   js=1
   for i=1 to UBound(onlinelist) step 6
    if CStr(onlinelist(i+1))<>CStr(nickname) then
     onliners=onliners+1
     useronlinename=useronlinename & " " & onlinelist(i+1)
     Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5)
     newonlinelist(js)=onlinelist(i)
     newonlinelist(js+1)=onlinelist(i+1)
     newonlinelist(js+2)=onlinelist(i+2)
     newonlinelist(js+3)=onlinelist(i+3)
     newonlinelist(js+4)=onlinelist(i+4)
     newonlinelist(js+5)=onlinelist(i+5)
     js=js+6
    end if
   next
   useronlinename=useronlinename&" "
   if onliners=0 then
    dim listnull(0)
    Application("wsaxhxf_c_onlinelist")=listnull
   else
    Application("wsaxhxf_c_onlinelist")=newonlinelist
   end if
   Application("wsaxhxf_c_useronlinename")=useronlinename
   Application("wsaxhxf_c_chatrs")=onliners
   s=Hour(time())
   f=Minute(time())
   m=Second(time())
   if len(s)=1 then s="0" & s
   if len(f)=1 then f="0" & f
   if len(m)=1 then m="0" & m
   t=s & ":" & f & ":" & m
   'sd=Application("wsaxhxf_c_sd")
   line=int(Application("wsaxhxf_c_line"))
   Application("wsaxhxf_c_line")=line+1
Msg="<"&"script>parent.put("&chr(39)&"<font color=black>【公告】</font><font color=F08000>" & Replace(Application("wsaxhxf_c_userdown"),"%%","<font color=black>" & nickname & "</font>") & "</font><font class=t>(" & t & ")</font><br>"&chr(39)&",'"&nickname&"','大家');<"&"/script>"
addmsg msg
   end if
 end if
 Application.UnLock
End sub
Function Yushu(a)
Yushu=(a and 31)
End Function
Sub AddMsg(Str)
	Application.Lock()
		Application("wsaxSayCount")=Application("wsaxSayCount")+1
		i="SayStr"&YuShu(Application("wsaxSayCount"))
		Application(i)=Str
	Application.UnLock()

End Sub
</SCRIPT>