如何编写一个最简单的聊天程序？

chat.html

chatopinions.asp

<% =Application("A9") %>	<% =Application("B9") %>
<% =Application("A8") %>	<% =Application("B8") %>
<% =Application("A7") %>	<% =Application("B7") %>
<% =Application("A6") %>	<% =Application("B6") %>
<% =Application("A5") %>	<% =Application("B5") %>
<% =Application("A4") %>	<% =Application("B4") %>
<% =Application("A3") %>	<% =Application("B3") %>
<% =Application("A2") %>	<% =Application("B2") %>
<% =Application("A1") %>	<% =Application("B1") %>

Get your chat at Submitside: free script.

chatform.asp
<%
If Request.Form ("Opinion")="" then
ShowForm()
else
if Session("AA")="" then
NewUser()
GoAhead()
else
GoAhead()
end if
end if %>
<% Sub ShowForm() %>

<% if Session("AA")="" then %> 选择名字或昵称 输入您的看法 <% else %> <% =Session("AA") %> <% end if %> "> 提交">

<% End Sub %>

<% Sub GoAhead() %>

<%
BB=Request.form("Opinion")
BB=server.htmlencode(BB)

Application.Lock
Application("B1")=Application("B2")
Application("B2")=Application("B3")
Application("B3")=Application("B4")
Application("B4")=Application("B5")
Application("B5")=Application("B6")
Application("B6")=Application("B7")
Application("B7")=Application("B8")
Application("B8")=Application("B9")
Application("B9")=BB

Application("A1")=Application("A2")
Application("A2")=Application("A3")
Application("A3")=Application("A4")
Application("A4")=Application("A5")
Application("A5")=Application("A6")
Application("A6")=Application("A7")
Application("A7")=Application("A8")
Application("A8")=Application("A9")
Application("A9")=Session("AA")
Application.Unlock
%>

<% =Session("AA") %> 提交">

<% End Sub %>

<% Sub NewUser() %>
<%
AA=Request.form("Name")
AA=server.htmlencode(AA)
Session("AA")=AA
%>

<% End Sub %>

[1]