asp.net简单聊天室代码怎么写？

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 %> Chose a name or nickname Type your opinion <% 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 %>

拿去不谢：http://www.cnblogs.com/romanticcrystal/p/8979869.html