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