global.asa

简单的

<OBJECT	RUNAT=Server
	SCOPE=Application
	ID=ASPChat
	PROGID="Scripting.Dictionary">
</OBJECT>

<OBJECT	RUNAT=Server
	SCOPE=Application
	ID=ASPChatTime
	PROGID="Scripting.Dictionary">
</OBJECT>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	Application( "SwearWords" ) = Split("FUCK SHIT ASSHOLE NIGGER IDIOT CUNT KUNT ARSE KAFFIR HONKY WETBACK", " ")
End Sub
</SCRIPT>