<%
''''''''不用数据库，直接用application保存记录，这里我设定只保留14条
if request.form("msgs")<>"" then ''''''''如果有消息就插入到application("msgs14")中，1－13消息上移
for i = 1 to 13
application("msgs"&i)=application("msgs"&i+1)
application("user"&i)=application("user"&i+1)
next
application("msgs14")=request.form("msgs") ''''''''保存消息
application("user14")=request.form("user") ''''''''保存消息来源用户名
end if
''''''''无论有没消息输入，只要调用本脚本都会输出记录列表
for i = 1 to 14
response.write "msgs"&i&"="&server.urlencode(application("msgs"&i))&"&"
response.write "user"&i&"="&server.urlencode(application("user"&i))&"&"
next
%>

aspurl="http://www.511340.com/chat.asp"; //你的chat.asp文件的地址
sendvar=new loadvars();
loadvar=new loadvars();
//sendmsg函数，发送消息,并取得当前聊天记录列表
sendmsg=function(msg){
sendvar.msgs=msg; //将传入的消息保存到sendvar里
sendvar.user=username; //将用户名保存到sendvar
sendvar.sendandload(aspurl,loadvar,"post"); //sendvar里参数发送，由loadvar接收
};
//当loadvar接收数据成功就更新消息列表
loadvar.onload=function(success){
if(success){
txt=""; //窗口清空，重新写入当前消息列表
for(i=1;i<=14;i++){
txt+=loadvar["user"+i]+":"+loadvar["msgs"+i]+"\r";
}
msgsbox.scroll=msgsbox.maxscroll; //将文本的滚动条置于底部
}
};
setinterval(sendmsg,1000);//每秒不带消息发送，也就是直接取得记录列表，刷新画面

on(release, keypress "<enter>"){ //点击松开按钮或者键盘直接回车
sendmsg(msgs); //将消息输入框内容发送出去
msgs=""; //消息框清空
}