<html>
<body>
<%
dim nicheng'与下面一句不能放在一行直接赋值
nicheng=Trim(Request.Form("nicheng"))
if Len(nicheng)<>0 then
Session("nicheng")=nicheng
dim myarray()'active array
Redim myarray(10)
myarray=Split(Application("nclist"),",")
if Ubound(myarray)>=50 then
Response.Write("人满为患，请稍后再来！")
Session.Abandon()'mark
Response.End()
end if
Application.Lock()
Application("nclist")
Application("nclist")=Application("nclist")&nicheng&","
Application(nicheng)="欢迎"&nicheng&"进入聊天室"
Application.UnLock()
Response.Write("<a href='xgmain.asp'>请快快加入迷你聊天室</a>")
%>
<% else %><!-- 'mark -->
<center>
<table width="80%" border="1">
<tr>
<td height="30" align="center"><Font Color="#800000" Size=5><Strong><I>欢迎进入迷你聊天室</I></Strong></Font></td>
</tr>
<tr>
<td height="50" align="center">
<form name="form1" method="post" action="xgchat.asp">
<Font Color="#a000a0">你的昵称：</Font><input type="text" name="nicheng">
<input type="submit" value="进入">
</form>
</td>
</tr>
</table>
</center>
<% end if %>
</body>
</html>
运行时提示:
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/chat/xgchat.asp, 第 10 行
论坛设施
