一个简单聊天试的源代码！（三）

forum.asp

<%
on error resume next
%>
<%
kname=session("kname")
response.write kname
if trim(request.form("content"))="" then
talk=kname&" 沉默是金。"
else
talk=trim(request.form("content"))
end if
application.lock
application("show")="<table border=0 cellpadding=0 cellspacing=0 width=85% ><tr><td width=100% bgcolor=#c0c0c0></td></tr><tr><td width=100%><font color=#0000ff> 来自 "&request.servervariables("remote_addr")&" 的 "&session("kname")&time&" 说：</font>"&talk&"</td></tr><tr><td width=100% bgcolor=#c0c0c0></td></tr></table><br>"&application("show")
application.unlock

response.write application("show")

%>