global.asa文件 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- global.asa文件 (http://www.webasp.net/article/3/2036.htm)

-- 作者：未知 -- 发布日期： 2003-07-11

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> sub Application_OnStart DIM chatpoin,roomname,kicklist,chatdata(50,6),onliuser,chatcomm(50) for i=0 to 50    chatdata(i,0)=""    chatdata(i,1)=""    chatdata(i,2)=0    chatdata(i,3)=""    chatdata(i,4)=0      chatdata(i,5)=""    chatcomm(i)="" next chatcomm(0)="'00:00:00,系统消息,0,所有人,ff0000,0,你好，你是第一位光临的客人'" application.lock   application("roomname")="温馨情缘"   application("onliuser")=""   application("chatpoin")=0   application("kicklist")=""   application("chatdata")=chatdata   application("chatcomm")=chatcomm application.unlock end sub sub Session_onEnd ip=session("userip") id=session("userid") chatdata=application("chatdata") application.lock   application("kicklist")=replace(application("kicklist"),",'"&chatdata(id,1)&"'","")   application("kicklist")=replace(application("kicklist"),",'#"&chatdata(id,0)&"'","")   application("onliuser")=replace(application("onliuser"),",'"&chatdata(id,0)&"'","") application.unlock for i=0 to 50   chatdata(i,4)=(chatdata(i,4) mod 4)+4 next chatdata(id,0)="" chatdata(id,1)="" chatdata(id,2)="" chatdata(id,3)="" chatdata(id,4)="" chatdata(id,5)="" application.lock   appliation("chatdata")=chatdata application.unlock end sub </SCRIPT>

webasp.net