global.asa

一个聊天室程序

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	Application("chat1")=""
	Application("chat2")=""
	Application("chat3")=""
	Application("chat4")=""
	Application("chat5")=""
	Application("chat6")=""
	Application("chat7")=""
	Application("chat8")=""
	Application("chat9")=""
	Application("chat10")=""
	Application("flgWarn")=""
	Application("Slot1")=""
	Application("Slot2")=""
	Application("Slot3")=""
	Application("Slot4")=""
	Application("Slot5")=""
	Application("Slot6")=""
	Application("Slot7")=""
	Application("Slot8")=""
	Application("Slot9")=""
	Application("Slot10")=""
	Application("sessCount")=0
	Application("FlagCount")=0
	Application("LastPost")=""
End Sub
Sub Session_OnStart
	Session("skin")=""
End Sub
</SCRIPT>