想到聊天室，你一定会认为非常复杂非常麻烦的吧，呵呵，这仅仅只有一段简单的ASP代码，实现了聊天室的基本功能，不妨参考下：将以下代码保存为liaotian.asp

<%If Request.ServerVariables('Request_Method')='GET' then%>
<form method='post' action='liaotian.asp'>
<input type='text' name='nick' Ｖalue='您的昵称'><p>
<input type='submit' Ｖalue='come in'><p>
<input type='hidden' name='log' size='20' Ｖalue='1'>
</form>
<%Response.End
Else
Response.clear
dim talk
If Request.Form('nick')<>'' then
Session('nick')=Request.Form('nick')
End if
%>
<form method='post' action='liaotian.asp' name=form1>
<%=Session('nick')%>说话：
<input type='text' name='talk' size='50'><br>
<input type='submit' Ｖalue='提交'>
<input type='reset' Ｖalue='取消'></p>
</form>
<a href='liaotian.asp'>离开</a><br>
<%
If Request.Form('log')<>1 then
If trim(Request.Form('talk'))='' then
talk=Session('nick')&'不说一句话就想来敷衍大家'
Else
talk=trim(Request.Form('talk'))
End If
Application.lock
Application('show')='来自'&Request.ServerVariables('remote_addr')& '的' &Session('nick')&'在'&time& '的时候说：' &talk& '<br>' &Application('show')
Application.UnLock
Response.Write Application('show')
End if
%>
<%End if%>

提示：将Ｖ改成v