chat.html 
html>
head>

title>精彩春風(fēng)之簡單聊天/title>

/head>
frameset rows="*,100">
frame src="chatopinions.asp">
frame src="chatform.asp">
/frameset>
/html> 

chatopinions.asp
html>
head>
META HTTP-EQUIV=refresh content="5;URL=chatopinions.asp">/head>
body bgcolor=FFFFFF>
center>
table border=0 width=350>
tr>td width=50>
% =Application("A9") %>/td>td width=300>% =Application("B9") %>
/td>/tr>tr>td>
% =Application("A8") %>/td>td>% =Application("B8") %>
/td>/tr>tr>td>
% =Application("A7") %>/td>td>% =Application("B7") %>
/td>/tr>tr>td>
% =Application("A6") %>/td>td>% =Application("B6") %>
/td>/tr>tr>td>
% =Application("A5") %>/td>td>% =Application("B5") %>
/td>/tr>tr>td width=50>
% =Application("A4") %>/td>td>% =Application("B4") %>
/td>/tr>tr>td>
% =Application("A3") %>/td>td>% =Application("B3") %>
/td>/tr>tr>td>
% =Application("A2") %>/td>td>% =Application("B2") %>
/td>/tr>tr>td>
% =Application("A1") %>/td>td>% =Application("B1") %>
/td>/tr>/table>
table border=0 width=350>
tr>td align=right>
Get your chat at A REF="http://www.submitside.com">Submitside/A>: free script.
/td>/tr>/table>
/center>
/body>/html> 

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

html>body  bgcolor=FFFFFF>
center>
form method=post action=chatform.asp>
table border=0>tr>td>
%  if Session("AA")="" then %>
選擇名字或昵稱
input type=text name=Name size=20>BR>
輸入您的看法 
% else %>
% =Session("AA") %>
% end if %>
input type=text size=60 name=Opinion value="% =request.form("Opinion") %>">BR>
input type=submit value="提交">
/td>tr>/table>
/form>
/center>
/body>/html>

% 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
%>

html>
head>/head>body bgcolor=FFFFFF>
center>
form method=post action=chatform.asp>
table border=0>tr>td>
% =Session("AA") %> input type=text size=60 name=Opinion>
BR>input type=submit value="提交">
/td>/tr>/table>
/form>
/center>
/body>/html>

% End Sub %>

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

% End Sub %>

[1]