求用asp编写的最简单的聊天室

网上的聊天室功能很强大,代码很复杂,我现在想学习,所以想求一个最简单的聊天室的代码,希望是最简单的,只要能聊天就行,其它什么功能都不需要

答案：
<%@ Language=VBscript %>
<%
Response.Buffer=true ' 设 置 输 出 缓 存，用 于 显 示 不 同 页 面。
On error resume next ' 忽 略 程 序 出 错 部 分
If Request.ServerVariables("Request_Method")="GET" then
%>
<form method="POST" action="liaotianshi.asp"><p>
<input type="text" name="nick" size="20" value="nick" style="background-color: rgb(192,192,192)"><br>
<input type="submit" value=" 进 入 聊 天 室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">
<p><input type="hidden" name="log" size="20" value="1"><br></p>
</form>
<%


Response.End ' 结 束 程 序 的 处 理


Else


Response.clear ' 清 空 缓 存 中 的 内 容


dim talk
If Request.Form("nick")<>"" then
' 判 断 客 户 是 是 否 在 聊 天 界 面 中 
Session("nick")=Request.Form("nick")
End If
%>

<form method="POST" action="liaotianshi.asp" name=form1> <p><%=Session("nick")%> 说 话：<input type="text" name="talk" size="50"><br>
<input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 取 消 " name="B2"></p>
</form> 


<A HREF=><%
If Request.Form("log")<>1 then
If trim(Request.Form("talk"))="" then
' 判 断 用 户 是 否 没 有 输 入 任 何 内 容 
talk=Session("nick")&" 星云"
Else
talk=trim(Request.Form("talk"))
' 去 掉 字 符 后 的 空 格 
End If
'主要看这段APPLICATION对象的应用
   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   ("nick")&time&" 说：   </font>"&talk&"</td></tr><tr><td width='100%'          bgcolor='#C0C0C0'></td></tr></table><br>"&Application("show")
   Application.UnLock
   Response.Write Application("show")
End If
End If
%>

这里主要是看APPLICATION对象的使用,每次要显示一条对话的时候,先要将APPLICATION进行锁(LOCK)操作,防止其他用户的聊天内容将APPLICATION中要显示的话给重写.其中聊天室的核心就是
APPLICATION的使用,无论多复杂的聊天室,都是在这个基础上建立起来的.

上一个：asp高手:这段ASP代码怎么看?
下一个：帮我看看这个asp文件哪里出错了谢谢