最簡單的ASP聊天室（附源碼）

<%@ Language=VBScript %>
<%
Response.Buffer=true @# 設 置 輸 出 緩 存，用 于 顯 示 不 同 頁 面。
On error resume next @# 忽 略 程 序 出 錯 部 分
If Request.ServerVariables("Request_Method")="GET" then
@# 判 斷 客 戶 是 以 什 么 方 式 請 求 WEB 頁 面
@#------------------------
@# 客 戶 登 陸 界 面
@#------------------------
%>

<form method="POST" action="http://www.cs02.com/luo40.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="http://www.cs02.com/luo40.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="http://www.cs02.com/luo40.asp"> 離 開 </a><br><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")="<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
%>

原文轉自：http://www.kjueaiud.com