asp简单聊天室，ASP代码

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