以下是我在网上看到的一个入门聊天室代码：
<%if request.ServerVariables("REQUEST_METHOD")="GET" then%>
<form action="chat.asp" method="post">
输入称呼：<input type="text" name="nick" /><br />
<input type="submit" value="进入聊天室" />
</form>
<%response.end%>
<%
else
response.Clear
if request.form("nick")<>"" then
session("nick")=request.Form("nick")
end if
%>
<form method="post" action="chat.asp">
<%=session("nick")%>发话:<input type="text" name="talk" />
<input type="submit" value="提交" />
<input type="reset" value="清除" />
<input type="hidden" name="log" value="1" />
</form>
<a href="chat.asp">离开</a><p>
<%
dim talk
if request.Form("log")=1 then '判断提取的是发话表单的内容，不是进入聊天室时跟着的第一个表单
if request.Form("talk")="" then
talk=session("nick")&"不说一句话就想敷衍大家"
else
talk=trim(request.Form("talk"))
end if
%>
<%
application.Lock
application("show")="["&time&"]"&session("nick")&":"&talk&"<br>"&application("show")
application.UnLock
response.write application("show")
end if
%>
<%end if%>
运行一遍后我想让这个程序做点补充，当request.form("nick")="" 时不进入聊天界面，弹出提示框输入nick。
哪位大哥大姐能把补充好的整个代码贴一贴，我是初学者。谢谢了。
