<%
dim na,nalist
na=trim(request("name"))
if len(na)<>0 then
session("name")=na
nalist=split(application("people"),",")
if ubound(nalist)>=10 then
response.Write "聊天室已满，请稍后再来！"
session.Abandon
response.End
end if
application.UnLock
application("people")=application("people")&na&","
application("name")="欢迎"&na&"进入聊天室！"
application.Lock
response.Redirect "main.asp"
else
%>
<table width="400" height="160" border="0" align="center" bgcolor="#00CC99">
<tr>
<td height="60" align="center"><h1>聊天室</h1></td>
</tr>
<tr>
<td align="center">
<form name="form1" method="post" action="">
你的昵称：
<input name="name" type="text" id="name" size="12">
<input type="submit" name="Submit" value="进入">
</form></td>
</tr>
</table>
<% end if%>
找出程序中有几处错误，并改正
拜托了，在线等