文档介绍:如何制作最简单的聊天室
<HTML>
<HEAD>
<TITLE>这张是最简单的聊天室的登录页面</TITLE>
</HEAD>
<BODY>
<FORM name="form1" method="post" action="">
<SCRIPT for=form1 event=onsubmit language=VBScript>
if ="" then
msgbox"名字不能为空!"
end if
</SCRIPT>
<P>请输入您的名字:<INPUT type=text name=f_name size=20></P>
<INPUT type=submit value=登录>
<INPUT type=reset value=重新输入>
</FORM>
</BODY>
</HTML>
*******************************************************************************
<%
session("u_name")=request("f_name")
'lock方法用来暂时阻止其他用户改变应用程序变量
for i=10 to 1 step-1
application("talk" & i)=application("talk" & (i-1))
next
p=session("u_name") & "进入聊天室"
application("talk" & 0)="(" & date & "&nbsp;&nbsp;" & time & ")" & p
'unlock方法用来解锁
%>
<HTML>
<HEAD>
<TITLE>这张是最简单的聊天室的聊天页面</TITLE>
</HEAD>
<FRAMESET rows=100,*>
<FRAME src="">
<FRAME src="">
</FRAMESET>
</HTML>
*******************************************************************************
<HTML>
<HEAD>
<TITLE>这张是最简单的聊天室的发送信息页面</TITLE>
</HEAD>
<%
if not ("message")="" then
'lock方法用来暂时阻止其他用户改变应用程序变量
for i=10 to 1 step-1
application("talk" & i)=application("talk" & (i-1))
next
p=session("u_name") & "说:" & ("message")
ap