global.asa文件

<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>

补充：asp教程,高级应用