asp简单聊天室，ASP代码

asp简单聊天室： <script language="vbscript" runat="server"> sub Application_OnStart Application.Lock '³õÈ绯ÁÄÌì¼Ç¼ dim msg(100) for i=1 to 99 msg(i)="<br>" next msg(100)="ϵͳÏûÏ¢£º»¶Ó­À´µ½¼òµ¥ÁÄÌìÊÒ£¡<br>" Application("msg")=msg Application.UnLock end sub sub Application_OnEnd end sub </script>