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

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")="

来自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("KNAME")&time&" 说："&talk&"

"&Application("show")
Application.UnLock
Response.Write Application("show")
%>